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

В. Как программным путем получить код 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