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
'-----------------------------:<------------------------------