域内计算机和用户获取实现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代码》，本文关键词域内,计算机,和,用户,获取,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。