魔天记忘语小说,择天记

主頁(yè) > 知識(shí)庫(kù) > 域內(nèi)計(jì)算機(jī)和用戶獲取實(shí)現(xiàn)vbs代碼

域內(nèi)計(jì)算機(jī)和用戶獲取實(shí)現(xiàn)vbs代碼

顯示當(dāng)前域內(nèi)所有計(jì)算機(jī)名稱及數(shù)目

復(fù)制代碼代碼如下:

 
Const ADS_SCOPE_SUBTREE = 2 
Set objRootDSE = GetObject("LDAP://rootDSE") 
strDomain = ObjRootDSE.Get("defaultNamingContext") 
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 * FROM 'LDAP://"  strDomain  "' WHERE objectCategory='computer'" 
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 
Do Until objRecordSet.EOF 
Wscript.Echo objRecordSet.Fields("ADsPath").Value 
objRecordSet.MoveNext 
Loop 
Wscript.Echo "" 
Wscript.Echo "Total Computer: "objRecordSet.RecordCount 

顯示當(dāng)前域內(nèi)所有用戶名稱及數(shù)目

復(fù)制代碼代碼如下:

 
Const ADS_SCOPE_SUBTREE = 2 
Set objRootDSE = GetObject("LDAP://rootDSE") 
strDomain = ObjRootDSE.Get("defaultNamingContext") 
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 * FROM 'LDAP://"  strDomain  "' WHERE objectCategory='user'" 
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 
Do Until objRecordSet.EOF 
Wscript.Echo objRecordSet.Fields("ADsPath").Value 
objRecordSet.MoveNext 
Loop 
Wscript.Echo "" 
Wscript.Echo "Total User: "objRecordSet.RecordCount 

您可能感興趣的文章:

vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)（工作組也可以）
用vbs實(shí)現(xiàn)判斷計(jì)算機(jī)是筆記本還是臺(tái)式機(jī)的代碼
vbs實(shí)現(xiàn)計(jì)算機(jī)重啟
用vbs得到計(jì)算機(jī)的 IP 地址
如何用VBS腳本收集遠(yuǎn)程計(jì)算機(jī)或本地計(jì)算機(jī)安裝的軟件

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《域內(nèi)計(jì)算機(jī)和用戶獲取實(shí)現(xiàn)vbs代碼》，本文關(guān)鍵詞域內(nèi),計(jì)算機(jī),和,用戶,獲取,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。