Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBScript auf Richtigkeit prüfen

Frage Entwicklung VB for Applications

Mitglied: Lamerking

Lamerking (Level 1) - Jetzt verbinden

08.03.2008, aktualisiert 09.03.2008, 3850 Aufrufe, 2 Kommentare

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
Mitglied: bastla
09.03.2008 um 09:36 Uhr
Hallo Lamerking!

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
Bitte warten ..
Mitglied: Lamerking
09.03.2008 um 13:32 Uhr
Hi,

super vielen Dank!

Gruß
Tobias
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen (7)

Frage von aletri zum Thema VB for Applications ...

Batch & Shell
gelöst Powershell Anmeldung auf Servern prüfen (3)

Frage von DukeofNet zum Thema Batch & Shell ...

VB for Applications
VBA Grenzwerte in String prüfen Regex ??? Excel2010 (3)

Frage von Chillministrator zum Thema VB for Applications ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(6)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Heiß diskutierte Inhalte
Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Linux
gelöst Google Chrome startet nicht (12)

Frage von Thomas91 zum Thema Linux ...