Verzeichnisrechte einlesen

•

Mit folgendem Skript kann man in Microsoft Access die Verzeichnisrechte auslesen und in eine Tabelle speichern: 

Sub VerzAuslesen()
    Dim db As DAO.Database ' Verweis "DAO 3.6"
    Dim sql As String
    Dim objComputer, objUser
 
    Set db = CurrentDb
    Set objComputer = GetObject("WinNT://" & "Ordner")
 
    For Each objUser In objComputer
        sql = "INSERT INTO TblUser (Name, Fullname, AccountDisabled, Profile) " _
            & "SELECT '" & objUser.name & "' AS Name, '" & objUser.FullName & "' AS Fullname, '" & objUser.AccountDisabled & "' AS AccountDisabled, " _
                   & "'" & objUser.primaryGroupID & "' AS Profile;"
        db.Execute sql
    Next
End Sub

Ähnliche Beiträge

Access ignoriert Zeilenumbrüche
Microsoft Access
Schreibkonflikt bei verknüpften Sichten
Microsoft Access
Ribbons für Access-Anwendungen
Microsoft Access
1 Stern2 Sterne3 Sterne4 Sterne5 Sterne

Loading…
Avatar von manuel

AUTOR

manuel

Ich bin Manuel Wurm, IT-Consultant und Blogger. Ich mag es, verschiedenste Dinge auszuprobieren. Vor allem mit Retro-Computern, Bierbrauen, Bogenschießen und Schlagzeug spielen verbringe ich gerne meine Zeit. Kochen zählt zu meinen größten Hobbys – das spiegelt sich auch auf wurmweb.at wieder, wo ich gerne Rezepte teile und hilfreiche Tipps für Interessierte festhalte.

Microsoft Office