原来是微软专家的代码在这：
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 

VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件
昨天下载并且安装了UpdaterApplicationBlock后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。现在把结论共享一下。

vbs 搜索代理地址实现代码[小偷程序]
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码functiongetHTTPPage(url)dimHttpsetHttp=CreateObject("MSXML2.XMLHTTP")Http.open"GET",url,falseHttp.send()ifHttp.readys

vbscript 调用WebService实现代码
'获取已初始化Soap对象PublicFunctionGetSoapClient(sURL)DimoSoapSetoSoap=CreateObject("MSSOAP.SoapClient")oSoap.mssoapinitsURLSetGetSoapClient=oSoapEndFunction'用户绑定对应序列号subBind