亚洲欧美在线观看首页,国产精品国产欧美综合一区 ,欧美精品亚洲精品

顯示當前域內所有計算機名稱及數目

復制代碼代碼如下:

 
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 

顯示當前域內所有用戶名稱及數目

復制代碼代碼如下:

 
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列出內網的中計算機（工作組也可以）
用vbs實現判斷計算機是筆記本還是臺式機的代碼
vbs實現計算機重啟
用vbs得到計算機的 IP 地址
如何用VBS腳本收集遠程計算機或本地計算機安裝的軟件

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

巨人網絡通訊聲明：本文標題《域內計算機和用戶獲取實現vbs代碼》，本文關鍵詞域內,計算機,和,用戶,獲取,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

欧美阿v视频在线大全_亚洲欧美中文日韩V在线观看_www性欧美日韩欧美91_亚洲欧美日韩久久精品

域內計算機和用戶獲取實現vbs代碼