 |
 |
 |
 |
|
 |
 |
Etude de cas ISIS
Automate
TSMSI-A12
Page 23
10/04/2006
10.
Scripts d’ouverture de session
Et voici le contenu du fichier SCRIPT_AUTO.bat :
Gpupdate /force
Pour être sûr que la GPO soit appliquée
net use P: \\serveur\commun\ /PERSISTENT:YES
Met en place le partage commun
net use U: \\serveur\%USERNAME%\ /PERSISTENT:YES
Met en place le partage de l’user
mkdir D:\Auto
on s’assure que le repertoire auto sur D:\ est crée
mkdir D:\Auto\Appli1\
on s’assure que le repertoire Appli1 sur D:\Auto\ est crée
xcopy /z ‘‘\\serveur\Applications\AUTO\Appl1\*.*’’ ‘‘D:\Auto\Appli1\’’
On copie l’appli1
du serveur vers le local
\\serveur\Script\AUTO_Appli1.vbs
On lance le script VBS pour avoir l’appli1 sur le bureau
\\serveur\Script\AUTO_Appli2.vbs
On lance le script VBS pour avoir l’appli2 sur le bureau
\\serveur\Script\lecteur_commun.vbs
On lance le lecteur réseau commun sur le bureau
\\serveur\Script\lecteur_personnel.vbs
On lance le lecteur réseau personnel sur le bureau
Contenue du script vbs AUTO_Appli1.vbs
Création du raccourci sur le bureau de l’application locale
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Test de QI.lnk")
URL.TargetPath = "D:\Auto\Appli1\Test de QI.exe"
URL.Save
Contenue du script vbs AUTO_Appli2.vbs
Création du raccourci sur le bureau de l’application locale
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Warrior - Reseau.lnk")
URL.TargetPath = "\\serveur\Applications\AUTO\Appli2\Warrior - Reseau.exe"
URL.Save
Contenue du script vbs lecteur_commun.vbs
Création du raccourcis du lecteur réseau P: (commun)
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Commun.lnk")
URL.TargetPath = "P:"
URL.Save
Contenue du script vbs lecteur_personnel.vbs
Création du raccourcis du lecteur réseau U: (personnel)
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Personnel.lnk")
URL.TargetPath = "U:"
URL.Save
 |