枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）
更新時(shí)間：2009年10月20日 22:08:01 作者：
枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)的腳本，參考了微軟官方的代碼，有興趣的朋友可以參考下。
原來(lái)是微軟專家的代碼在這：
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx
我改成了全自動(dòng)式的，不需要手要修改域的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
http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx
我改成了全自動(dòng)式的，不需要手要修改域的adsi連接字符串了，代碼：
復(fù)制代碼 代碼如下:
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
您可能感興趣的文章:
- ASP、vbscript編碼模板
- ASP中一個(gè)用VBScript寫(xiě)的隨機(jī)數(shù)類
- 利用vbscript腳本修改文件內(nèi)容，此適用于自動(dòng)化的操作中
- asp,VBscript語(yǔ)法錯(cuò)誤,史上最全最詳細(xì)最精確
- vbscript腳本編程教程2利用fso來(lái)進(jìn)行文件操作
- 使用vbscript腳本在表單中進(jìn)行選擇的代碼
- 用vbscript腳本實(shí)現(xiàn)返回 IP 配置數(shù)據(jù)的代碼
- ASP里面令人震撼地Debug類（VBScript）
- 調(diào)試JavaScript/VBScript腳本程序（IE篇）
- JavaScript/VBScript腳本程序調(diào)試（Wscript篇）
- ASP/VBScript中CHR(0)的由來(lái)以及帶來(lái)的安全問(wèn)題分析
- ASP(VBScript)中整除和取余
- ASP基礎(chǔ)知識(shí)VBScript基本元素講解
- ASP基礎(chǔ)入門(mén)第四篇(腳本變量、函數(shù)、過(guò)程和條件語(yǔ)句)
相關(guān)文章
利用vbs實(shí)現(xiàn)可以帶附件的郵件的代碼2008-02-02
VBS教程：方法-AddFolders 方法(Folders)
VBS教程：方法-AddFolders 方法(Folders)...2006-11-11
VBS教程：對(duì)象-Folders 集合...2006-11-11
VBS基礎(chǔ)篇 - 循環(huán)(for、Do、While)
經(jīng)常地，當(dāng)編寫(xiě)代碼時(shí)，我們希望將一段代碼執(zhí)行若干次，我們可以在代碼中使用循環(huán)語(yǔ)句來(lái)完成這項(xiàng)工作,需要的朋友可以參考下2018-05-05
vbscript Split函數(shù)用法詳解(字符串轉(zhuǎn)數(shù)組函數(shù))
本文詳細(xì)介紹了vbscript中split函數(shù)的用法，有關(guān)split函數(shù)的一些實(shí)例，vbscript中split函數(shù)的語(yǔ)法介紹，有需要的朋友參考下2014-05-05
VBS教程：方法-WriteBlankLines 方法...2006-11-11
Author:Trajon.BWL今天在網(wǎng)上隨便閑逛，逛到一個(gè)帖子，這位迷茫的朋友想知道該怎么使用SendKeys的vbs方法來(lái)輸入中文字符2008-08-08
VBS教程：方法-Replace 方法...2006-11-11
VBS教程：VBScript 語(yǔ)句-Set 語(yǔ)句
VBS教程：VBScript 語(yǔ)句-Set 語(yǔ)句...2006-11-11
VBS教程：運(yùn)算符-運(yùn)算符優(yōu)先級(jí)
VBS教程：運(yùn)算符-運(yùn)算符優(yōu)先級(jí)...2006-11-11