#define ADS_SECURE_AUTHENTICATION 1 LOCAL loAd,loProvider,loWinNT,loUser,loGroup loAd = GETOBJECT("ADs:") FOR EACH loProvider IN loAd IF loProvider.Name == "WinNT:" loWinNT = loProvider EXIT ENDIF ENDFOR loUser = loWinNT.OpenDSObject("WinNT://"+ALLTRIM(STRTRAN(SYS(0)," # ","/")),"Administrator","",ADS_SECURE_AUTHENTICATION) FOR EACH loGroup IN loUser.Groups ? loGroup.Name ENDFOR loGroup = .NULL. loUser = .NULL. loProvider = .NULL. loWinNT = .NULL. loAd = .NULL. RELEASE lo*