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