域内计算机和用户获取
来源:互联网 发布:周末网络个人理财申请 编辑:程序博客网 时间:2024/06/05 03:13
显示当前域内所有计算机名称及数目
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
- 域内计算机和用户获取
- 域内计算机和用户获取
- 方便用户共享资源,在域内通过脚本给域内计算机映射网络驱动器(打印机)
- 获取计算机服务和当前用户角色
- 查找域内的计算机,加入COMBOX
- 如何获取远程计算机的用户列表?
- 如何能做到禁止域内计算机的本地登陆?
- 防止计算机被域内其他账户登录的方法
- [AD]查看域内计算机所覆盖的策略
- 获取和修改计算机屏幕分辨率
- 域内用户对于管理员来说电脑没有任何隐私
- 通过ISA限制域内用户访问网页视频
- 导出当前域内所有用户hash的技术整理
- 导出当前域内所有用户hash的技术整理
- Ubuntu修改用户名称和计算机名称
- ubuntu修改用户名称和计算机名称
- Ubuntu修改用户名称和计算机名称
- Ubuntu修改用户名称和计算机名称
- 算法导论 归并排序解决逆序数
- ORACLE使用触发器更新数据
- Struts2+Spring2+Hibernate3整合
- static的作用
- Mysql利用/*!select*/ 突破防注入
- 域内计算机和用户获取
- 一份比较详细的DOS命令说明!
- 另类抓win hash法
- 最新Discuz! X1- 1.5 exp -2011 dz论坛通杀 0DAY
- syWebEditor编辑器最新0day
- DedeCMS 支付页面注入漏洞
- 5UCMS漏洞利用
- 赋值运算符重载函数
- poj2240