VBScript auf Richtigkeit prüfen
Hallo zusammen,
ich hab mir aus verschiedenen Quellen im Internet ein VBScript selbst zusammengebastelt.
Das Skript an sich funktioniert, ich glaub aber, dass der Code nicht wirklich "sauber" ist und der ein oder andere Fehler drinne ist.
Könnt Ihr mal kurz drüberschauen, ob alles passt?
Danke schon mal.
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Call Benuntzerloeschen(Benutzer)
Loop
f.Close
Wscript.Quit(0)
Sub Benuntzerloeschen (Benutzer)
Set objOU = GetObject("LDAP://cn=users,dc=unsere,dc=schoene,dc=domaene")
objOU.Delete "user", "cn=" & Benutzer
WScript.Sleep(1000)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
ret = WshShell.Run ("delhomedirs.cmd " & Benutzer,0,1)
WScript.Echo "Benutzer " & Benutzer & " erfolgreich gelöscht"
End Sub
Das Skript löscht einen Benutzer aus dem Active Directory. Der Benutzername wird aus der Textdatei user.txt ausgelesen.
Anschließend wird die Datei "delhomedirs.cmd" gestartet, welche mit der Variable %1 den Benutzernamen aufruft.
Gruß
Tobias
ich hab mir aus verschiedenen Quellen im Internet ein VBScript selbst zusammengebastelt.
Das Skript an sich funktioniert, ich glaub aber, dass der Code nicht wirklich "sauber" ist und der ein oder andere Fehler drinne ist.
Könnt Ihr mal kurz drüberschauen, ob alles passt?
Danke schon mal.
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Call Benuntzerloeschen(Benutzer)
Loop
f.Close
Wscript.Quit(0)
Sub Benuntzerloeschen (Benutzer)
Set objOU = GetObject("LDAP://cn=users,dc=unsere,dc=schoene,dc=domaene")
objOU.Delete "user", "cn=" & Benutzer
WScript.Sleep(1000)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
ret = WshShell.Run ("delhomedirs.cmd " & Benutzer,0,1)
WScript.Echo "Benutzer " & Benutzer & " erfolgreich gelöscht"
End Sub
Das Skript löscht einen Benutzer aus dem Active Directory. Der Benutzername wird aus der Textdatei user.txt ausgelesen.
Anschließend wird die Datei "delhomedirs.cmd" gestartet, welche mit der Variable %1 den Benutzernamen aufruft.
Gruß
Tobias
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 82637
Url: https://administrator.de/forum/vbscript-auf-richtigkeit-pruefen-82637.html
Ausgedruckt am: 23.12.2024 um 13:12 Uhr
2 Kommentare
Neuester Kommentar
Hallo Lamerking!
Ergebnis eines "kurzen Drüberschauens" :
Kannst Du im Prinzip so lassen - allenfalls würde ich
Grüße
bastla
Ergebnis eines "kurzen Drüberschauens" :
Kannst Du im Prinzip so lassen - allenfalls würde ich
- zur Sicherheit die verwendeten Dateien mit vollem Pfad angeben (oder, wenn sie im selben Ordner wie das Script liegen sollen, den Ordnerpfad aus "WScript.ScriptFullName" extrahieren) und
- die "Set"-Befehle alle an den Anfang des Scripts stellen (die im Unterprogramm verwendeten werden ansonsten bei jedem Schleifendurchlauf ausgeführt, was zwar nicht schadet, aber unnötig ist).
Grüße
bastla