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中一個用VBScript寫的隨機數類利用vbscript腳本修改文件內容，此適用于自動化的操作中asp,VBscript語法錯誤,史上最全最詳細最精確vbscript腳本編程教程2利用fso來進行文件操作使用vbscript腳本在表單中進行選擇的代碼用vbscript腳本實現返回 IP 配置數據的代碼ASP里面令人震撼地Debug類（VBScript）調試JavaScript/VBScript腳本程序（IE篇）JavaScript/VBScript腳本程序調試（Wscript篇）ASP/VBScript中CHR(0)的由來以及帶來的安全問題分析ASP(VBScript)中整除和取余ASP基礎知識VBScript基本元素講解ASP基礎入門第四篇(腳本變量、函數、過程和條件語句)
