濮阳杆衣贸易有限公司

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

枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）
熱門(mén)標(biāo)簽：百度地圖標(biāo)注怎么卸載 新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標(biāo)注 加盟電銷(xiāo)機(jī)器人好的品牌 前鋒辦理400電話申請(qǐng) 外呼營(yíng)銷(xiāo)下單系統(tǒng) 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 辦理膠州400電話財(cái)稅
原來(lá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寫(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ǔ)句)

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）》，本文關(guān)鍵詞  枚舉,域內(nèi),計(jì)算機(jī),個(gè)數(shù),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wè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腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒(méi)環(huán)境，沒(méi)測(cè)試）的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    长岭县| 锡林郭勒盟| 高平市| 特克斯县| 保德县| 灯塔市| 门头沟区| 安阳市| 宁蒗| 进贤县| 东辽县| 襄汾县| 灵石县| 黔江区| 贵州省| 彰化市| 武邑县| 南昌市| 讷河市| 白朗县| 尚义县| 泰州市| 沁水县| 邯郸市| 洪洞县| 全椒县| 遂昌县| 澄迈县| 南通市| 象州县| 遂川县| 辽宁省| 南汇区| 宜宾县| 安顺市| 望江县| 宜春市| 襄城县| 临漳县| 肥东县| 陵水|