Script d'ouverture de session

Chapitres

	Introduction
	Création des partages
	Détail du script

	Page d' acceuil
	Sommaire
	Retour
	Suivant
	imprimer
	Envoyer à un(e) ami(e)

Introduction

L’une des tâches classiques de l’administrateur consiste à créer des Partages sur les postes des utilisateurs, ces partages pouvant être différents selon les utilisateurs et l’appartenance de ce dernier à un service.

Création des partages

La méthode sur Windows Server 2003 comme sous 2000 consiste à créer une stratégie d’ouverture de session appliquée à une Unité d’Organisation.

Le script d’ouverture de session, écrit en vbs ( Visual Basic Scripting ) pourra ête ainsi différent pour chaque unité d’organisation.

Exemple d’application d’un script d’ouverture de session

Sélectionner la stratégie StrAgenceTls , bouton droit Edit

Affichage de la stratégie

Il suffit de cliquer sur le bouton Afficher les fichiers, pour visualiser le script.

Détail su script :

Création des disques connectés à l’ouverture de session pour chaque utilisateur

On souhaite que chaque utilisateur puisse accèder à différents disques

Unité		Utilisation
disque P	comme Public	Disque commun à tout le monde, permet aux différentes personnes de la société de partager des informations
disque M	M comme Modèle	Les modèles de documents de l'entreprise
disque T		Tous les archivages de la Gestion Electronique de Documents

Option Explicit
Dim WshNetwork
On error Resume Next

set WshNetwork = WScript.CreateObject("WScript.Network")

'LECTEUR P: PUBLIC

WshNetwork.RemoveNetworkDrive "P:"
err.clear
WshNetwork.MapNetworkDrive "P:", "\\TLS-SERV01\Public"

if err.number <> 0 then MsgBox "Erreur dans la création du lecteur réseau P:Public" & vbcrlf & "Veuillez prévenir le service Informatique" & vbcrlf & "Erreur : " & err.number & " " & err.description

'LECTEUR M: MODELE

WshNetwork.RemoveNetworkDrive "M:"
err.clear
WshNetwork.MapNetworkDrive "M:", "\\TLS-SERV01\Modeles"

if err.number <> 0 then MsgBox "Erreur dans la création du lecteur réseau M:Modèles" & vbcrlf & "Veuillez prévenir le service Informatique" & vbcrlf & "Erreur : " & err.number & " " & err.description

'LECTEUR T: ARCHIVAGE

WshNetwork.RemoveNetworkDrive "T:"
err.clear
WshNetwork.MapNetworkDrive "T:", "\\TLS-SERV01\Archivage"

if err.number <> 0 then MsgBox "Erreur dans la création du lecteur réseau T:Archivage" & vbcrlf & "Veuillez prévenir le service Informatique" & vbcrlf & "Erreur : " & err.number & " " & err.description

set wshnetwork = nothing

Personnalisation d’un disque dédié à un service :

Une stratégie est appliquée au niveau de l’Unité d’Organisation, elle l’emporte sur la stratégie héritée

Détail du script

Option Explicit
Dim WshNetwork
On error Resume Next

set WshNetwork = WScript.CreateObject("WScript.Network")

'LECTEUR S: SERVICE INFORMATIQUE
WshNetwork.RemoveNetworkDrive "S:"
err.clear
WshNetwork.MapNetworkDrive "S:", "\\TLS-SERV01\ServInformatique"

if err.number <> 0 then MsgBox "Erreur dans la création du lecteur réseau S:Service Informatique" & vbcrlf & "Veuillez prévenir le service Informatique" & vbcrlf & "Erreur : " & err.number & " " & err.description

set wshnetwork = nothing