script d'ouverture de session en WSH - VB/VBA/VBS - Programmation
Marsh Posté le 03-06-2005 à 08:42:12
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 +
Marsh Posté le 01-06-2005 à 09:27:59
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