Top-Themen

Aktuelle Themen (A bis Z)

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

VBS - Auslesen ob User member in einen bestimmten AD Gruppe ist

(Level 1)

07.02.2007, aktualisiert 08.02.2007, 8782 Aufrufe, 2 Kommentare

Hallo Leute,

ich habe ein Script geschriben welches ich gerne auf AD Gruppen beschränken würde. Das bedeutet wenn der Benutzer der das Script ausführt in einer bestimmten Gruppe im AD member ist kann er das Script starten. Wenn nicht schließt sich das Script mit einer Fehlermeldung MSGBOX automatisch.


'Globale Dim
Dim Netpath, Personalnummer, UserID, Information, TitelScript, intAnswere
Dim Username, DeleteFile, DeleteFolder, OpenTextFile

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set g_onw = WScript.CreateObject("Wscript.Network")
Set Logdatei = oFSO.OpenTextFile ("\\r-nas-wi-701\logs$\Cleaner.log",8,True)
Set oshell = CreateObject("Shell.Application")

Netpath = "\\r-sbc-wi-701\sbcprofile$\"
Information = "Profile Cleaner V1.0" & VbCrLf & " " & VbCrLf & " " & VbCrLf & " " & VbCrLf & " " & VbCrLf & "Bitte geben Sie die Personalnummer des Users an:"
TitelScript = "Profile Cleaner V1.0"

Do While 1
' Abfrage der Personalnummer
UserID = InputBox (Information,TitelScript,"",vbQuestion)
If UserID = "" Then
MsgBox "Das Programm wird geschlossen", vbInformation, "Profile Cleaner V1.0"
Wscript.Quit
End If

' Output wenn kein CTX Profil mit dem Usernamen existiert.
If Not (oFSO.FolderExists(Netpath & USERID)) Then
MsgBox "Der Benutzer > " & UserID & " < besitzt kein Citrix Profil oder die Personalnummer ist falsch!", vbInformation, "Profile Cleaner V1.0"
' WScript.Quit
End If

' Output wenn CTX Profil mit dem Usernamen existiert dann Abfrage ob wirklich gelöscht werden soll.
If (oFSO.FolderExists(Netpath & USERID)) Then
intAnswer = _
MsgBox ("Wollen Sie wirklich das Citrix Profil des benutzers > " & UserID & " < zurücksetzen?", vbQuestion + vbYesNo, "Profile Cleaner V1.0")
If intAnswer = vbYes Then
' Files und Folder im Citrix Profil löschen
oFSO.DeleteFile (Netpath & UserID & "\*.*"), True
oFSO.DeleteFolder (Netpath & UserID & "\*.*"), True
' Ab hier wird ins log geschrieben
log_eintrag = Now & " Der Benutzer: " & g_oNw.UserName & " hat das Citrix Profil des benutzers " & UserID & " erfolgreich zurückgesetzt."
logdatei.WriteLine(log_eintrag)
logdatei.Close
' MSG Erfolgreich
MsgBox "Das Citrix Profil des benutzers > " & UserID & " < wurde erfolgreich zurückgesetzt" , vbInformation, "Profile Cleaner V1.0"
Else
' MSG Abgebrochen
MsgBox "Das zurücksetzen des profils wurde durch den Benutzer abgebrochen!" , vbInformation, "Profile Cleaner V1.0"
End If
End If
Loop


Ich habe schon viel im WWW gesucht aber nichts passendes gefunden das ich einbauen könnte. Leider habe ich auch noch nicht viel Erfahrung mir Scripting was das AD betrifft.

Villeicht könnt Ihr mir hier weiterhelfen.
Mitglied: bastla
07.02.2007 um 15:29 Uhr
Hallo NeoGate1604 und willkommen im Forum!

Jede Menge Beispielscripts gibt es von MS zB für AD, oder konkret für Gruppenmitgliedschaften etwa hier ...

HTH
bastla
Bitte warten ..
Mitglied: bastla
07.02.2007 um 19:25 Uhr
Hallo NeoGate1604!

ich habe ein Script geschriben
Ich habe schon viel im WWW gesucht aber nichts passendes gefunden
Ich dachte, Du bräuchtest nur etwas Info ...

Na gut, etwas Kurzes - der folgende Codeteil geht alle einer bestimmten Gruppe (OU der Gruppe ist anzugeben) zugeordneten Benutzer mit ihren Anmeldenamen durch und überprüft die Übereinstimmung mit dem Inhalt der Variablen "UserID" (zur besseren Vergleichbarkeit in Kleinbuchstaben - schadet auch nicht, wenn die "UserID" rein numerisch sein sollte):
01.
bIsMember = False 
02.
Set objGroup = GetObject("LDAP://CN=GesuchteGruppe,OU=OUderGruppe,DC=firma,DC=local") 
03.
For Each sUser in objGroup.Member 
04.
    Set objUser =  GetObject("LDAP://" & sUser) 
05.
    If LCase(objUser.sAMAccountName) = LCase(UserID) Then 
06.
        bIsMember = True 
07.
        Exit For 
08.
    End If 
09.
Next 
10.
If bIsMember Then MsgBox UserID & " ist Miglied der überprüften Gruppe."
Wenn Du's von der anderen Seite her angehen willst (alle Gruppenmitgliedschaften des angemeldeten Users auflisten), siehe hier.

HTH
bastla
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
AD Gruppen User auslesen
Frage von pgWindows Userverwaltung1 Kommentar

Guten Tag, ich bin auf der Suche nach einem Programm welches mit die User eines AD ausliest und mir ...

Windows Server

AD-User einer AD-Gruppe auslesen und in ein File schreiben

gelöst Frage von EstefaniaWindows Server15 Kommentare

Guten Abend. Ich habe eine Frage an Experten. Suche ein einfaches Script, wo mir AD-User einer von mir ausgewählten ...

Windows Server

User aus Gruppe auslesen mit Powershell

Frage von KEFHVDIWindows Server4 Kommentare

Hallo, ich benötige Hilfe. Ich bin leider nicht sehr begabt mit der Powershell. Ich muss alle User aus einer ...

Batch & Shell

Ad User Member Of Berechtigungen auslesen und als Exel Abspeichern

Frage von Deaxx84Batch & Shell1 Kommentar

Hallo Community, ich benötige für die Arbeit eure Hilfe. Ich muss per AD Power Shell die Member Of von ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 12 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 18 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...