PC Administration du réseau
Outils d'administration
Script VBS pour lancer le BATCH ViderSpouleur.bat

Un script pour lancer ViderSpouleur.bat avec confirmation :
'-----------------------------------------------------------------------------
' Fichier : ViderSpouleur.vbs
' Créé par Pascal Arnould le 04/06/2006 ; Modifié le 04/06/2006
'-----------------------------------------------------------------------------
' Procédure d'arrêt du spouleur d'impression
'           de suppression des documents de la file d'impression
'        et de redémarrage du soupleur d'impression...
' Ce script lance le batch "ViderSpouleur.bat" qui doit se trouver dans le
' même dossier. Si ce n'est pas le cas, modifier le chemin (variable Batch).
' On peut ensuite créer un raccourci vers ce script vbs, en spécifiant la
' cible : C:\WINDOWS\system32\wscript.exe ViderSpouleur.vbs
'-----------------------------------------------------------------------------
' Déclaration des variables :
Option Explicit
Dim Message, Reponse
Dim WshShell, intReturn
Dim Batch
'-----------------------------------------------------------------------------
' Initialisation des variables :
Set WshShell = CreateObject("WScript.Shell")
Batch = "ViderSpouleur.bat" ' ou "\\Serveur\Toto\ViderSpouleur.bat" par ex.
'-----------------------------------------------------------------------------
' Demande de validation pour l'exécution de cette fonction
Message = "La file d'impression va être vidée de tous les documents en cours d'impression." & vbCrLf & "Voulez-vous continuer ?"
Reponse = MsgBox(Message, vbYesNo + vbQuestion + vbDefaultButton1, "Arrêt du spouleur d'impression")
'-----------------------------------------------------------------------------
If Reponse = vbYes Then
  ' Lancement du batch ViderSpouleur.bat
  intReturn = WshShell.run(Batch)
  ' Affichage de la fin d'exécution
  If intReturn = 0 then
    Message = "Quand la fenêtre d'exécution (fond noir) se sera refermée," & vbCrLf & "la file d'impression aura été vidée" & vbCrLf & "et le service d'impression sera prêt pour de nouvelles impressions."
    Reponse = MsgBox(Message, vbOkOnly, "Service d'impression")
  Else
    Message = "La procédure ne s'est pas exécutée." & vbCrLf & "Contactez l'administrateur du réseau."
    Reponse = MsgBox(Message, vbOkOnly, "ERREUR !")
  End If
End If
'-----------------------------------------------------------------------------
WScript.Quit

Outils d'administration
Administration du réseau
Rubrique Informatique