Afficher image si condition respectée

**Yogui74** · 18/03/2008, 18h00

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 ?

**ced600** · 19/03/2008, 15h10

Je ne sais pas quelle sont tes conditions pour les OS, mais si tu peux mettre une machine sous linux tu devrais peut être changer d'orientation.
Je m'explique :

Ce que tu fais c'est de la supervision de service, de porgrame, de serveur.
Un outil fonctionnant sous linux, super performant, et gratuit est disponible sur le net : Nagios.

En plus je ne crois pas qu'il soit très compliqué à mettre en place, et il est bien plus complet que ce que tu feras. Et tu peux consuilté l'état d'un serveur, d'un service, ... via une page web.

Edit : il existe des outils pour que nagios puisse superviser des serveurs MS, mais un certain nombre de fonctionnalité ne sont pas dev. -> on peut apparement créer des scripts pour rajouter certaine fonctionnalité.

**RadPAT** · 19/03/2008, 16h50

Salut,

sinon tu peux passer par un HTA...envoie nous ton script complet pour voir ce que l'on peut faire.

A++

**Yogui74** · 19/03/2008, 17h02

Envoyé par RadPAT

Salut,

sinon tu peux passer par un HTA...envoie nous ton script complet pour voir ce que l'on peut faire.

A++

j'ai pris ton idée de passer par un HTA mais problème identique je ne sais pas comment récupérer un variable d'un VBscript vers le HTA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
<HTA:APPLICATION ID="HTA" />
<HTML>
<HEAD>
 
 
</HEAD>
<BODY>
<SCRIPT LANGUAGE = VBScript>
<!--
 
strComputer = "srvoracle"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colStoppedServices = objWMIService.ExecQuery _
    ("Select * From Win32_Service Where DisplayName = 'PCIA-EXP")
For Each objService in colStoppedServices
document.write objService.DisplayName & " = " & objService.State         
Next
</SCRIPT>
 
<BODY>

**Yogui74** · 19/03/2008, 16h59

Envoyé par ced600

Je ne sais pas quelle sont tes conditions pour les OS, mais si tu peux mettre une machine sous linux tu devrais peut être changer d'orientation.
Je m'explique :

Ce que tu fais c'est de la supervision de service, de porgrame, de serveur.
Un outil fonctionnant sous linux, super performant, et gratuit est disponible sur le net : Nagios.

En plus je ne crois pas qu'il soit très compliqué à mettre en place, et il est bien plus complet que ce que tu feras. Et tu peux consuilté l'état d'un serveur, d'un service, ... via une page web.

Edit : il existe des outils pour que nagios puisse superviser des serveurs MS, mais un certain nombre de fonctionnalité ne sont pas dev. -> on peut apparement créer des scripts pour rajouter certaine fonctionnalité.

désolé il n'est pas possible de passer sous linux une trentaine de serveurs

**AlainTech** · 20/03/2008, 03h36

Envoyé par Yogui74

désolé il n'est pas possible de passer sous linux une trentaine de serveurs

Qui te parle de changer tes serveurs?
Une machine Linux avec Nagios dessus peut te montrer l'état de tous tes serveurs de manière graphique ainsi que l'état de différents services avec, en prime, l'envoi de mails en cas d'alarme.

**SfJ5Rpw8** · 20/03/2008, 07h43

et en faisant un test sur ton status ... modifie la ligne :

Code :

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

1
2
 
document.write objService.DisplayName & " = " & objService.State

par

Code :

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

1
2
3
4
5
6
7
8
9
 
 
IF objService.State="Running" THEN
	MonStatus   = "<img src=""http://www.developpez.net/forums/images/smilies/toine.gif"">"
	else
	MonStatus   = "<img src=""http://www.developpez.net/forums/images/smilies/evilred.gif"">"
End if
 
document.write objService.DisplayName & " = " & MonStatus

**RadPAT** · 20/03/2008, 12h28

Salut,

quand je te parlai HTA, je pensai plus à qque chose comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
 
<html>
<head>
<title>ProcessMonitor.Hta</title>
<HTA:APPLICATION
     ID="ProcessMonitor"
     APPLICATIONNAME="ProcessMonitor"
     SCROLL="no"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
     CAPTION="yes"
>
</head>
<style>
BODY
{
   background-color: buttonface;
   font-family: Helvetica;
   font-size: 10pt;
   margin-top: 10px;
   margin-left: 20px;
   margin-right: 20px;
   margin-bottom: 10px;
}
#ListView1		{
					font-size: 11px;
				}
#ListView2		{
					font-size: 11px;
				}
 
.button
{
   font-family: Helvetica;
   font-size: 8pt;
}
</style>
 
<SCRIPT Language="VBScript">
 
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Computers.txt", ForReading)
 
