L
lefty1984
Guest
USING System.Collections.* FROM ASSEMBLY. USING System.DirectoryServices.* FROM ASSEMBLY. USING System.DirectoryServices.ActiveDirectory.DirectoryContext FROM ASSEMBLY. /* *************************** Definitions ************************** */ DEFINE VARIABLE oADContext AS System.DirectoryServices.ActiveDirectory.DirectoryContext. DEFINE VARIABLE oDirectoryEntry AS System.DirectoryServices.DirectoryEntry. DEFINE VARIABLE oSearch AS System.DirectoryServices.DirectorySearcher. DEFINE VARIABLE oResultAll AS System.DirectoryServices.SearchResultCollection. DEFINE VARIABLE oResult AS System.DirectoryServices.SearchResult. DEFINE VARIABLE oenum AS System.Collections.IEnumerator. DEFINE VARIABLE iCount AS INTEGER NO-UNDO. DEFINE VARIABLE cComputer AS CHARACTER NO-UNDO. DEFINE VARIABLE dLastLogon AS DECIMAL NO-UNDO. oADContext = NEW DirectoryContext(System.DirectoryServices.ActiveDirectory.DirectoryContextType
omain). oDirectoryEntry = System.DirectoryServices.ActiveDirectory.Domain:GetDomain(oADContext):GetDirectoryEntry(). oSearch = NEW System.DirectoryServices.DirectorySearcher(oDirectoryEntry,SUBSTITUTE("(&&(objectClass=computer))")). oResultAll = oSearch:FindAll(). /* *************************** Main Block ************************** */ DO iCount=1 TO oResultAll:Count: /* Hier is het complete LDAP pad zichtbaar */ oDirectoryEntry = NEW System.DirectoryServices.DirectoryEntry(oResultAll[iCount]
ath). oenum = oDirectoryEntryroperties:GetEnumerator(). cComputer = oDirectoryEntryroperties["CN":U]:Item[0]. IF cComputer = "PC10101" THEN DO: MESSAGE "ActiveDirectory Path: " SKIP oDirectoryEntryath SKIP (2) oDirectoryEntryroperties["CN":U]:Item[0] SKIP oDirectoryEntryroperties["objectCategory":U]:Item[0] SKIP oDirectoryEntryroperties["LastLogon":U]:Value. VIEW-AS ALERT-BOX INFO BUTTONS OK. END. END. RETURN.
Continue reading...
omain). oDirectoryEntry = System.DirectoryServices.ActiveDirectory.Domain:GetDomain(oADContext):GetDirectoryEntry(). oSearch = NEW System.DirectoryServices.DirectorySearcher(oDirectoryEntry,SUBSTITUTE("(&&(objectClass=computer))")). oResultAll = oSearch:FindAll(). /* *************************** Main Block ************************** */ DO iCount=1 TO oResultAll:Count: /* Hier is het complete LDAP pad zichtbaar */ oDirectoryEntry = NEW System.DirectoryServices.DirectoryEntry(oResultAll[iCount]ath). oenum = oDirectoryEntryroperties:GetEnumerator(). cComputer = oDirectoryEntryroperties["CN":U]:Item[0]. IF cComputer = "PC10101" THEN DO: MESSAGE "ActiveDirectory Path: " SKIP oDirectoryEntryath SKIP (2) oDirectoryEntryroperties["CN":U]:Item[0] SKIP oDirectoryEntryroperties["objectCategory":U]:Item[0] SKIP oDirectoryEntryroperties["LastLogon":U]:Value. VIEW-AS ALERT-BOX INFO BUTTONS OK. END. END. RETURN.Continue reading...