vbs 获取计算机主机名,域内计算机和用户获取实现vbs代码

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

复制代码 代码如下:

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

显示当前域内所有用户名称及数目

复制代码 代码如下:

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='user'"

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

Wscript.Echo objRecordSet.Fields("ADsPath").Value

objRecordSet.MoveNext

Loop

Wscript.Echo ""

Wscript.Echo "Total User: "&objRecordSet.RecordCount