Portail: Clockover.org

Métadonnées du document:
[ Auteur : Clockover ][ Création le : 24/07/2008 ][ Dernière modification le : 22/01/2009 ][ Version : 4.1 ]

Monter des lecteurs automatiquement sous Windows [VBS]

Etat du script: Fonctionnel

Présentation:

Ce script VBS/WSH monte des lecteurs réseaux sur des postes Windows.
Il peut travailler à l'aide de plusieurs informations pour connaitre les lecteurs à connecter.
Voici ces informations de la plus proche à la plus éloignée de l'utilisateur:
-Le username de l'utilisateur.
-L'OU a laquelle l'utilisateur appartient.
-L'OU mère à l'OU de l'utilisateur.
-Le domaine de l'utilisateur.

Il suffit donc de l'appliquer par GPO pour que le script se lance à l'ouverture de la session d'un/des utilisateur(s).
Ce script sera le compagnion idéal d'une connexion automatique d'imprimante .
Il est totalement silencieux.

Le script:

'Connexion lecteurs par utilisateurs.
'Version 0.2 20090122 by Clockover

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''D&écouvrir dans quelle(s) OU(s) se trouve l'utilisateur'''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objDSE = GetObject("LDAP://rootDSE")
set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"

set oNet = CreateObject("WScript.Network")
sUser = oNet.UserName

' filtre sur le login utilisateur
sFilter = "(&(objectclass=user)(samaccountname=" & sUser & "))"

' Définition des paramètres récupéré : ici DistinguishedName
sQuery = "<LDAP://" & objDSE.Get("defaultNamingContext") & ">" & sFilter & ";distinguishedName;subtree"
Set oRecordSet = oConnection.Execute(sQuery)

usrDN = oRecordset.Fields("distinguishedName").value
oConnection.Close

' Affichage des OU(s)
partie = split(usrDN,",")
OU_Mere = Right(partie(2),Len(partie(2))-3)
OU_Fille = Right(partie(1),Len(partie(1))-3)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''Découvrir le nom d'utilisateur''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set WshNetwork = WScript.CreateObject("WScript.Network")
login = WshNetwork.UserName

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''Application des mappages par rapport aux résultats'''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On error resume next									'Eviter les erreurs et blocages

Set WshNetwork = WScript.CreateObject("WScript.Network")				'Commun à tout le monde
WshNetwork.MapNetworkDrive "X:", "\\serveur\partage"
WshNetwork.MapNetworkDrive "Y:", "\\serveur_distant\partage", ,"login","pass"

if OU_Mere="OU1" then									'Société X
	if OU_Fille="OU2" then 								'Service X
		if login="user1" then							'Utilisateur X
			WshNetwork.MapNetworkDrive "Z:", "\\serveur\perso"
		End If
	End if
End if

TODO Liste:

-Vide

Historique:

Version 0.2 (2009/01/22)
-Enlever la notification des erreurs.
fleche

Version 0.1 (2008/06/10)
-Création du script et mis en production avec succès.

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