主页 > 知识库 > 域内计算机和用户获取实现vbs代码

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

热门标签:办理胶州400电话财税 新密防封卡外呼系统违法吗 前锋办理400电话申请 海外美发店地图标注 外呼营销下单系统 打电话的外呼系统贵不贵 加盟电销机器人好的品牌 百度地图标注怎么卸载 陕西高频外呼回拨系统哪家好
显示当前域内所有计算机名称及数目

复制代码 代码如下:

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代码》,本文关键词  域内,计算机,和,用户,获取,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《域内计算机和用户获取实现vbs代码》相关的同类信息!
  • 本页收集关于域内计算机和用户获取实现vbs代码的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章