В. Как программным путем получить код GUID компьютера?

О. :

strComputer ="." 

Set objWMIService = GetObject("winmgmts:" & strComputer & " ootCIMV2")

Set colItems = objWMIService.ExecQuery ("SELECT * FROM
Win32_ComputerSystemProduct")

' При ошибке перейти к Next
For Each objComputer In colItems
Wscript.Echo "uuID: " & objComputer.uuID
Next

WScript.Quit

Например, команда

D:	emp>cscript getuuid.vbs

выдает результат:

uuID: 4C4C4544-0051-5810-8039-B6C04F533931

Поделитесь материалом с коллегами и друзьями