29 ответов в этой теме

[Borka]

Есть задача привязки софта к железу, на которое этот софт проинсталлен. Для этого планируется привязываться к серийнику винта. Как это сделать в ДОСе, я знаю. Кто-нить подскажет, как это можно сделать в винде? Буду благодарен.

[mrbelyash]

Есть задача привязки софта к железу, на которое этот софт проинсталлен. Для этого планируется привязываться к серийнику винта. Как это сделать в ДОСе, я знаю. Кто-нить подскажет, как это можно сделать в винде? Буду благодарен.

На Васике пойдет?

[hadjamme]

Исходник (с/с++), собранный из разных уголков инета.
http://rapidshare.com/files/319354663/HardwareID.rar.html

там ещё нет распространённых методов доступа к биосу материнки и видеокарты, если это надо - пиши в личку...
готов испытать вашу привязку "на прочность"

[hadjamme]

забыл ещё про cpuid:
http://www.daniweb.com/forums/thread112968.html

[v.martyanov]

забыл ещё про cpuid:
http://www.daniweb.com/forums/thread112968.html

Разве CPUID не может быть отключен?

[mrbelyash]

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

[v.martyanov]

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Это серийник раздела. К серийнику винта отношения не имеет.

[mrbelyash]

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Это серийник раздела. К серийнику винта отношения не имеет.

Ааааа,а через wmi ?

[v.martyanov]

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Это серийник раздела. К серийнику винта отношения не имеет.

Ааааа,а через wmi ?

Может и прокатит. Я знаю только ATA-команду, которая нужные данные вернет :-)

[hadjamme]

v.martyanov, может, но если делать привязку через несколько параметров (в том числе и с отключенным cpuid) то могут возникнуть некоторые проблемы при анализе.

[Borka]

Есть задача привязки софта к железу, на которое этот софт проинсталлен. Для этого планируется привязываться к серийнику винта. Как это сделать в ДОСе, я знаю. Кто-нить подскажет, как это можно сделать в винде? Буду благодарен.

На Васике пойдет?

Мне концепт нужен - каким API это можно сделать.

[Borka]

Исходник (с/с++), собранный из разных уголков инета.
http://rapidshare.com/files/319354663/HardwareID.rar.html
там ещё нет распространённых методов доступа к биосу материнки и видеокарты, если это надо - пиши в личку...

Спасибо, буду посмотреть.

готов испытать вашу привязку "на прочность"

Спасибо еще раз, пока рано об этом говорить.

[YVS]

Может и прокатит. Я знаю только ATA-команду, которая нужные данные вернет :-)

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)

For Each objItem in colItems
	WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next

Правда вроде бы работает не всегда и не везде...

[Borka]

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Это серийник раздела. К серийнику винта отношения не имеет.

Ааааа,а через wmi ?

Может и прокатит. Я знаю только ATA-команду, которая нужные данные вернет :-)

Я тоже знаю. Из ДОСи проблем нет.

[Borka]

Может и прокатит. Я знаю только ATA-команду, которая нужные данные вернет :-)

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)

For Each objItem in colItems
	WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next

Насколько я знаю, winmgmts нужно ставить отдельно?

[YVS]

Насколько я знаю, winmgmts нужно ставить отдельно?

Не знаю, я сам вроде не ставил, но серийный номер возвращается.
Но вроде бы в некоторых случаях WMI может и не вернуть ничего...

[Borka]

Насколько я знаю, winmgmts нужно ставить отдельно?

Не знаю, я сам вроде не ставил, но серийный номер возвращается.
Но вроде бы в некоторых случаях WMI может и не вернуть ничего...

На Винтукее скрипт не отработал, но все равно спасибо.

[pig]

Вы ещё с правами ограниченного юзера проверьте.

[Borka]

Вы ещё с правами ограниченного юзера проверьте.

Типа хохма, да?

[pig]

Нет, это я вспоминаю тему про неработающий демо-ключ, а заодно сбербанковского клиента, к которому надо ещё специальную службу ставить, чтобы привязанная к систему копия могла работать под ограниченным пользователем, а не только под администратором.