Samstag, 20. April 2024, 11:55 UTC+2

Sie sind nicht angemeldet.

  • Anmelden
  • Registrieren

VBS Rechtevergabe Unterverzeichnis

mkl

unregistriert

1

Mittwoch, 21. Juli 2021, 10:27

VBS Rechtevergabe Unterverzeichnis

Hallo zusammen,
ich bin neu im Forum und benötige etwas Unterstützung beim erstellen eines VB Scriptes.

Anbei mal mein bisheriger CODE (bitte nicht lachen :rolleyes:):

Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

AuswahlTitel = "Bitte ein Verzeichnis angeben:"StartOrdner = "C:Temp"
Set Dateiauswahl = CreateObject("Shell.Application").BrowseForFolder(0,AuswahlTitel,16,StartOrdner)
If TypeName(Dateiauswahl) = "Nothing" Then
MsgBox "Abbruch gewählt!"
WScript.Quit
Else
Set oShell = WScript.CreateObject("WScript.Shell")
Set Ordner = Dateiauswahl.Self
username=inputbox ("Bitte das Benutzerkürzel angeben:","Input","")
Pfad = Ordner.Path
User = username

oShell.Run "icacls """ & Pfad & """ /remove dom" & User & "",0,True
'VOLLZUGRIFF - UNTERORDNER UND DATEIEN
oShell.Run "icacls """ & Pfad & """ /grant dom" & User & ": (OI)(CI)(IO)(M,DC)",0,True 
'LESEN/AUSFUEHREN - NUR ORDNER
oShell.Run "icacls """ & Pfad & """ /grant dom" & User & ": (RX)",0,True 
MsgBox "fertig"

End If


Ich fang mal an zu erklären was das Script leisten soll:Ich möchte gern Rechte auf Verzeichnisse setzen, diese werden über "Dateiauswahl" grafisch angezeigt und stehen dem Benutzer zur auswahl.
Das im Dialog ausgewählte Verzeichnis wird als Variable "Pfad" an Windows (CMD) zur Weiterverarbeitung mittels ICACLS übergeben.

Angezeigt werden - Verzeichnissstruktur:"C:Temp"
- 1 (Verzeichnis 1)
- 2 (Verzeichnis 2)

- 3 (Verzeichnis 3)
Sprich, derzeit werden auf das gewählt Verzeichnis Rechte wie gewünscht gesetzt.
Was ich jetzt gerne noch umsetzten möchte, ist folgendes:
Sobald ich mich jetzt in einem der jeweiligen Verzeichnisse befinde und ein Unterverzeichnis in diesem anwähle, möchte ich gerne auf unterverzeichnisse andere rechte als auf das Hauptverzeichnis setzen.
Ich hoffe ich konnte mich einigermaßen verständlich ausdrücken und habe auch nichts vergessen zu erwähnen.
Vielen Dank im Voraus für Unterstützungen ;-)

Ähnliche Themen