ник: ДрЮня
вот такое не поможет?
===================================================================
Как узнать реальный заводской номер физического диска или дискеты или CD,
не номер метки тома (он меняется при каждом форматировании носителя)
а заводской серийник который записиваеться производителем и никогда не меняеться.
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("localhost")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "SerialNumber: " & objItem.SerialNumber
WScript.Echo
Next
Next
===================================================================