Ok tak er der nogle der kan hjælpe mig med dette logon script, det virker ikke rigtig syntes jeg
Const DIRECTOR_GROUP = "cn=director"
Const DIRECTORS_GROUP = "cn=directors"
Const FINANCE_GROUP = "cn=finance"
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")
wshNetwork.MapNetworkDrive "z:",
"\\serv2\profiles\" & wshNetwork.UserName
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("
LDAP://" &
ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
If InStr(strGroups, DIRECTORS_GROUP AND ALLUSERS_GROUP AND DIRECTOR_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Directors\"
wshNetwork.MapNetworkDrive "y:",
"\\serv2\Director_Private\"
ElseIf InStr(strGroups, FINANCE_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Directors\"
wshNetwork.MapNetworkDrive "y:",
"\\serv2\Finance_Private\"
ElseIf InStr(strGroups, FINANCE_GROUP AND ALLUSERS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Finance_Private\"
ElseIf InStr(strGroups, SALES_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Directors\"
wshNetwork.MapNetworkDrive "y:",
"\\serv2\Finance_Private\"
ElseIf InStr(strGroups, SALES_GROUP AND ALLUSERS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Sales_Private\"
ElseIf InStr(strGroups, SERVICE_GROUP AND ALLUSERS_GROUP AND DIRECTORS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Directors\"
wshNetwork.MapNetworkDrive "y:",
"\\serv2\Service_Private\"
ElseIf InStr(strGroups, SERVICE_GROUP AND ALLUSERS_GROUP AND DOMAIN_GROUP) Then
wshNetwork.MapNetworkDrive "x:",
"\\serv2\Faelles\"
wshNetwork.MapNetworkDrive "v:",
"\\serv2\Service_Private\"