查看域内电脑的GUID

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,如需转载请自行联系原作者
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值