How to use vbs to display the names and numbers of all computers in the current domain
This article mainly introduces how to use vbs to display the names and numbers of all computers in the current domain, which has a certain reference value, and interested friends can refer to it. I hope you can learn a lot after reading this article.
Displays the name and number of all computers in the current domain
The copy code is as follows:
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
Displays the name and number of all users in the current domain
The copy code is as follows:
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
Thank you for reading this article carefully. I hope the article "how to use vbs to display the names and numbers of all computers in the current domain" shared by the editor will be helpful to you. At the same time, I also hope you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!
