查看域内电脑的GUID

Option Explicit

' Declare variables
Dim sDomain
Dim oDomain
Dim oComputer

' This string specifies the domain (change to suit your needs)
sDomain = "LDAP://cn=Computers,dc=testone,dc=local"

' Open the domain specified by sDomain
Set oDomain = GetObject(sDomain)

' Iterate through each computer in the domain
For Each oComputer In oDomain
    ' Display name and GUID text on the screen
    WScript.Echo oComputer.Name & vbTab & oComputer.GUID
Next

*注意修改 "LDAP://cn=Computers,dc=testone,dc=local"

将上述保存为ShowGUID.vbs,并在CMD中运行：

cscript ShowGUID.vbs

查看本机的GUID,在powershell或者CMD下执行：

WMIC
csproduct list full