Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1854 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Pingeur Schématisé en VBScript

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Pingeur Schématisé en VBScript

n°1928645
grunchy56
Posté le 03-10-2009 à 03:46:14  profilanswer
 

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>&nbsp;</td><td style='width:70%; border-bottom:1px solid grey'>&nbsp;"
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>&nbsp;</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.

mood
Publicité
Posté le 03-10-2009 à 03:46:14  profilanswer
 

n°1936658
grunchy56
Posté le 31-10-2009 à 00:38:35  profilanswer
 

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

n°1936687
billgatesa​nonym
Posté le 31-10-2009 à 11:22:13  profilanswer
 

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.
 


Aller à :
Ajouter une réponse
  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 htmlgarder 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/reduiteVBS ecire message dans une fenetre ...
Plus de sujets relatifs à : [VBS] Pingeur Schématisé en VBScript


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR