繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 枚举域内计算机个数vbscript脚本（没环境，没测试）
- VBScript
- TCP版backshell的VBS脚本代码
- VBS实现DOC转为文本文档的代码
- 一个用vbs查找硬盘所有分区中的指定程序的代码
- 用vbs操作注册表实例代码
- 用VBS来代替BAT或CMD文件进行命令
- 禁止QQ上网的vbs脚本代码
- 用vbs实现注册表开关的脚本
- 用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码
- 自己写的一个定时关机或重启的vbs脚本
- 关于phpwind克隆用户的方法
- vbs中的LoadPicture函数示例
- vbs循环产生的参数的传递问题
- vbs病毒源文件
- 海阳顶端网进百度blog必须输入密码的vbscript代码
- 关于脚本调用外部对像和类型库
- 学习 WSH 的理由小结
- vbscript sendkeys实例代码大全
- xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs
- Vbs脚本实现radmin终极后门代码_删除自身
- vbs实现恢复暂停的自动启动服务的脚本
VBScript 中的 枚举域内计算机个数vbscript脚本（没环境，没测试）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 109 ::
收藏到网摘: n/a
枚举域内计算机个数的脚本，参考了微软官方的代码，有兴趣的朋友可以参考下。 原来是微软专家的代码在这：
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx
我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码：
复制代码 代码如下:
On Error Resume Next
Set objRootDSE = GetObject("LDAP://rootDSE")
strDomain = ObjRootDSE.Get("defaultNamingContext")
Const ADS_SCOPE_SUBTREE = 2
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 Name FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'"
Set objRecordSet = objCommand.Execute
Wscript.Echo objRecordSet.RecordCount
评论 (0) All
