Liste computere i domæne via WMI

Closed, fandt selv løsningen:

Dim oDomain, oItem, oShell, strDomain,objWMIService

Set oShell = CreateObject("WScript.Shell")
strDomain = InputBox("Enter domain name", "NT Domain")
Set oDomain = GetObject("WinNT://" & strDomain)
oDomain.Filter = Array("Computer")
For Each oItem In oDomain

Wscript.Echo "Computer name: " & oItem.Name;

Next