显示当前域内所有计算机名称及数目代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】显示当前域内所有计算机名称及数目

作者:冰点极限-赤龙 / 发布于2010/12/30/ 1816

<div>Const ADS_SCOPE_SUBTREE = 2 
Set objRootDSE = GetObject("LDAP://rootDSE") 
strDomain = ObjRootDSE.Get("defaultNamingContext") 
Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand = CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "Active Directory Provider" 
Set objCommand.ActiveConnection = objConnection 
objCommand.Properties("Page Size") = 1000 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.CommandText = "SELECT * FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'" 
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 
Do Until objRecordSet.EOF 
Wscript.Echo objRecordSet.Fields("ADsPath").Value 
objRecordSet.MoveNext 
Loop 
Wscript.Echo "" 
Wscript.Echo "Total Computer: "&objRecordSet.RecordCount 

</div>

试试其它关键字

同语言下

可能有用的

冰点极限-赤龙贡献的其它代码(2)