Welche PC / Server laufen in der Domain?

Wer auf die schnelle schauen will, welche PC / Server in einer Domain laufen kann dies mit diesem kleinen Script (VBScript) prüfen :

strDomain = inputbox("Domain : ")
Set PrimDomainContr = GetObject("WinNT://" & strDomain)
PrimDomainContr.Filter = Array("Computer")

For Each oComputer In PrimDomainContr
if ping(oComputer.Name) = true then
liste = liste & oComputer.Name & vbcrlf
end if
Next

msgbox liste

function ping(pcname)
ping = false
set alive = GetObject("winmgmts:").ExecQuery("select * from Win32_PingStatus where Address = '" & pcname & "'")
for each pingstatus in alive
if pingstatus.StatusCode = 0 then ping = true
next
end function

Eignet sich für kleinere Umgebungen. Für korrektes funktionieren muss auf der Windows(XP)Firewall die ICMP Echo Anfrage erlaubt sein.