VBScript Verifier si 1 service est Stop/Start

Bonjour tout le monde, je dois faire un script en VBScirpt qui vérifie si un service windows est démarré ou stoppé.

J'ai déjà une partie du script trouvé sur ce site qui me permet de le démarrer:

'-----------------------------------------------------------------------------------------­-----------------------------------------------
' Fichier VBScript : "StartService.vbs"
' Démarrage du service
'-----------------------------------------------------------------------------------------­-----------------------------------------------
Dim objFSO, objWMIService, objService, colServiceList
Dim objReseau, Ordinateur
Dim Reponse

Set objReseau = CreateObject("WScript.Network")
Ordinateur = LCase(objReseau.ComputerName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='EMDMgmt'")
For Each objService In colServiceList
If (objService.Name = "EMDMgmt") Then
Reponse = objService.StartService()
End If
Next
Set objFSO = Nothing
Set objReseau = Nothing
WScript.Quit
'-----------------------------------------------------------------------------------------­-------


Ce code permet de démarrer ReadyBoost de Vista.

Dans la parti suivante qui fait démarrer le service

For Each objService In colServiceList
If (objService.Name = "EMDMgmt") Then
Reponse = objService.StartService()
End If

Je voudrais un truc du genre

For Each objService In colServiceList
If (objService.Name = "EMDMgmt") Then
Si le service est start alors ne rien faire
Sinon
Reponse = objService.StartService()
Fin Si
End If


Quelqu'un aurait une idée?