|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Option Explicit
' Declare variablesDim 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 sDomainSet oDomain = GetObject(sDomain)
' Iterate through each computer in the domainFor 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
|
WMICcsproduct list full |
本文转自 bannerpei 51CTO博客，原文链接：http://blog.51cto.com/281816327/1617721，如需转载请自行联系原作者