cs_senalia3
Messages postés vendredi 29 avril 2005Date d'inscription
29 mars 2006
Dernière intervention
-
28 mars 2006 à 10:12 - Dernière réponse : cs_senalia3
Messages postés vendredi 29 avril 2005Date d'inscription
29 mars 2006
Dernière intervention
- 29 mars 2006 à 10:50
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 ...
cs_senalia3
Messages postés vendredi 29 avril 2005Date d'inscription
29 mars 2006
Dernière intervention -29 mars 2006 à 10:50
+3
Utile
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
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
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
