Arret Relance Service

**chamrock** · 11/05/2009, 09h51

Bonjour,

Etant une personne qui debute dans le VBS je vous demande un petit coup de main.

je dois faire 2 scripts.

- 1 script qui fait un arret de Service avec en 1er parametre le demarrage ou l'arret du Service et en 2eme parametre le nom du service que je veux arreter.

- 2 eme Script qui me permet de killer le ou les process. Dans ce Script, si c'est possible je voudrais verifier s'il existe plusieurs process du meme nom par ex: toto.exe et lorsqu on lance le script celui-ci va checker le nombre de process et tous les killer. Dans le Script il faudra passer en parametre le nom du process a killer.

Dernier petit point, je voudrais logguer dans un fichier text les differentes actions faites ainsi que dans le journal d'evenement.

Merci pour votre aide. Je sais qu'il y a des sujets similaires a ma demande mais commeje vous l ai dit je suis debutant et je n'arrive pas a mettre en place tous cela .

Merci pour votre aide en tout cas.

PS: J'espere que j'ai eté claire dans ma demande

**RomainGau** · 11/05/2009, 16h35

Salut chamrock,

Pour ta question 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Alerter'")
For Each objProcess in colProcessList
objProcess.StopService()
Next

Pour la 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name
= 'Notepad.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next