Auslesen aus AD

Hallo Leute,
Ich habe folgendes Problem.

Ich möchte bei uns aus der Domäne alle Computer + MAC-Adresse auslesen.
Kenn mich mit vbscript noch nicht so gut aus aber mein script läuft soweit das ich die PCs auslesen und anzeigen kann nur hab ich irgend wo einen fehler da er mir die MAC adresse nicht ausliest.
Ich will das so hinbekommen das er die ausgelesenen PC für die weitere auslesung der MAC Adressen übernimmt.

Hier die SUB auf der TestDomäne in der das geschen sollte:

sub MacAdresse
Dim objWMIService, objItem, colItems, domain, computer
Dim Ausgabe

On Error Resume Next
domain = "//D1.test"

set objDomain = GetObject("WinNT:" & domain)


for Each item in objDomain
if item.class="Computer" then
computer = computer & " Computername: " & item.name & VbCrlf
end if

next

Set objWMIService = objDomain
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48)

For Each objDomain in colItems

If objItem.IPEnabled = True Then
Ausgabe = Ausgabe & "MAC Address: " & objItem.MACAddress & VbCrlf & "Adapter: " & objItem.Description & vbcrlf
end If
Next
wscript.echo computer & Ausgabe
end sub


Kann das überhaupt so funktionieren?
Vieleicht könnt ihr mir weiterhelfen oder einen anderen weg zeigen.

MFG