arret machine : suppression du dossier cache
Fichier eleves.bat
Supprimer les exe dans le dossier travail de l'élève et ses sous dossiers
( supprime les fichiers exe du dossier p: magret version 7 ) |
|
Renommer un dossier ( script bat )
Permet de supprimer le raccourci Bureau "PDF-XChange Viewer"
du bureau de all users |
del /s "C:Documents and SettingsAll UsersBureauPDF-XChange Viewer.lnk" |
Renommer un dossier ( script vbs )
Permet de renommer le dossier "openoffice.org.3.0" situé dans le menu démarrer de all users de XP vers "Bureautique" dans le menu démarrer de all users |
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:Documents and SettingsAll UsersMenu DémarrerProgrammesOpenOffice.org 3.0" , "C:Documents and SettingsAll UsersMenu DémarrerProgrammesBureautique" |
Faire des installations personnalisées par salle (script bat )
à faire lors de l'arrêt de la machine de préférence
Remplacer les .... par des instructions
Dans l'exemple , on regarde les 4 premières lettres du nom de l'ordinateur |
REM installation salle 702
IF %COMPUTERNAME:~0,4% EQ S702 .....
ou pour plusieurs instructions
REM installation salle 702
IF %COMPUTERNAME:~0,4% NEQ S702 goto pas_702
......
.......
:pas_702 |
Récupérer les numéros de série des ordis
Mettre le script vbs ci-contre dans NetLogon par exemple,nom du fichier: num_serie.vbs
Créer un dossier "num_serie" dans" j:ressource" , dans ce dossier donner les droits d'écriture aux "ordinateurs du domaine"
Dans magsys.bat rajouter la ligne ci-desous
REM recup numéro de série des ordis
IF not exist Serveur01winappliressourcenum_serie%COMPUTERNAME%.txt Serveur01NETLOGONnum_serie.vbs
|
rem nom du fichier num_serie.vbs
strComputer = "localhost"
Set WshNetwork = WScript.CreateObject("WScript.Network")
NOMMachine = WshNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48 )
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("serveur01winappliressourcenum_serie" & NomMachine &".txt")
For Each objItem in colItems
With MonFic
.writeLine "SerialNumber: " & objItem.SerialNumber
End With
Next
|