In summary, what it does is: Get 'Domain' object for domain 'AIRNZ-NZ' from ADSI, and go through all 'Users'.
You probably need to import ActiveDS.DLL in Delphi. Let me know if you need to more info in this area. Edward -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Neven MacEwan Sent: Wednesday, 24 October 2001 12:12 p.m. To: Multiple recipients of list delphi Subject: [DUG]: equiv in Delphi 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/ --------------------------------------------------------------------------- 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/