濮阳杆衣贸易有限公司

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

枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒環(huán)境，沒測(cè)試）
熱門標(biāo)簽：百度地圖標(biāo)注怎么卸載 新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標(biāo)注 加盟電銷機(jī)器人好的品牌 前鋒辦理400電話申請(qǐng) 外呼營(yíng)銷下單系統(tǒng) 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 辦理膠州400電話財(cái)稅
原來是微軟專家的代碼在這：
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寫的隨機(jī)數(shù)類
  • 利用vbscript腳本修改文件內(nèi)容，此適用于自動(dòng)化的操作中
  • asp,VBscript語(yǔ)法錯(cuò)誤,史上最全最詳細(xì)最精確
  • vbscript腳本編程教程2利用fso來進(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)的由來以及帶來的安全問題分析
  • ASP(VBScript)中整除和取余
  • ASP基礎(chǔ)知識(shí)VBScript基本元素講解
  • ASP基礎(chǔ)入門第四篇(腳本變量、函數(shù)、過程和條件語(yǔ)句)

標(biāo)簽：武威 阜陽(yáng) 咸陽(yáng) 伊春 四平 梅州 牡丹江 河南

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒環(huán)境，沒測(cè)試）》，本文關(guān)鍵詞  枚舉,域內(nèi),計(jì)算機(jī),個(gè)數(shù),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒環(huán)境，沒測(cè)試）》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒環(huán)境，沒測(cè)試）的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    莆田市| 松滋市| 巩留县| 青阳县| 咸宁市| 武定县| 高台县| 合山市| 安义县| 关岭| 正安县| 年辖：市辖区| 甘肃省| 桐城市| 普格县| 锡林浩特市| 桃园市| 巴南区| 鄂尔多斯市| 镇远县| 盐池县| 沛县| 高安市| 蒙阴县| 临泽县| 六盘水市| 普格县| 岑溪市| 通江县| 贵阳市| 保靖县| 邹城市| 龙山县| 芜湖市| 贵南县| 新田县| 桦川县| 东平县| 沅陵县| 黎平县| 玛曲县|