Vbscript arret redémarrage spool [Résolu]

Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
- 28 mars 2006 à 10:12 - Dernière réponse :
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
- 29 mars 2006 à 10:50
bonjour tout le monde,

voila, je souhaite créer un script en vb qui me permettrait de gérer l'arret et le redémarrage du service spool.
autre que net stop spooler
net start spooler

en effet je souhaite créer une petite boite de dialogue qui me demanderai quoi faire (soit arret soit démarrage ou soit arret/redémarrage du spool)

si quelqu'un peut m'aider, ca serait vraiment sympa ...
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
- 29 mars 2006 à 10:50
3
Merci
voici ce que j'ai fais

Dim mess, Response, oShell
mess="Voulez vous arrêter le service spool ?" &vbCrLf
Set oShell = Wscript.CreateObject("WScript.Shell")
Reponse = oShell.Popup(mess, 10, "script arrêt redémarrage service spool", vbYesNo)
If Reponse = vbYes Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ='Spooler'")
For Each objService in colListOfServices
objService.StopService()
Wscript.Echo "Spooler d'impression arreté"
Next
Else If Reponse = VbNo then
mess="Voulez vous démarrer le service spool ?" &vbCrLf
Set oShell = Wscript.CreateObject("WScript.Shell")
Reponse = oShell.Popup(mess, 10, "script arrêt redémarrage service spool", vbYesNo)
If Reponse = vbYes Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ='Spooler'")
For Each objService in colListOfServices
objService.StartService()
WScript.Echo "Spooler d'impression démarré"
Next
Else
MsgBox ("Vous avez répondu NON - Arrêt du script !!!")
WScript.Quit
End if
End If
End If
WScript.Quit

et il marche, merci quand meme pour ton aide

Merci cs_senalia 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- 28 mars 2006 à 14:26
0
Merci
Bonjour,

Script de fermeture d'un process.... à adapter
je l'ai testé pour fermeture de "explorer.exe"

Dim Reponse
Dim StrComputer
StrComputer = "."


Set fso = CreateObject("Scripting.FileSystemObject")
Reponse = MsgBox ("Arrêt du Spool. Voulez-vous arrêter le Spool ?????",vbInformation+vbYESNo)


If Reponse = vbNo Then
MsgBox ("Vous avez répondu NON - Arrêt du script !!!")
WScript.Quit
Else
Reponse = vbYES


For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process" )
If Process.Name = "explorer.exe" Then
MsgBox "Le process " & Process.Name & " est actif.....numéro ID: " & Process.ProcessID
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
'MsgBox Process.Name & " id:" & Process.ProcessID &vbcrlf
End if
Next
End If
Set fso = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing

jean-marc
Messages postés
3
Date d'inscription
vendredi 29 avril 2005
Dernière intervention
29 mars 2006
- 29 mars 2006 à 10:35
0
Merci
merci de ton aide JMO,

je vais essayer de le modifier et je te tiens au courant.

merci encore

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.