Bonjour,
 
Je commence actuellement une PTI pour mon BTS informatique et je seche un peu sur un script en WSH que je n'arrive pas trop à comprendre.
 
Mon script de connexion commence comme cela:

set wshnetwork = createobject("Wscript.network" )
 
Wscript.echo "nom utilisateur: " & Wshnetwork.username
#### pour visualiser lors du login
 
wshnetwork.mapnetworkdrive "U:", "\\192.168.0.1\" & wshnetwork.username
wshnetwork.mapnetworkdrive "T:", "\\192.168.0.1\Commun"
 
 
 
Et donc voila mon probleme. Je souhaiterais automatiser la gestion du mappage du dossier réseau relatif au groupe des personnes. Sachant qu'une personne n'est que dans un seul groupe dans mon cas (par exemple l'user "compt1" dans le groupe "comptabilité" )
J'ai bien trouvé ceci en fouillant un peu partout mais cela ne fonctionne pas. Par ailleurs, débutant en wsh je ne comprend pas la signification de la ligne 8, 9 et 10 (Set ADSysInfo ...)
 
 
Const ENGINEERING_GROUP  = "cn=engineering"
Const FINANCE_GROUP         = "cn=finance"  
Const HUMAN_RESOURCES_GROUP = "cn=human resources"
 
Set wshNetwork = CreateObject("WScript.Network" )
wshNetwork.MapNetworkDrive "h:", "\\FileServer\Users\" & wshNetwork.UserName
 
Set ADSysInfo = CreateObject("ADSystemInfo" )
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
 
If InStr(strGroups, ENGINEERING_GROUP) Then
    wshNetwork.MapNetworkDrive "g:", "\\FileServer\Engineering\"
 
ElseIf InStr(strGroups, FINANCE_GROUP) Then
    wshNetwork.MapNetworkDrive "g:", "\\FileServer\Finance\"
 
ElseIf InStr(strGroups, HUMAN_RESOURCES_GROUP) Then
    wshNetwork.MapNetworkDrive "g:", "\\FileServer\Human Resources\"
 
End If
 

personne pour un coup de main, parce que là je seche  

Bonjour,
 
Essaie ca pour le mappage :
 
Function creation_partage (lettre, serveur, repertoire)
 
 Set WshNetwork = WScript.CreateObject("WScript.Network" )
 On Error Resume Next
 WshNetwork.MapNetworkDrive  lettre & ":", "\\" & serveur & "\" & repertoire
 
End Function
 
Si tu as une AD essaie ca :
 
'==============================================================================
' Declaration des OBJETS
'------------------------------------------------------------------------------
Set ObjNetwork = WScript.CreateObject("WScript.Network" )
Set ObjShell   = WScript.CreateObject("WScript.Shell" )
Set objFSO     = CreateObject("Scripting.FileSystemObject" )
matricule = ObjNetwork.Username
Set ObjUtilisateur   = GetObject("LDAP://cn="ton_user",OU=ton_OU,dc=ton_domaine" )
 
'==============================================================================
 
'==============================================================================
' Connexion des Opérateurs  
'------------------------------------------------------------------------------
 
For Each oGroupe in ObjUtilisateur.MemberOf  
 Select Case UCase(oGroupe)  
    '--------------------------------------------------------
    ' Connexion  
    '--------------------------------------------------------
     Case UCase("cn=ton_group,ou=ton_ou,dc=ton_domaine" )
   creation_partage "M", "ton_serveur", "mon_rep"
     Case UCase("cn=ton_group,ou=ton_ou,dc=ton_domaine" )
   creation_partage "M", "ton_serveur", "mon_rep"
         
     End Select
Next
 
Essaie je te promets rien  
 
Bon courage pr les PTI !    
 
A +