Für Netzwerkordner Berechtigungen Auslesen

Hallo Nepumuk
Ich bräuchte nochmal Deine Hilfe in Zusammenhang mit diesem Beitrag:
https://www.herber.de/cgi-bin/callthread.pl?index=1675500#1675500
Das Funktioniert alles wie gewünscht. Jetzt ist Cheffe auf die Idee gekommen, das wir zusätzlich noch Wissen müssen, wer auf diese entsprechenden Benutzerordner berechtigt ist. Weil von manchen Mitarbeitern (die nicht mehr im Unternehmen sind) wurden nach deren Ausscheiden die Abteilungsleiter auf den Benutzerordner berechtigt. Um ggf. geschäftkritische Daten zu Sichern.
Das heisst: In Spalte "C" müssten jetzt noch diese Benutzer (ausser Benutzer "System") und Gruppen eingelsen werden. Cool wäre wieder als Makro, so wie mit dem "LastAccess".
Da Du in VBA ja echt Top zu sein scheinst - Kannst Du mir hier nochmal Helfen? Für mich ist VBA ein Buch mit 7 Siegeln. Und ich brauche es bei der täglichen Arbeit auch nie (ich bin Citrix Spezialist) :\
Ich wäre Dir echt sehr Dankbar...
Grüsse
Ralph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralph,
der letzte Zugriff auf den Desktop (eine Datei wurde abgelegt oder geändert) wird in Spalte C abgelegt. Diese Spalte entsprechend formatieren (TT.MM.JJJJ hh:mm:ss).

Option Explicit

Public Sub LastAccess()

    Const NOT_FOUND As String = "NOT FOUND"

    Dim objFileSystemObject As Object, objFolder As Object
    Dim avntValues As Variant, vntItem As Variant
    Dim lngRow As Long

    On Error GoTo err_exit

    Set objFileSystemObject = CreateObject(Class:="Scripting.FileSystemObject")

    lngRow = 2

    With Worksheets("Tabelle1") 'Anpassen

        avntValues = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2

        For Each vntItem In avntValues

            Set objFolder = objFileSystemObject.GetFolder(vntItem)

            If objFolder Is Nothing Then

                .Cells(lngRow, 2).Value = NOT_FOUND

            Else
                .Cells(lngRow, 2).Value = objFolder.DateLastAccessed

                Set objFolder = objFileSystemObject.GetFolder(vntItem & "\Desktop")

                If objFolder Is Nothing Then

                    .Cells(lngRow, 3).Value = NOT_FOUND

                Else

                    .Cells(lngRow, 3).Value = objFolder.DateLastAccessed

                End If
            End If

            lngRow = lngRow + 1

        Next
    End With

    sub_exit:

    Set objFolder = Nothing
    Set objFileSystemObject = Nothing

    Exit Sub

    err_exit:

    Select Case Err.Number
        Case 76
            Set objFolder = Nothing
            Resume Next
        Case Else
            Call MsgBox("Fehler: " & CStr(Err.Number) & vbLf & vbLf & _
                Err.Description, vbCritical, "Progammfehler")
            Resume sub_exit
    End Select
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Für Netzwerkordner Berechtigungen Auslesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread