 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : pourquoi mon login script lecteurs ne fonctionne pas?? | |
| ver | bonjour a tous!!
je me demande pourquoi mon script ne fonctionne pas!! je veux simplement que mes users puissent avoir leur lecteur quand ils se connectent... j'ai un serveur 2003 win et les users soit win 2003 soit xp mon script s'execute mais il y a toujours une erreure au niveau de la ligne 11 :??: :??: :??: voici mon script: Const comptabilite_GROUP = "cn=comptabilite" Const vente_GROUP = "cn=vente" Const administration_GROUP = "cn=administration" Const technique_GROUP = "cn=technique" Const rnd_GROUP = "cn=rnd" Set wshNetwork = CreateObject("WScript.Network" ) rem commun a tous: ligne 11: wshNetwork.MapNetworkDrive "f:", "\\FileServer\users\" & wshNetwork.UserName rem info sur l'user-connect: Set ADSysInfo = CreateObject("ADSystemInfo" ) Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) rem (phisique) pour les groupes -> lecteur g: If InStr(strGroups, comptabilite_GROUP) Then wshNetwork.MapNetworkDrive "g:", "\\FileServer\comptabilite\" ElseIf InStr(strGroups, vente_GROUP) Then wshNetwork.MapNetworkDrive "g:", "\\FileServer\vente\" ElseIf InStr(strGroups, administration_GROUP) Then wshNetwork.MapNetworkDrive "g:", "\\FileServer\administration\" ElseIf InStr(strGroups, technique_GROUP) Then wshNetwork.MapNetworkDrive "g:", "\\FileServer\technique\" ElseIf InStr(strGroups, rnd_GROUP) Then wshNetwork.MapNetworkDrive "g:", "\\FileServer\rnd\" rem cummun a tous rep. public -> lecteur h: wshNetwork.MapNetworkDrive "f:", "\\FileServer\public\" End If Merci beaucoup :) :) |
| Vue Rapide de la discussion |
|---|
