[VBS] Pingeur Schématisé en VBScript

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Pingeur Schématisé en VBScript

grunchy56

Bonjour à vous,
Je vais essayer de vous expliquer ce que j'essaye de mettre en place.
J'aimerai, si cela possible de créer un pingeur en vb script (existant) avec des voyants (rouge et vert selon l'état) qui superpose le schéma réseau du parc.

- Dans un 1er temps j'ai commencé par créer un pingeur sous forme de tableau que voici (éditer en .hta avec couche web) :
<HTML>
<HEAD>
<META http-equiv="refresh" type="text/html" content="300">
<TITLE>PING and PONG</TITLE>
<HTA:APPLICATION ID="PING" APPLICATIONNAME="PING">
<script language="VBScript">
Sub list_equipement (qui,what,was)

document.write "<H2 style='background:BLACK; color:yellow; margin-bottom:4px;' >" & qui & "</H2>"
document.write "<table width=100% cellpadding=0 cellspacing=0>"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2" )
i = 0
For Each Network in what
document.write "<tr><td> </td><td style='width:70%; border-bottom:1px solid grey'> "
document.write was(i) & "</td><td style='width:100px;'>"
Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '" & Network & "'" )
For Each objItem in colItems
if IsNUll(objItem.StatusCode) or objItem.StatusCode<>0 then
document.write "<DIV style='background:red; color:yellow'>" & Network & "</DIV>"
else
document.write "<DIV style='background:green; color:yellow'>" & Network & "</DIV>"
end if
Next
i = i+1
document.write "<td> </td></tr>"
Next
document.write "</table>"

End Sub
</SCRIPT>
</HEAD>
<BODY>
<script language="VBScript">

dim TEST(2)
dim comment_test(2)
comment_test(0) = "Test de bouclage"
comment_test(1) = "Test local"
TEST(0) = "127.0.0.1"
TEST(1) = "192.168.0.5"
call list_equipement ("TEST DE PING",TEST,comment_test)

</script>
</BODY>
</HTML>

- Dans un second temps j'ai mis en place un tableau en javascript qui place les voyants en fonction du placement des équipements réseaux sur le schéma:
<html>
<head>
<meta http-equiv="refresh" type="text/html" content="300">
<title>Tableau voyant</title>
<style type="text/css">
body {
}
</style>
</head>
<body>
<script language="javascript">
document.write ('<table border="0" style="background-image: url(./reseau.jpg); background-repeat: no-repeat; width: 1100px; display: block; margin: 0 0 0 0;">');
for (x=0; x<30; x++){
document.write ('<tr border="0" style="height: 21px; width: 21px;">');
for (y=0; y<20; y++){
if (x==21&y==4)
document.write('<td style="border:0px solid grey; background-image:url(./red.png); "></td>');
else


if (x==12&y==4)
document.write('<td style="border:0px solid grey; background-image:url(./green.png); "></td>');
else
document.write('<td style="border:0px solid grey;"></td>');
}
document.write ('</tr>');
}
document.write ('</table>');
</script>
</body>
</html>

Voila ou j'en suis, maintenant ce que j'aimerai faire c'est d'associer les 2, tout en ne gardant qu'un seul language, le plus simple serais de garder le vbscript. Donc au final un test de ping pour chacune des machines et selon l'état, un voyant (rouge ou vert) s'affiche devant la machine.

J'espère que j'ai été assez clair, merci d'avance pour ce qui s'y colle!

ps: je débute, j'essaye de me dépatouiller avec des bouts de code mais là je bloque.

Publicité

grunchy56

up! rien que de savoir si cela est réalisable m'aiderai, merci

billgatesanonym

Citation :

J'espère que j'ai été assez clair

Hélas, pas vraiment.

Citation :

je bloque

Qu'est-ce qui vous bloque ?

Citation :

savoir si cela est réalisable m'aiderai

La réponse oui, cela semble réalisable.

Citation :

ce que j'aimerai faire c'est d'associer les 2

En simplifiant, vous dites : "construisez moi un grand buffet à partir de deux tables de nuit", alors que dans un forum, on demande plutot "est-ce qu'il faut une clé de 10 ou de 12 pour ce boulon ?" Mais pourquoi pas associer ces deux bouts de code ? Allez-y !

Citation :

merci d'avance pour ce qui s'y colle!

Ah, en fait c'est à nous de faire le boulot. Maintenant, c'est clair. Il fallait le dire tout de suite. Bon, bah, désolé, j'ai piscine, mais je vous souhaite bon courage.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] Pingeur Schématisé en VBScript

Sujets relatifs
Ch Vbs permettant recherche web et save page txt / Horloge fuseaux	[VBS] script pour copier un fichier de serveur vers un client
garder la valeur d'un champs VBS vers html	garder la valeur d'un champs VBS vers html
Expressions régulières en vbscript	[VBS] Récupérer Résultat d'une appli
[VB/VBA/VBS] Excel - Lien entre Tableau croisé dynamique et cellule	[VBS] Comparaison de dates (résolu)
VBS VB ecrire message dans une fenetre soustraite/reduite	VBS ecire message dans une fenetre ...
Plus de sujets relatifs à : [VBS] Pingeur Schématisé en VBScript

Page générée en 0.034 secondes