1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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中运行:
1
|
cscript ShowGUID.vbs
|
查看本机的GUID,在powershell或者CMD下执行:
1
2
|
WMIC
csproduct list full
|
本文转自 bannerpei 51CTO博客,原文链接:http://blog.51cto.com/281816327/1617721,如需转载请自行联系原作者