域内计算机和用户获取实现vbs代码
来源：本站原创|时间：2022-11-25|栏目：vb|
显示当前域内所有计算机名称及数目
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10VBS教程：运算符-运算符(+)
- 01-10VBS教程：函数-LTrim、RTrim 和 Trim 函数
- 01-10利用VBS脚本自动创建计算机帐户的代码
- 01-10打开QQ并且让它自己输入用户名和密码的vbs脚本
- 01-10使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
- 01-10VBS和页面中响应COM的事件的方法和代码
- 01-10vbs中关于计算机名的相关讨论
- 01-10用vbs确定计算机是否有 USB 2.0 端口的代码
- 01-10运行脚本之前，如何确定计算机上的默认脚本宿主的代码
- 01-10用vbs实现防止计算机使用 LMHosts 文件
