Portail: Clockover.org

Métadonnées du document:
[ Auteur : Clockover ][ Création le : 05/08/2010 ][ Dernière modification le : 26/06/2012 ][ Version : 1.3 ]

Monter des lecteurs réseaux par appartenance au groupe [VBS]

Etat du script: Fonctionnel

Présentation:

Ce script VBS/WSH monte automatiquement des lecteurs réseaux sur des postes Windows.
Il vérifie l'appartenance de l'utilisateur qui l'execute aux groupes indiqués dans la variable "vGroups" puis monte le partage correspondant.

Dans cet exemple, si un utilistateur est membre du groupe "groupe1", il aura le partage "\\serveur1\partage1" monté avec la lettre "lettre1".

Il suffit donc d'appliquer ce script par GPO pour qu'il se lance à l'ouverture de la session d'un/des utilisateur(s).
Il est totalement silencieux.

Le script:

'Connexion lecteurs réseaux suivant l'appartenance de l'utilisateur aux groupes de sécurité.
'Version 0.2 20120626 by Clockover

On error resume next
Set WshNetwork = CreateObject("WScript.Network")

'Variables de configuration
vGroups = "groupe1,groupe2,groupe3"
vLetters = "lettre1,lettre2,lettre3"
vShares = "partage1,partage2,partage3"
vServers = "serveur1,serveur2,serveur3"

''''''''''''''' LECTEURS RESEAUX '''''''''''''''
'Récupération des valeurs de base
vDomain = WshNetwork.UserDomain
vUser = WshNetwork.UserName
aGroups = Split(vGroups,",") 
aLetters = Split(vLetters,",") 
aShares = Split(vShares,",") 
aServers = Split(vServers,",") 

'Check de l'appartenance aux groupes pour monter les lecteurs réseaux
set vUser = GetObject("WinNT://" & vDomain & "/" & vUser)
For Each vGroup In vUser.Groups
	for counter = 0 to UBound(aGroups)  
		'Debug: MsgBox "Working Group = " & vGroup.Name & " Group Research = " & aGroups(counter)
		if vGroup.Name = aGroups(counter) then
			WshNetwork.MapNetworkDrive aLetters(counter), "\\" & aServers(counter) & "\" & aShares(counter)
		end if
	next
next

TODO Liste:

-Vide

Historique:

Version 0.2 (2012/06/26)
-Petite rectification juste pour prendre en compte la possibilité qu'il existe plusieurs serveurs de fichiers.
fleche

Version 0.1 (2010/07/30)
-Création du script et mis en production avec succès.

Il y a 0 commentaire(s) sur ce sujet.