Sub Window_Onload
 
    ListView1.font = "arial"
    ListView1.View = 3
    ListView1.GridLines = True
    ListView1.ColumnHeaders.Add , , "Server Name", 130
 
    ListView2.font = "arial"
    ListView2.View = 3
    ListView2.GridLines = True
    ListView2.ColumnHeaders.Add , , "Name", 150
    ListView2.ColumnHeaders.Add , , "Status", 90
 
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
    For Each objItem in colItems
        intHorizontal = objItem.ScreenWidth
        intVertical = objItem.ScreenHeight
    Next
 
    XPos = 450
    YPos = 410
 
    intLeft = (intHorizontal - XPos) / 2
    intTop = (intVertical - YPos) / 2
 
    self.ResizeTo Xpos,YPos
    window.moveTo intLeft, intTop
 
    Do Until objFile.AtEndOfStream
       strLine = objFile.ReadLine
       If strLine <> "" Then
          Set itmx = ListView1.ListItems.Add(, ,strLine)
       End If
    Loop
 
 
End Sub
 
Sub ListView1_ColumnClick(ColumnHeader)
	With ListView1
		.Sorted = False
		.SortKey = ColumnHeader.Index - 1
		If .SortOrder = 0 Then
			.SortOrder = 1
		Else
			.SortOrder = 0
		End If
		.Sorted = True
	End With
End Sub
 
Sub ListView1_Click
 
    strC = ListView1.SelectedItem.Text
    ListView2.ListItems.Clear()
 
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strC & "\root\cimv2")
    Set colServices = objWMIService.ExecQuery("Select * From Win32_Service")
    For Each objService in colServices
        Set itmY = ListView2.ListItems.Add(, ,objService.Name)
        itmY.SubItems(1) = objService.State
    Next
 
End sub
 
Sub ListView2_ColumnClick(ColumnHeader)
	With ListView2
		.Sorted = False
		.SortKey = ColumnHeader.Index - 1
		If .SortOrder = 0 Then
			.SortOrder = 1
		Else
			.SortOrder = 0
		End If
		.Sorted = True
	End With
End Sub
 
Sub Window_OnUnload
 
    Quitter
 
End Sub
 
Sub Quitter
 
    self.Close()
 
End sub
 
</SCRIPT>
 
<body bgcolor="buttonface">
<Big><Big><Big><ul><u>
<Center>
Service Monitor
</Big></Big></Big></ul></u>
</Center>
 
<table WIDTH="100%" BORDER=1>
<td valign="top" COLUMN=1>
 
<td width="130" height="220" style="border: 1px solid #C0C0C0">
<OBJECT ID="ListView1" WIDTH=130 HEIGHT=220 CLASSID="CLSID:BDD1F04B-858B-11D1-B16A-00C0F0283628">
		        <PARAM NAME="SortKey" VALUE="0">
		        <PARAM NAME="View" VALUE="3">
		        <PARAM NAME="Arrange" VALUE="0">
		        <PARAM NAME="LabelEdit" VALUE="1">
		        <PARAM NAME="SortOrder" VALUE="0">
		        <PARAM NAME="Sorted" VALUE="-1">
		        <PARAM NAME="MultiSelect" VALUE="0">
		        <PARAM NAME="LabelWrap" VALUE="-1">
		        <PARAM NAME="HideSelection" VALUE="0">
		        <PARAM NAME="HideColumnHeaders" VALUE="0">
		        <PARAM NAME="OLEDragMode" VALUE="0">
		        <PARAM NAME="OLEDropMode" VALUE="0">
		        <PARAM NAME="AllowReorder" VALUE="-1">
		        <PARAM NAME="Checkboxes" VALUE="0">
		        <PARAM NAME="FlatScrollBar" VALUE="0">
		        <PARAM NAME="FullRowSelect" VALUE="-1">
		        <PARAM NAME="GridLines" VALUE="-1">
		        <PARAM NAME="HotTracking" VALUE="0">
		        <PARAM NAME="HoverSelection" VALUE="0">
		        <PARAM NAME="PictureAlignment" VALUE="0">
	                <PARAM NAME="TextBackground" VALUE="0">
                        <PARAM NAME="ForeColor" VALUE="-2147483640">
	                <PARAM NAME="BackColor" VALUE="-2147483624">
		        <PARAM NAME="BorderStyle" VALUE="0">
		        <PARAM NAME="Appearance" VALUE="0">
		        <PARAM NAME="MousePointer" VALUE="0">
		        <PARAM NAME="Enabled" VALUE="1">
		        <PARAM NAME="NumItems" VALUE="0">
	   		<param name="OLEDragMode" value="0">
			<param name="OLEDropMode" value="0">
