|
Voici un script VBS qui pourra être utile à ceux qui veulent surveiller leur marge de bruit descendante (nécessite Windows et Internet Explorer).
Il sufit de copier/coller ce script (partie rouge) dans un document texte, puis de le renommer avec une extension .vbs (par exemple livebox_marge.vbs).
Il faut ensuite paramétrer le planificateur de tâche de Windows pour qu'il l'exécute périodiquement (par exemple : chaque 10 minutes à partir de 17:04 pendant 24 heures le ....).
Les résultats seront inscrits dans un fichier (C:\Apeul.log mais c'est bien sûr adaptable) sous la forme Date Heure Marge (un résultat par ligne), soit, par exemple :
29/06/2011 17:04:01 10
29/06/2011 17:14:01 10
29/06/2011 17:24:01 10
29/06/2011 17:34:00 10
29/06/2011 17:44:01 10
29/06/2011 17:54:01 10
29/06/2011 18:04:01 10
29/06/2011 18:14:01 10
29/06/2011 18:24:01 10
29/06/2011 18:34:01 10
29/06/2011 18:44:01 10
29/06/2011 18:54:01 10
29/06/2011 19:04:01 10
29/06/2011 19:14:01 10
29/06/2011 19:24:01 10
.....
'-------------------------------------------------------------------------------------------------------------
'Livebox_2 et ProV2 : Script vbs pour récupérer périodiquement* la marge SNR down
'(* à mettre en oeuvre avec le planificateur de tâches de Windows)
'Les résultats sont inscrits dans un fichier
'--------------------------------------------------------------------------------------------------------------
'Ouverture du fichier d'enregistrement C:\Apeul.log
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich_ = fs.OpenTextFile("C:\Apeul.log", 8, True) '8 pour écrire à la fin du fichier
On Error Resume Next
'Ouverture du navigateur (IE)
set nav = CreateObject("InternetExplorer.Application")
nav.Visible = true : nav.toolbar = false
'Ouverture de la page adslinfo
nav.navigate "livebox/adslinfo.html"
Do While not nav.ReadyState = 4 : wscript.sleep 200 : Loop
'Récupération de la marge SNR down
set mrg = nav.document.body.createTextRange
mrg.findText("DownNoiseMargin=")
mrg.moveend "word", 1
mrg.movestart "character", 16
'Enregistrement dans le fichier
fich_.writeline Now & " " & mrg.text
'On ferme !
nav.Quit : fich_.close
'Un beep pour signaler la fin
set ws = Wscript.CreateObject("wscript.Shell") : beep = chr(007) : Ws.Run "cmd /c @echo " & beep,0
wscript.quit
|
