[VBS] Pingeur Schématisé en VBScript
Pingeur Schématisé en VBScript [VBS] - VB/VBA/VBS - Programmation
Marsh Posté le 31-10-2009 à 00:38:35
up! rien que de savoir si cela est réalisable m'aiderai, merci
Marsh Posté le 31-10-2009 à 11:22:13
| 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.
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 ...
Marsh Posté le 03-10-2009 à 03:46:14
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
<!--document.write('<td style="border:0px solid grey;">'+x+'/'+y+'</td>');-->
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.