Cracker un point d'accès wifi
Prendre le control du compte root
Horloge en temps réel par internet
Naviguer en toute sécurité
Accélerer le démarrage de Windows
Windows
Scripts
VBScript
Connecter des lecteurs réseau (selon nom utilisateur, nom machine ...)
Pour : Windows
Voici un script VBS que qui permet de monter des lecteurs réseau.
Nous avons commenté le script avec '*** afin d'expliquer clairement les étapes.
Dans notre exemple nous allons mapper le lecteur "Y" sur sur le partage "Doc-1" du serveur "srv-2003" et le lecteur "Z" sur sur le partage "Doc-2" du serveur "srv-2003".
Script VBS:
Titre = "Lecteurs Y et Z pour tout le monde"
'*** Déclaration des variables
Dim ObjetNetwork
'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next
'*** Definition du contenu de la variable
Set ObjetNetwork = CreateObject("WScript.Network")
'*** => Déconnection des anciens lecteurs réseaux
ObjetNetwork.RemoveNetworkDrive "Y:"
ObjetNetwork.RemoveNetworkDrive "Z:"
'*** Connection des lecteurs réseaux
ObjetNetwork.MapNetworkDrive "Y:", "\\srv-2003\Doc-1"
ObjetNetwork.MapNetworkDrive "Z:", "\\srv-2003\Doc-2"
On Error GoTo 0
'*** Destruction des objets
Set ObjetNetwork = Nothing
WScript.Quit
Maintenant on va voir pour monter un lecteur réseau à seulement un utilisateur.
Dans notre exemple on va ajouter le lecteur "Q" uniquement à l'utilisateur qui ce nomme "cedric".
Nous avons surligné en rouge les lignes qui ont été ajoutées dans le script ci-dessous.
Script VBS:
Titre = "Lecteurs Q pour l'utilisateur Cédric"
'*** Déclaration des variables
Dim ObjetNetwork
'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next
'*** Definition du contenu de la variable
Set ObjetNetwork = CreateObject("WScript.Network")
'*** => Déconnection des anciens lecteurs réseaux
ObjetNetwork.RemoveNetworkDrive "Q:"
ObjetNetwork.RemoveNetworkDrive "Y:"
ObjetNetwork.RemoveNetworkDrive "Z:"
'*** Connection des lecteurs réseaux
ObjetNetwork.MapNetworkDrive "Y:", "\\srv-2003\Doc-1"
ObjetNetwork.MapNetworkDrive "Z:", "\\srv-2003\Doc-2"
On Error GoTo 0
'*** Ajouter le lecteur Q: uniquement a l'utilisateur "cedric"
If ObjetNetwork.UserName = "cedric" Then
ObjetNetwork.MapNetworkDrive "Q:", "\\srv-2003\Partage-chef"
End If
On Error GoTo 0
'*** Destruction des objets
Set ObjetNetwork = Nothing
WScript.Quit
Pour finir, nous allons voir comment ajouter un lecteur réseau uniquement si l'utilisateur ce connecte sur un poste en particulier.
Dans notre exemple nous allons monter le lecteur "R" uniquement si le poste où va s'exécuter le script porte le nom de "PC-XP-1" (PS:Nom du PC est sensible au caractère).
Nous avons surligné en bleu les lignes qui ont été ajoutées dans le script ci-dessous.
Script VBS:
'*** Déclaration des variables
Dim ObjetNetwork
'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next
'*** Definition du contenu de la variable
Set ObjetNetwork = CreateObject("WScript.Network")
'*** => Déconnection des anciens lecteurs réseaux
ObjetNetwork.RemoveNetworkDrive "Q:"
ObjetNetwork.RemoveNetworkDrive "R:"
ObjetNetwork.RemoveNetworkDrive "Y:"
ObjetNetwork.RemoveNetworkDrive "Z:"
'*** Connection des lecteurs réseaux
ObjetNetwork.MapNetworkDrive "Y:", "\\srv-2003\Doc-1"
ObjetNetwork.MapNetworkDrive "Z:", "\\srv-2003\Doc-2"
On Error GoTo 0
'*** Ajouter le lecteur Q: uniquement a l'utilisateur "cedric"
If ObjetNetwork.UserName = "cedric" Then
ObjetNetwork.MapNetworkDrive "Q:", "\\srv-2003\Partage-chef"
End If
On Error GoTo 0
'*** Ajouter le lecteur Q: uniquement si le nom du PC est "PC-XP-1" (PS:Nom du PC est sensible au caractère)
If ObjetNetwork.ComputerName = "PC-XP-1" Then
ObjetNetwork.MapNetworkDrive "R:", "\\srv-2003\Doc-service"
End If
On Error GoTo 0
'*** Destruction des objets
Set ObjetNetwork = Nothing
WScript.Quit
Pour résumer, le script de l'exemple ci-dessus permet de connecter les lecteurs "Y" et "Z" sans aucune condition.
Le lecteur "Q" ne se connectera que sous la session de l'utilisateur "cedric".
Et le lecteur "R" sous n'importe quel session utilisateur qui s'ouvrira sur le poste qui se nomme "PC-XP-1".
Par O.Cédric
Sur www.octetmalin.net
Article publié le:
28/02/2013 19:52
Cette page vous à plus?
Dîtes que vous l'aimez en cliquant sur le bouton Facebook.
