繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 枚举域内计算机个数vbscript脚本（没环境，没测试）
- VBScript
- vbs在网页中显示服务
- vbs得没公开对象
- unpack.vbs
- 使用批处理文件异地备份数据库（最近几天的数据）
- VBScript 中的字节数据操作函数
- 切换dos并dir的vbs
- 杀毒的对vbs相当敏感 免杀
- 多进程的vbs脚本
- Windows管理脚本学习
- 15分钟提醒一次，珍惜时间啊
- 从一个VBS脚本学习一点点东西
- exe2swf 工具(Adodb.Stream版)
- 使用脚本自动修改ip设置
- 深入挖掘Windows脚本技术
- 用VBSCRIPT控制ONSUBMIT事件
- VBS中Select CASE的其它用法
- vbscript 可以按引用传递参数吗？
- 下载文件到本地运行的vbs
- 飘叶千夫指源代码，又称qq刷屏器
- SendKeys参考文档
VBScript 中的 枚举域内计算机个数vbscript脚本（没环境，没测试）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 99 ::
收藏到网摘: 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
