Ergebnis 1 bis 4 von 4

Thema: Mit VBS Gruppen unterschiedliche Laufwerke zuweisen

  1. #1
    Neuer Benutzer Avatar von cojahn
    Registriert seit
    08.06.2005
    Beiträge
    28

    Standard Mit VBS Gruppen unterschiedliche Laufwerke zuweisen

    Hallo,

    ich sitze zur Zeit über einem Anmeldescript welches auch bis jetzt
    super funktioniert.
    Es wird Temp gelöscht, Zeit synchronisiert, ein Programm ausgeführt,
    freier Platz auf der Festplatte geprüft ect.

    Nur eins bekomme ich einfach nicht hin.
    Ich habe verschiedene Gruppen im AD die alle unterschiedliche Laufwerke benötigen.
    zB
    Buchhaltung - U:
    Vertrieb - G:
    ...
    Ich finde sehr viel Infos im Netz wie man Usern, Computern oder
    Firmen Laufwerke zuweisen kann, aber nichts über Gruppen.

    Eigentlich bräuchte ich nur eine einfache If Abfrage.
    UserName, UserDomain gibt es ja...

    Ich hoffe es kann mir jemand weiterhelfen.
    Bedanke mich im Vorraus für die Bemühungen

    MFG
    cojahn

  2. #2
    Neuer Benutzer Avatar von cojahn
    Registriert seit
    08.06.2005
    Beiträge
    28

    Standard

    Ok, hab die Lösung selber erarbeitet
    Für alle die sowas auch mal brauchen...

    Dim ADSysInfo
    Dim CurrentUser
    Dim strGroups
    Dim oshell
    Set WshShell = CreateObject("WScript.Shell")

    Const bla = "cn=Gruppe"

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    strGroups = LCase(Join(CurrentUser.MemberOf))
    Set oshell = CreateObject("Shell.Application")

    If InStr(UCase(strGroups), UCase(bla)) <> 0 Then
    Laufwerkszuordnung
    Else
    ...
    End if

    Gruß
    cojahn

  3. #3
    Administrator Avatar von joneum
    Registriert seit
    18.06.2003
    Ort
    Essen
    Beiträge
    4,152

    Standard

    Ich hatte mir da auch so meine gedanken gemacht, bin da aber bis jetzt zu keinem brauchbares erg. gekommen.
    Aber hast es ja selber geschaft
    Bitte beachten, das hier Braindumps unerwünscht sieht. Sie dazu auch hier!

  4. #4
    Erfahrener Benutzer
    Registriert seit
    24.09.2004
    Ort
    Allgäu
    Beiträge
    492

    Standard

    Wir machen es so ...

    :
    : If member of "%N%AC-GROUP" -> mapping drive L:
    :
    :_GRP01

    %LOGON_DRIVE%
    "%TEMP%\ifmember" "%N%AC-GROUP"
    IF NOT %ERRORLEVEL%.==1. GOTO _GRP02
    IF %_DEBUG_%.==on. PAUSE >%_NUL_%
    net use %GROUP_DRIVE% %LOGONSERVER%\%N%AC-GRP$ /persistent:no >%_NUL_%
    IF %_DEBUG_%.==on. PAUSE >%_NUL_%
    :
    : If member of "%N%AL-GROUP" -> mapping drive L:
    :
    :_GRP02
    :
    "%TEMP%\ifmember" "%N%AL-GROUP"
    IF NOT %ERRORLEVEL%.==1. GOTO _GRP03
    IF %_DEBUG_%.==on. PAUSE >%_NUL_%
    net use %ALL_DRIVE% %LOGONSERVER%\%N%AL-GRP$ /persistent:no >%_NUL_%
    IF %_DEBUG_%.==on. PAUSE >%_NUL_%
    : %SYSTEMROOT%\regedit.exe /S %UTIL_DRIVE%\keyflow.reg >%_NUL_%
    IF %_DEBUG_%.==on. PAUSE >%_NUL_%

Ähnliche Themen

  1. Gruppen aus AD übernehmen
    Von cojahn im Forum Windows Server
    Antworten: 2
    Letzter Beitrag: 16.07.2007, 12:57
  2. Gruppen und Verschachtelung
    Von MarioB im Forum Windows Server
    Antworten: 7
    Letzter Beitrag: 21.02.2006, 11:03
  3. Outlooks unterschiedliche Absender
    Von Frodo im Forum MS Office
    Antworten: 4
    Letzter Beitrag: 13.09.2005, 11:50
  4. User aus Gruppen auslesen
    Von agora im Forum Windows Server
    Antworten: 2
    Letzter Beitrag: 19.04.2005, 22:19
  5. Lokale Laufwerke in RDP-Sitzung ?
    Von Paul Schmidt im Forum Windows 95 - XP | sonstige
    Antworten: 7
    Letzter Beitrag: 07.07.2004, 13:45

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •