sol14-3.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

Dim objDomain, objUser

'get a reference to a domain ojbect 
Set objDomain = GetObject("WinNT://Acme")
'filter on the user objects
objDomain.Filter = Array("user")
For Each objUser In objDomain
   Wscript.Echo objUser.Name
Next