当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 域内计算机和用户获取实现vbs代码

域内计算机和用户获取实现vbs代码

2017年12月08日  | 移动技术网IT编程  | 我要评论
显示当前域内所有计算机名称及数目

复制代码 代码如下:

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

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网