域内计算机和用户获取

欢迎您访问我爱IT技术网，今天小编为你分享的电脑教程是网络协议方面的经验知识教程：域内计算机和用户获取，下面是详细的分享！

域内计算机和用户获取

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

以上就是关于域内计算机和用户获取的网络协议知识分享，更多电脑教程请移步到>>电脑教程。