sol14-3.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 10 行

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