主頁 > 知識庫 > 枚舉域內(nèi)計算機個數(shù)vbscript腳本（沒環(huán)境，沒測試）

枚舉域內(nèi)計算機個數(shù)vbscript腳本（沒環(huán)境，沒測試）
熱門標簽：百度地圖標注怎么卸載 新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標注 加盟電銷機器人好的品牌 前鋒辦理400電話申請 外呼營銷下單系統(tǒng) 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回撥系統(tǒng)哪家好 辦理膠州400電話財稅
原來是微軟專家的代碼在這：
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
您可能感興趣的文章:
  • ASP、vbscript編碼模板
  • ASP中一個用VBScript寫的隨機數(shù)類
  • 利用vbscript腳本修改文件內(nèi)容，此適用于自動化的操作中
  • asp,VBscript語法錯誤,史上最全最詳細最精確
  • vbscript腳本編程教程2利用fso來進行文件操作
  • 使用vbscript腳本在表單中進行選擇的代碼
  • 用vbscript腳本實現(xiàn)返回 IP 配置數(shù)據(jù)的代碼
  • ASP里面令人震撼地Debug類（VBScript）
  • 調(diào)試JavaScript/VBScript腳本程序（IE篇）
  • JavaScript/VBScript腳本程序調(diào)試（Wscript篇）
  • ASP/VBScript中CHR(0)的由來以及帶來的安全問題分析
  • ASP(VBScript)中整除和取余
  • ASP基礎(chǔ)知識VBScript基本元素講解
  • ASP基礎(chǔ)入門第四篇(腳本變量、函數(shù)、過程和條件語句)

標簽：武威 阜陽 咸陽 伊春 四平 梅州 牡丹江 河南

巨人網(wǎng)絡(luò)通訊聲明：本文標題《枚舉域內(nèi)計算機個數(shù)vbscript腳本（沒環(huán)境，沒測試）》，本文關(guān)鍵詞  枚舉,域內(nèi),計算機,個數(shù),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《枚舉域內(nèi)計算機個數(shù)vbscript腳本（沒環(huán)境，沒測試）》相關(guān)的同類信息！
  • 本頁收集關(guān)于枚舉域內(nèi)計算機個數(shù)vbscript腳本（沒環(huán)境，沒測試）的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章