Bonjour,

Je tente de faire un VBscript qui vérifie un certain nombre de service afin d'afficher la page Web dans le menu active destop du mon Pc (ça m'éviterai de me connecter sur X serveurs pour vérifier les services)

je n'ai pas de problème pour vérifier si les services tournent ou pas mais j'amerai que se soit beau

Pour l'instant mon script c'est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
<SCRIPT LANGUAGE = VBScript>
<!--
strComputer = "serveurtest"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colStoppedServices = objWMIService.ExecQuery _
    ("Select * From Win32_Service Where DisplayName = 'PCIA1")
For Each objService in colStoppedServices
document.write objService.DisplayName & " = " & objService.State      
Next
</SCRIPT>
ce qui me donne :


PCIA1 = Running

J'aimerai qu'il m'affiche un petit rond vert si le service à pour état Running et Un rond rouge si il n'est pas en état Running.

du genre :

PCIA1 si il tourne et PCIA1 si il ne troune pas

pouvez vous m'aider ?