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


您可能感兴趣的文章:

• vbs列出内网的中计算机（工作组也可以）
• 用vbs实现判断计算机是笔记本还是台式机的代码
• vbs实现计算机重启
• 用vbs得到计算机的 IP 地址
• 如何用VBS脚本收集远程计算机或本地计算机安装的软件

本文由 华域联盟 原创撰写：华域联盟 » 域内计算机和用户获取实现vbs代码

转载请保留出处和原文链接：https://www.cnhackhy.com/35122.htm