枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)的腳本，參考了微軟官方的代碼，有興趣的朋友可以參考下。

改成了全自動(dòng)式的，不需要手要修改域的adsi連接字符串了，代碼：

代碼如下:

On Error Resume Next

Set objRootDSE = GetObject("LDAP://rootDSE")

strDomain = ObjRootDSE.Get("defaultNamingContext")

Const ADS_SCOPE_SUBTREE = 2

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 Name FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'"

Set objRecordSet = objCommand.Execute

Wscript.Echo objRecordSet.RecordCount