繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 枚举域内计算机个数vbscript脚本（没环境，没测试）
- VBScript
- VBS教程：运算符-Xor 运算符
- VBS教程：运算符-减运算符 (-)
- VBS教程：运算符-Or 运算符
- VBS教程：运算符-运算符概述
- VBS教程：运算符-运算符优先级
- VBS教程：运算符-Not 运算符
- VBS教程：运算符-乘运算符 (*)
- VBS教程：运算符-Mod 运算符
- VBS教程：运算符-逻辑运算符
- VBS教程：运算符-Is 运算符
- VBS教程：运算符-\ 运算符
- VBS教程：运算符-Imp 运算符
- VBS教程：运算符-幂运算符 (^)
- VBS教程：运算符-Eqv 运算符
- VBS教程：运算符-除运算符 (/)
- VBS教程：运算符-连接运算符 (&)
- VBS教程：运算符-比较运算符
- VBS教程：运算符-赋值运算符 (=)
- VBS教程：运算符-And 运算符
- VBS教程：运算符-运算符(+)
VBScript 中的 枚举域内计算机个数vbscript脚本（没环境，没测试）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 129 ::
收藏到网摘: 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
