Logon Script

[buegi 10]

Nochmal ein Problem mit dem Script hier:

 

Const EDV_GROUP = "cn=EDV"

Const E1_GROUP = "cn=E1"

Const E2_GROUP = "cn=E2"

Const E3_GROUP = "cn=E3"

Const E4_GROUP = "cn=E4"

Const E5_GROUP = "cn=E5"

Const E6_GROUP = "cn=E6"

Const M7_GROUP = "cn=M7"

Const M8_GROUP = "cn=M8"

Const M9_GROUP = "cn=M9"

Const QM_GROUP = "cn=QM"

Const VF_GROUP = "cn=VF"

Const GL_GROUP = "cn=GL"

Const LAGER_GROUP = "cn=LAGER"

Const FRW_GROUP = "cn=FRW"

 

 

Set wshNetwork = CreateObject("WScript.Network")

 

wshNetwork.MapNetworkDrive "J:", "\\Server03-SEC\" & wshNetwork.UserName & "$"

wshNetwork.MapNetworkDrive "H:", "\\Server03-SEC\Daten$"

wshNetwork.AddWindowsPrinterConnection "\\Server01-DC1\Canon iR5000-231"

 

 

Set ADSysInfo = CreateObject("ADSystemInfo")

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

strGroups = LCase(Join(CurrentUser.MemberOf))

 

 

If InStr(strGroups, EDV) Then

 

wshNetwork.MapNetworkDrive "I:", "\\Server03-SEC\EDV$"

wshNetwork.AddWindowsPrinterConnection "\\Server01-DC1\HP LaserJet 5000-213"

wshNetwork.AddWindowsPrinterConnection "\\Server01-DC1\HP Color InkJet CP1700-220"

wshNetWork.SetDefaultPrinter "\\Server01-DC1\HP LaserJet 5000-213"

 

ElseIf InStr(strGroups, FRW) Then

 

wshNetwork.MapNetworkDrive "I:", "\\Server03-SEC\FRW$"

wshNetwork.AddWindowsPrinterConnection "\\Server01-DC1\HP Lase...

 

 

Funtkioniert leider nur soweit, dass er für JEDEN benutzer nur die edv laufwerke und drucker verbindet. Alle anderen Abteilungen werden ausser acht gelasssen! Das is echt mies! Bitte um Hilfe!

[Das Urmel 10]

mach doch mal ein

Wscript.Echo strGroups

wofür hast du die Consts deklariert, wenn du die nicht nutzt?