手机
当前位置:查字典教程网 >脚本专栏 >vbs >域内计算机和用户获取实现vbs代码
域内计算机和用户获取实现vbs代码
摘要:显示当前域内所有计算机名称及数目复制代码代码如下:ConstADS_SCOPE_SUBTREE=2SetobjRootDSE=GetObje...

显示当前域内所有计算机名称及数目

复制代码 代码如下:

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 MD5加密算法代码

VBS调用Windows API函数的代码

CMD和vbs修改 IP地址及DNS的实现代码

可以查询系统用户名sid的vbs

枚举域内计算机个数vbscript脚本(没环境,没测试)

获取屏幕分辨率的VBS代码

encrypt.vbs 内容加密vbs实现代码

VBS的各种应用的比较实用小代码

使用脚本调用系统的关机对话框实现代码

简单的VBS加密实现代码

精品推荐
分类导航