Se connecter / S'enregistrer
Votre question

Mapper des lecteurs réseaux en fonction des groupes

Tags :
  • Script
  • Programmation
Dernière réponse : dans Programmation
20 Mars 2010 03:02:16

Voila je sais que c'est un sujet qui revient souvent et que plusieurs solution sont données mais j'explique quand même mon problème:

J'effectue un script wsh qui permet de mapper des lecteurs réseaux à des users en fonction de leur groupe d'appartenance.

En algo sa donne :

POUR chaque utilisateur du domaine alors

IF user est membre du group direction alors
IF user est membre du groupe Compta alors
IF user est membre du groupe General alors
ENDIF

FINPOUR

Et j'ai du mal pour ma boucle pour et les déclarations :s

pour le moment j'ai un script de ce style la :

Dim wshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")


CONST DIRECTION_GROUP = "cn=Direction"
CONST COMPTA_GROUP = "cn=Compta"
CONST GENERAL_GROUP = "cn=General"

Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf))



FOR EACH strUserName IN strUserDomain
On Error resume Next

'Suppression des anciens lecteurs réseaux
Set WshNetwork = WScript.CreateObject("WScript.Network")WshNetwork.RemoveNetworkDrive "T:"
Set WshNetwork = WScript.CreateObject("WScript.Network")WshNetwork.RemoveNetworkDrive "N:"
Set WshNetwork = WScript.CreateObject("WScript.Network")WshNetwork.RemoveNetworkDrive "U:"
Set WshNetwork = WScript.CreateObject("WScript.Network")WshNetwork.RemoveNetworkDrive "P:"



'L'objet WshNetwork est obtenu en créant une instance de l'objet COM identifié par le progID «WScript.WshNetwork« :

Set NetworkDisk = WScript.CreateObject("WScript.Network" )

If InStr (strGroups, DIRECTION_GROUP) Then
WshNetwork.MapNetworkDrive "T:", "\\SRV-PERSo\Commun"
WshNetwork.MapNetworkDrive "N:", "\\SRV-PERSO\Compta"
WshNetwork.MapNetworkDrive "U:", "\\SRV-PERSO\Direction"
WshNetwork.MapNetworkDrive "P:", "\\SRV-PERSO\USERS$\%Username%"

ELSEIF InStr (strGroups, COMPTA_GROUP) Then
WshNetwork.MapNetworkDrive "T:", "\\SRV-PERSo\Commun"
WshNetwork.MapNetworkDrive "N:", "\\SRV-PERSO\Compta"
WshNetwork.MapNetworkDrive "P:", "\\SRV-PERSO\USERS$\%Username%"

ELSEIF InStr (strGroups, GENERAL_GROUP) Then
WshNetwork.MapNetworkDrive "T:", "\\SRV-PERSo\Commun"
WshNetwork.MapNetworkDrive "P:", "\\SRV-PERSO\USERS$\%Username%"
END IF

Merci de votre aide !

Autres pages sur : mapper lecteurs reseaux fonction groupes

21 Mars 2010 14:49:46

Petit Up je précise que le langage utilisé est le wsh script aussi appelé vb tks ;) 
m
0
l
25 Mars 2010 14:41:42

Toujours Personne ?
m
0
l
a c 232 L Programmation
25 Mars 2010 19:58:41

Salut,

Quel est le problème exactement ?
Est-ce que tu as une erreur spécifique ? Est-ce qu'une des fonctions est correcte et pas les autres ?
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS