域内计算机和用户获取实现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 |
