VB.NET – LDAP Letzte Änderung einer bestimmten Windowsgruppe im Active Directory ermitteln

VB.NET – LDAP Letzte Änderung einer bestimmten Windowsgruppe im Active Directory ermitteln

Wenn Sie wissen möchten wann eine Windowsgruppe (z.B. ) das letzte mal geändert wurde, können Sie folgende Funktion für die Ermittlung des Datums verwenden.

So wird es gemacht:

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
    Public Function GetGroupLastChanged( _
        ByVal strDomain As String, _
        ByVal strUser As String, _
        ByVal strPW As String, _
        ByVal strGroup As String) As String
        GetGroupLastChanged = ""
 
        Dim strProzedur As String = "GetGroupLastChanged()"
        Dim GroupMemberDN As String = ""
 
        Try
 
            '------------------------------------
            Dim DirectoryRoot As New DirectoryServices.DirectoryEntry(strDomain, strUser, strPW)
            Dim DirectorySearch As New DirectoryServices.DirectorySearcher(DirectoryRoot, "(CN=" & strGroup & ")")
            Dim DirectorySearchCollection As DirectoryServices.SearchResultCollection = DirectorySearch.FindAll()
            For Each DirectorySearchResult As DirectoryServices.SearchResult In DirectorySearchCollection
                Dim ResultPropertyCollection As DirectoryServices.ResultPropertyCollection = DirectorySearchResult.Properties
                GroupMemberDN = ""
                For Each GroupMemberDN In ResultPropertyCollection("whenChanged")
                Next GroupMemberDN
            Next DirectorySearchResult
            '------------------------------------
 
            '------------------------------------
            GetGroupLastChanged = GroupMemberDN
            '------------------------------------
 
        Catch ex As Exception
            '------------------------------------
            ERR_Handler(ex.Message, mStrModul, strProzedur, gblnSilent, gSQL)
            '------------------------------------
        End Try
 
    End Function

Spendierst du mir eine Tasse Kaffee? Ich würd mich riesig freuen. DANKE !! 🙂

Author: admin

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.