Shulou(Shulou.com)06/03 Report--

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!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.