手机
当前位置:查字典教程网 >脚本专栏 >vbs >枚举域内计算机个数vbscript脚本(没环境,没测试)
枚举域内计算机个数vbscript脚本(没环境,没测试)
摘要:原来是微软专家的代码在这:http://www.microsoft.com/china/technet/community/scriptce...

原来是微软专家的代码在这:

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

【枚举域内计算机个数vbscript脚本(没环境,没测试)】相关文章:

vbscript 注册表脚本书写

vbs/js脚本编程教学(2)

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

VBS教程:在 VBScript 中使用对象

妙用VBScript自制IE工具栏按钮的代码

几段非常有用的脚本(来自微软网站,由downmoon精心收集)

vbs/js脚本编程教学(1)

使用 iisweb.vbs 删除网站的方法(支持批量删除)

VBS教程:VBScript 基础-VBScript 变量

发老兵及海洋VBS解包工具代码

精品推荐
分类导航