</OBJECT>
 
<td width="240" height="220" style="border: 1px solid #C0C0C0">
<OBJECT ID="ListView2" WIDTH=240 HEIGHT=220 CLASSID="CLSID:BDD1F04B-858B-11D1-B16A-00C0F0283628">
		        <PARAM NAME="SortKey" VALUE="0">
		        <PARAM NAME="View" VALUE="3">
		        <PARAM NAME="Arrange" VALUE="0">
		        <PARAM NAME="LabelEdit" VALUE="1">
		        <PARAM NAME="SortOrder" VALUE="0">
		        <PARAM NAME="Sorted" VALUE="-1">
		        <PARAM NAME="MultiSelect" VALUE="0">
		        <PARAM NAME="LabelWrap" VALUE="-1">
		        <PARAM NAME="HideSelection" VALUE="0">
		        <PARAM NAME="HideColumnHeaders" VALUE="0">
		        <PARAM NAME="OLEDragMode" VALUE="0">
		        <PARAM NAME="OLEDropMode" VALUE="0">
		        <PARAM NAME="AllowReorder" VALUE="-1">
		        <PARAM NAME="Checkboxes" VALUE="0">
		        <PARAM NAME="FlatScrollBar" VALUE="0">
		        <PARAM NAME="FullRowSelect" VALUE="-1">
		        <PARAM NAME="GridLines" VALUE="-1">
		        <PARAM NAME="HotTracking" VALUE="0">
		        <PARAM NAME="HoverSelection" VALUE="0">
		        <PARAM NAME="PictureAlignment" VALUE="0">
	                <PARAM NAME="TextBackground" VALUE="0">
                        <PARAM NAME="ForeColor" VALUE="-2147483640">
	                <PARAM NAME="BackColor" VALUE="-2147483624">
		        <PARAM NAME="BorderStyle" VALUE="0">
		        <PARAM NAME="Appearance" VALUE="0">
		        <PARAM NAME="MousePointer" VALUE="0">
		        <PARAM NAME="Enabled" VALUE="1">
		        <PARAM NAME="NumItems" VALUE="0">
	   		<param name="OLEDragMode" value="0">
			<param name="OLEDropMode" value="0">
</OBJECT>
 
</td>
</tr>
 
<table WIDTH="100%" BORDER=1>
<td VALIGN=TOP WIDTH="25%" COLSPAN=2>
<table BORDER=0>
</fieldset>
 
<center>
</table>
<fieldset>
<br>
<input id=Quitbutton  class="button" type="button" value="   Quit   " name="Quitter_Button"  onClick="Quitter">
</center>
<br>
</fieldset>
</body>
</html>

C'est juste un exemple vite fait, ce sera à optimiser ou réagencer suivant tes besoins.
NB tu dois créer dans la meme directory que le HTA un fichier Computers.Txt où sont rangées la liste des machines à monitorer avec une machine par ligne, comme ceci :

Machine1
Machine2
.../...

Je crois qu'il est possible de mettre des images dans une listeview ou des couleurs différentes suivant le statut, à vérifier.
Sinon, après tu peux faire un click sur la colonne Status afin d'avoir un tri sur les différents statut.

A++

**Yogui74** · 20/03/2008, 15h47

Envoyé par bbil

et en faisant un test sur ton status ... modifie la ligne :

Code :

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

1
2
 
document.write objService.DisplayName & " = " & objService.State

par

Code :

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

1
2
3
4
5
6
7
8
9
 
 
IF objService.State="Running" THEN
	MonStatus   = "<img src=""http://www.developpez.net/forums/images/smilies/toine.gif"">"
	else
	MonStatus   = "<img src=""http://www.developpez.net/forums/images/smilies/evilred.gif"">"
End if
 
document.write objService.DisplayName & " = " & MonStatus

je prend cette solution pour mon problème qui été d'afficher une image celui une condition

Mais merci à tous

**Yogui74** · 20/03/2008, 14h16

Envoyé par AlainTech

Qui te parle de changer tes serveurs?
Une machine Linux avec Nagios dessus peut te montrer l'état de tous tes serveurs de manière graphique ainsi que l'état de différents services avec, en prime, l'envoi de mails en cas d'alarme.

Je n'avais pas lu de doc sur nagios... c'est maintenant fait effectivement ça pourrai mais j'aimerai aussi prévoir dans mon HTA (qui maintenant est adopté) ce qui me bloque pour Nagios c'est la partie cliente (il me semble avoir compris qu'il en faut une)

la gestion des alertes est casiment déjà présente par les 10 appels que j'ai dans la minutes ou certains services tombent

Afficher image si condition respectée

VBScript

Vue hybride

Discussions similaires

Partager

Partager