Bannière

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:

flecheflecheVersion 0.2 (2012/06/26)
-Petite rectification juste pour prendre en compte la possibilité qu'il existe plusieurs serveurs de fichiers.
flecheflecheVersion 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.
L'intégralité du portail est placé sous licence Creative Commons License NC v2.0 (sauf mentions contraires indiquées sur les pages et/ou documents concernés !). Version: 4.2
Ce portail répond normalement aux critères de compatibilité XHTML v1.1 et CSS v2.0 du W3C:
Valid XHTML 1.1! Valid CSS 2.0!

Page générée en 0.008 secondes