dim li,i,bo,net
set net=createobject("wscript.network")
set li=getobject("WinNT://"&net.computername&"/Administrators")
for each i in li.members
bo=bo&" "&i.name&vbcr
next
msgbox bo,vbinformation
set net=createobject("wscript.network")
set li=getobject("WinNT://"&net.computername&"/Administrators")
for each i in li.members
bo=bo&" "&i.name&vbcr
next
msgbox bo,vbinformation