vbs Logon Script mit 2 gleichen Laufwerksbuchstaben - Gruppenabfrage

Hallo,


ich habe ein vbs-Logon-Script was auch wunderbar in der "normal" -Ausführung funktioniert.
Jedoch benötige ich eine extra-Funktion. Unser System: Windows 2003 Server RS2 und Windows XP Clients.

im Script werden die Gruppen abgefragt und anschließend ein Laufwerk zugeordnet, jede Abteilung/Gruppe erhält Ihr eigenes Laufwerk was immer X:\ ist. Jedoch gibt es einige Mitarbeiter welche zusätzlich das Laufwerk einer anderen Abteilung benötigen, also das X:\ von Abteilung2 z.B.

Jetzt ist meine Frage. Kann man im Script eine Abfrage einbauen mit der man prüft in welcher Gruppe man ist + falls X:\ schon vorhanden - als zweites Laufwerk Y:\ verbindet.


ein Auszug aus dem Script:

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Alle User") Then MapIt "Z:","\\filer\public"

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"EDV") Then MapIt "x:","\\filer\edv"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Einkauf") Then MapIt "x:","\\filer\einkauf"
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Konstruktion") Then MapIt "x:","\\filer\konstruktion"


Wie erweitere ich das Script wenn ein User in den Gruppen EDV und Einkauf ist?

Vielen Dank schon einmal für Eure Hilfe.


Gruß
ST

'Ein "FileSystemObject" wird es vermutlich schon geben; dennoch der Vollständigkeit halber:  
Set fso = CreateObject("Scripting.FileSystemObject")  
'  
'  
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Einkauf") Then  
    If Not fso.DriveExists("x:") Then  
        MapIt "x:","\\filer\einkauf"  
    Else
        MapIt "y:","\\filer\einkauf"  
    End If
End If

Abt = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).Department 'bzw ".Title", wenn es doch "Position" sein soll  

Select Case Abt
Case "EDV"  
    MapIt "x:","\\filer\edv"  
Case "Einkauf"  
    MapIt "x:","\\filer\einkauf"  
Case "Konstruktion"  
    MapIt "x:","\\filer\konstruktion"  
Case Else
    'was eben für alle Übrigen passieren soll  
End Select

If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"EDV") Then If Abt <> "EDV" Then MapIt "y:","\\filer\edv"  
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Einkauf") Then If Abt <> "Einkauf" Then MapIt "y:","\\filer\einkauf"  
'...  

Abteilungen = Array("EDV", "Einkauf", "Konstruktion")  
Abt = GetObject("LDAP://" & CreateObject("ADSystemInfo").UserName).Department  

For Each Abteilung In Abteilungen
    If Abt = Abteilung Then
        MapIt "x:", "\\filer\" & Abteilung  
    ElseIf IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,Abteilung) Then
        MapIt "y:", "\\filer\" & Abteilung  
    End If
Next

If fso.DriveExists(Parameter_Drive) Then Exit Sub