Hi guys

Can anyone xlate this particularly ugly VBS code (main the getobject call)

dim domain as variant
Set domain = GetObject("WinNT://AIRNZ-NZ")
domain.Filter = Array("User")
For Each user in domain
  wscript.echo user.LastLogin
Next

 Regards Neven
 N.K. MacEwan B.E. E&E
 Ph 649 574 0027
 Fax 649 570 2706
 [EMAIL PROTECTED]


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to