Portail: Clockover.org

Métadonnées du document:
[ Auteur : Clockover ][ Création le : 15/07/2009 ][ Dernière modification le : 09/09/2009 ][ Version : 3.1 ]

Test et suivi de connectivité IP [VBS]

Etat du script: Fonctionnel

Présentation:

Ce script disponible en VBS permet de notifier dans un journal de logs quand un ping n'aboutit pas.

Nous pouvons entrer en paramètre l'adrese IP à tester, la fréquence des tests (en ms) et le chemin du journal.
Une fois lancé, le test s'exécute en tâche de fond. Pour l'arrêter, il faut utiliser le gestionnaire des tâches.

Inutile de dire que cet outil n'a aucun intérêt face au nombreux utilitaires que l'on peut trovuer sur internet. Il s'agit là uniquement d'amusement.

Le script en VBS:

'Test et suivi de connectivité IP
'Version 0.1 20090715 by Clockover

strComputer = "127.0.0.1" 
strFreq = "30000"
strCheck = "perte 0%"
strPathLogs="C:\"
strCmd="cmd /c ping.exe " & strComputer & " | find /I " & CHR(34) & strCheck & CHR(34) 

'Ouverture d'un fichier de résultat
Const ForWriting = 2
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile( strPathLogs & "resultat-ping.txt",8,true)
file.write "Lancement de l'application le: " & date & " " & time & vbCr & vbCr

'Boucle infinie
i = 0
Do While i <> "1"
set WshShell = CreateObject ("Wscript.shell" ) 
'1 = erreur et 0 = okay
bolPing = WshShell.Run(strCmd,2,TRUE) 

'Si erreur, on note dans le journal.
if bolPing = 1 then 
	file.write date & " " & time & ": Echec du ping"  & vbCr
end if

wscript.sleep(strFreq) 
Loop

TODO Liste:

-Vide.

Historique:

Version 0.1 (2009/05/17)
-Création du script.

Il y a 0 commentaire(s) sur ce sujet.