在多個域的網絡上顯示一臺計算機的OU

我真的很陌生，VB的腳本世界，所以請溫柔:)我試圖顯示一個有2個域的網絡上的計算機的OU。我有一個腳本來顯示本地計算機的詳細信息：在多個域的網絡上顯示一臺計算機的OU

Set objSysInfo = CreateObject("ADSystemInfo") 
strComputerDN = objSysInfo.ComputerName 
Set objComputer = GetObject("LDAP://" & strComputerDN) 
Set objNetwork = CreateObject("Wscript.Network") 
Wscript.Echo objComputer.distinguishedName

但我沒有運氣顯示相同的計算機名稱，我在輸入框中輸入。任何幫助將不勝感激。

歡呼聲

來源

2013-04-30 Ronnie S

您必須向AD查詢該名稱。我的ADQuery類應該讓你圍繞這個所需的大部分樣板代碼。

'<-- insert class code here 

computer = ... 

Set qry = New ADQuery 
qry.Filter = "(&(objectCategory=computer)(sAMAccountName=" & computer & "$))" 

Set obj = qry.Execute 
Do Until obj.EOF 
    WScript.Echo Split(obj("distinguishedName").Value, ",", 2)(1) 
    obj.MoveNext 
Loop 
obj.Close

來源

2013-04-30 16:37:27

感謝堆的答覆！將測試它，看看它是否適合我！歡呼:) – 2013-05-02 09:51:53

嗨！我嘗試了你的建議腳本，我收到錯誤消息對象需要'obj'。難道我做錯了什麼？再次感謝 – 2013-05-03 07:58:27

如果obj是'Nothing'（使用'WScript.Echo TypeName（obj）'檢查）查詢沒有找到匹配的對象。您登錄的域名是否實際上具有匹配的計算機對象？ – 2013-05-04 23:16:28

在多個域的網絡上顯示一臺計算機的OU

回答

相關問題