Office: (Office 2007) Ordnereigenschaften/Sicherheit auslesen

orion · 21. November 2005

Hallo Zusammen

Ich bin immer noch am Auswerten der Eigenschaften von Verzeichnissen. Die Filestruktur konnte ich durch die profesionelle Unterstützung in diesem Forum auslesen -> noch einmal danke.
Jetzt fehlen mir noch die Eigenschaften der jeweiligen Verzeichisse. Die allgemeinen Eigenschaften sind kein Probleme -> FSO. Wie kann ich aber im Register Sicherheit der Eigenschaften die Gruppen- und Benutzernamen auslesen?

Danke für die Hilfe
orion

:)

Lumpensammler · 23. November 2005

Hallo, orion,

für die Eigenschaften könnte ansonsten auch Ordnereigenschaften auslesen helfen. Ich nehme aber stark an, daß die Angaben zu den Personen nicht per VBA ausgelesen werden können (jedenfalls auf unseren Systemen: da läßt mich der Admin nicht, und ich möchte es auch nicht unbedingt ganz mit ihm verderben, denn der kappt mir sonst den Internetzugang).

Gruß
LS

orion · 23. November 2005

Hallo Lumpensammler

Mit dem erwähnten Code habe ich es auch schon versucht. Leider erhalte ich nur die allgemeinen Standardangaben.
Das Auslesen der Berechtigugsgruppen via VBA scheint wahrscheinlich ein Problem zu sein. Jedenfalls findet man nichts auf dem Web. Schade.

Aber bitte halte die Ohren und Augen offen.

Danke dir LS

Gruss orion

bst · 23. November 2005

Auch Hallo,

sowas könnte vielleicht funktionieren. Von hier geklaut:

Berechtigungen Remote Shares (Programmierung / Office/VBasic / vb.net / vbs / wsh) - Foren auf CAD.de

und etwas an VBA angepaßt. Um die korrekte Definition der Datentypen habe ich mich bisher gedrückt ;-)

HTH, Bernd
--
Code:

Option Explicit

Sub GetAccessList(dir)
Dim wmiFileSecSetting As Object
Dim wmiSecurityDescriptor
Dim RetVal
Dim DACL
Dim wmiACE
Dim Trustee
Dim kt_type

kt_type = Array("Erlaubnis", "Verbot", "Audit", "3", "4", "Objekterlaubnis", "Objektverbot", "Objektaudit", "Objektalarm")

Set wmiFileSecSetting = GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='" & dir & "'")
RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)

If Err 0 Then
Debug.Print ";GetSecurityDescriptor failed" & vbCrLf & Err.Number & vbCrLf & Err.Description
Set wmiSecurityDescriptor = Nothing
Set wmiFileSecSetting = Nothing
Exit Sub
End If

' Retrieve the DACL array of Win32_ACE objects.
DACL = wmiSecurityDescriptor.DACL

For Each wmiACE In DACL
Set Trustee = wmiACE.Trustee
Debug.Print ";Name: " & Trustee.Domain & "\" & Trustee.Name
Debug.Print ";;ACE Type: " & kt_type(wmiACE.AceType)
Debug.Print ";;Access Mask: " & ShowRights(wmiACE.AccessMask)
Next

Set wmiSecurityDescriptor = Nothing
Set wmiFileSecSetting = Nothing
End Sub

Function ShowRights(wert)
Dim kt_access
Dim x

kt_access = Array("CREATE CHILD", "DELETE CHILD", "LIST CHILDS", "SELF", "READ PROP", _
"WRITE PROP", "DELETE TREE", "LIST OBJECT", "CONTROL ACCESS", _
"9", "10", "11", "12", "13", "14", "15", "DELETE", "READ_CONTROL", "WRITE DAC", "WRITE OWNER", "SYNCHROIZE", _
"21", "22", "23", "ACCESS SYSTEM SECURITY", "GENERIC EXECUTE", "GENERIC WRITE", "GENERIC READ", "GENERIC ALL")

' wandelt Bits in Klartext-Rechte um:
For x = 0 To 28
If (wert And 2 ^ x) = 2 ^ x Then
ShowRights = ShowRights & " - " & kt_access(x)
End If
Next
End Function

Sub TestIt()
GetAccessList "d:\"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lumpensammler · 23. November 2005

Hallo, Bernd,

starkes Teil. Wegen der Dimensionierung: behaupte doch einfach, Du arbeitest mit Late Binding *tongue.gif*

Gruß
LS

orion · 23. November 2005

Hallo Bernd

Super....funktioniert ohne Probleme *yelrotflmao

Du hast mir sehr viel Arbeit abgenommen. Jetzt muss ich nicht mehr über Zusatztool die Gruppen lesen.

Danke und Gruss
Benno

bst · 24. November 2005

Hallo,

freut mich wenn's tut. Der Dank gehört aber eher Axel, von dem ich's geklaut habe.

Übrigens, es gab mal eine Zeit da glaubte ich ganz gut VBA zu können.

Dann fand ich heraus daß es da Dinge wie CDO und WMI gibt ... ;-)

Einen schönen Tag noch,

Bernd

orion · 24. November 2005

Hallo Bernd

Jetzt habe ich festgestellt, dass jede DACL doppelt ausgelesen wird. Hat das mit den zwei ACE-Typen (ACCESS_DENIED_ACE, ACCESS_ALLOWED_ACE) im DACL zutun.

Ich finde einfach nicht via Überwachungsfenster heraus, wie ich diese Dupilzierung unterbinden kann.

Gruss
Orion

bst · 24. November 2005

Hallo Orion,

da bin ich erstmal überfragt. Ich habe das Teil ja auch nicht selber geschrieben
sondern aus einem bestehenden wsh-Script übernommen.
Ich schaue mal nach, ob ich was herausfinden kann.

Könnte aber ein paar Tage dauern.

Sorry, Bernd

Office: (Office 2007) Ordnereigenschaften/Sicherheit auslesen

Ordnereigenschaften/Sicherheit auslesen

Ordnereigenschaften/Sicherheit auslesen

Ordnereigenschaften/Sicherheit auslesen

Ordnereigenschaften/Sicherheit auslesen

Ordnereigenschaften/Sicherheit auslesen - Similar Threads - Ordnereigenschaften Sicherheit auslesen

Praktischer Umgang mit Zellenschutz

Sicherer Absender einfügen geht nicht mit .cloud

Zwischen Tabellen wechseln ohne Makro?

Neuer Mailserver - Emails sichern

Office 2019 - Wörterbuch sichern wie?

Symbolleiste in Excel/Word sichern

Das Outlook-Feature "Homepage" fehlt in den Ordnereigenschaften