域内计算机和用户获取实现vbs代码
导读：收集整理的这篇文章主要介绍了域内计算机和用户获取实现vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 显示当前域内所有计算机名称及数目 复制代码 代码如下: Const AD...
收集整理的这篇文章主要介绍了域内计算机和用户获取实现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.Move@R_126_1330@
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脚本收集远程计算机或本地计算机安装的软件
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 域内计算机和用户获取实现vbs代码
本文地址： https://pptw.com/jishu/609844.html