T
tbergman
Guest
USING System.DirectoryServices.*. USING System.DirectoryServices.AccountManagement.*. DEFINE VARIABLE objContext AS PrincipalContext. DEFINE VARIABLE objUser AS UserPrincipal. DEFINE VARIABLE objDirEntry AS DirectoryEntry. DEFINE VARIABLE PropertyValue AS CHARACTER NO-UNDO . DEFINE VARIABLE PropertyName AS CHARACTER NO-UNDO . PropertyName = "LastLogon" . objContext = NEW PrincipalContext(ContextType
omain, " DomainName" ). objUser = UserPrincipal:FindByIdentity(objContext, " UserName " ). PropertyValue = DYNAMIC-PROPERTY (objUser,PropertyName) NO-ERROR . MESSAGE PropertyValue VIEW-AS ALERT-BOX .
Continue reading...
omain, " DomainName" ). objUser = UserPrincipal:FindByIdentity(objContext, " UserName " ). PropertyValue = DYNAMIC-PROPERTY (objUser,PropertyName) NO-ERROR . MESSAGE PropertyValue VIEW-AS ALERT-BOX .Continue reading...