Logon Script problem

Hvor mange spørgsmål skal du have kørende om samme problem ?

Det er ikke samme problem har lavet scriptet men det mapepr ikke de drev der er baseret på gruppe.

'-----------------------------:<------------------------------
'login script
' version 2  Dilling  Feb 2006

Const DIRECTOR_GROUP    = "cn=director"            'lowercase here
Const DIRECTORS_GROUP    = "cn=directors"
Const FINANCE_GROUP        = "cn=finans"
Const SERVICE_GROUP = "cn=servicend"
Const SALES_GROUP = "cn=sales"
Const ALLUSERS_GROUP = "cn=all"
Const DOMAIN_GROUP = "cn=domain Users"

Set wshNetwork = CreateObject("WScript.Network")

Set ADSysInfo = CreateObject("ADSystemInfo")

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

strGroups = LCase(Join(CurrentUser.MemberOf))      'lowercase to match the definitions above


'almene mappings

  wshNetwork.MapNetworkDrive "q:","\\serv2\profiles\" & wshNetwork.UserName
 

if strGroups="" then wscript.quit      'ingen gruppe saa afslut

'gruppe mappings

  If (InStr(strGroup, ALLUSERS_GROUP)) Then
        wshNetwork.MapNetworkDrive "x:", "\\serv2\Faelles"
  End If

  If (InStr(strGroup, DIRECTOR_GROUP)) Then
        wshNetwork.MapNetworkDrive "v:",  "\\serv2\Directors"
        wshNetwork.MapNetworkDrive "y:", "\\serv2\Director_Private"
  End If

  If (InStr(strGroup, FINANCE_GROUP)) Then
        wshNetwork.MapNetworkDrive "y:",  "\\serv2\Finance_Private"
  End If

  If (InStr(strGroup, SALES_GROUP)) Then
        wshNetwork.MapNetworkDrive "y:",  "\\serv2\Sales_Private"
  End If

  If (InStr(strGroup, SERVICE_GROUP)) Then
        wshNetwork.MapNetworkDrive "y:",  "\\serv2\service_Private"
  End If

  If (InStr(strGroup, DIRECTORS_GROUP)) Then
        wshNetwork.MapNetworkDrive "r:",  "\\serv2\Directors"
  End If

'end logon script
'-----------------------------:<------------------------------

Fandt fejlen selv

Hvad var fejlen ?