@Sunny61: Hier ist das script, ich habe es allerdings nicht selbst erstellt da ich keine Ahnung davon habe. Deshalb danke fürs "How To"..wird mir hoffentlich ein bisschen Erleuchtung bringen.
rem WScript.Echo "Login Start!"
Set wshNetwork = CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "h:", "\\10.10.0.10\User\" & wshNetwork.UserName
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
rem strGroups = LCase(Join(CurrentUser.MemberOf))
For each oGroup in CurrentUser.Groups
strGroups = strGroups & LCase(oGroup.name)
next
rem wshNetwork.AddWindowsPrinterConnection "\\adsci\XeroxOG"
rem wshNetwork.AddWindowsPrinterConnection "\\adsci\XeroxUG"
rem 'wshNetWork.SetDefaultPrinter "\\adsci\XeroxOG"
If InStr(strGroups, "cn=admin-all") Then
wshNetwork.MapNetworkDrive "i:", "\\10.10.0.10\admin-all"
End If
If InStr(strGroups, "cn=admin-secure") Then
wshNetwork.MapNetworkDrive "j:", "\\10.10.0.10\admin-secure"
End If
If InStr(strGroups, "cn=admin-private") Then
wshNetwork.MapNetworkDrive "k:", "\\10.10.0.10\admin-private"
End If
If InStr(strGroups, "cn=admin-ceo") Then
wshNetwork.MapNetworkDrive "l:", "\\10.10.0.10\admin-ceo"
End If
If InStr(strGroups, "cn=ssc-all") Then
wshNetwork.MapNetworkDrive "m:", "\\10.10.0.10\ssc-all"
End If
If InStr(strGroups, "cn=ssc-private") Then
wshNetwork.MapNetworkDrive "n:", "\\10.10.0.10\ssc-private"
End If
If InStr(strGroups, "cn=ao-all") Then
wshNetwork.MapNetworkDrive "o:", "\\10.10.0.10\ao-all"
End If
If InStr(strGroups, "cn=ao-private") Then
wshNetwork.MapNetworkDrive "p:", "\\10.10.0.10\ao-private"
End If
If InStr(strGroups, "cn=nmt") Then
wshNetwork.MapNetworkDrive "q:", "\\10.10.0.10\nmt"
End If
If InStr(strGroups, "cn=thm") Then
wshNetwork.MapNetworkDrive "r:", "\\10.10.0.10\thm"
End If
If InStr(strGroups, "cn=pg") Then
wshNetwork.MapNetworkDrive "s:", "\\10.10.0.10\pg"
End If
If InStr(strGroups, "cn=projects") Then
wshNetwork.MapNetworkDrive "t:", "\\10.10.0.10\projects"
End If
If InStr(strGroups, "cn=projects_old") Then
wshNetwork.MapNetworkDrive "u:", "\\10.10.0.10\projects_old"
End If
If InStr(strGroups, "cn=apps") Then
wshNetwork.MapNetworkDrive "v:", "\\10.10.0.10\apps"
End If
If InStr(strGroups, "cn=library-all") Then
wshNetwork.MapNetworkDrive "w:", "\\10.10.0.10\library-all"
End If
If InStr(strGroups, "cn=iss-all") Then
wshNetwork.MapNetworkDrive "x:", "\\10.10.0.10\iss-all"
End If
If InStr(strGroups, "cn=iss-private") Then
wshNetwork.MapNetworkDrive "y:", "\\10.10.0.10\iss-private"
End If
rem WScript.Echo "Login Finished!"
@lefg: Genau kann ich dir das nicht sagen, ich gehe allerdings davon aus das die Verbindung/en erst garnicht erstellt werden da sich die User immer nach einer Anmeldung gemeldet haben.
Wenn ich das script manuell ausführe werden manchmal alles Laufwerke verbunden, machmal aber auch nur eins bzw einige oder auch garkeine.
Ich habe die GP testweise nur auf einem der PC's lokal aktiviert. Hat leider nichts gebracht, allerdings weiß ich nicht wie ich überprüfen soll das er die GP auch durchsetzt.
Das mit der Fehlermeldung im script werde ich mal ausprobieren, muss mich aber wie gesagt erstmal ins scripting reinlesen.
Was meinst du mit der Schnittmenge? Und wie kann ich eine Fehlerquelle der Schicht 1 oder 2 zuordnen. Wird etwas schwierig wenn ich anfange die Switches etc auszutauschen bzw meine Kollegen werden mich wohl umbringen. Kannst du mri da auch eine Hilfestellung geben?
Grüße und besten Dank schonmal für die Mühe
