Je cherchais une façon simple de monitorer le debit en download de façon simple. Après deux trois recherches, j'ai fait un script vbs à partir de deux trois sites. Une fois piloté par une tache planifiée, j'ai un controle toutes les 10 minutes.

Le code :

  1. 'fichier à télécharger
  2. strFileURL = "http://votre_serveur_a_monitorer/500000.txt"
  3. 'fichier local avec chemin
  4. strHDLocation = "toto.txt"
  5.  
  6. 'recuperation du fichier
  7. Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  8. 'pour gerer le probleme de cache
  9. randomize
  10. random_number=int(rnd*10000)
  11.  
  12. 'top depart            
  13. top =  Timer
  14.  
  15. 'recuperation
  16. objXMLHTTP.open "GET", strFileURL & "?rnd=" & random_number, false
  17. objXMLHTTP.send()
  18.  
  19. If objXMLHTTP.Status = 200 Then
  20.   Set objADOStream = CreateObject("ADODB.Stream")
  21.   objADOStream.Open
  22.   objADOStream.Type = 1 'adTypeBinary
  23.  
  24.   objADOStream.Write objXMLHTTP.ResponseBody
  25.   objADOStream.Position = 0    'Set the stream position to the start
  26.         'ecriture
  27.   objADOStream.SaveToFile strHDLocation
  28.   objADOStream.Close
  29.   Set objADOStream = Nothing
  30. End If
  31.  
  32. 'top fin
  33. tps = timer - top
  34.  
  35. Set objXMLHTTP = Nothing
  36.    
  37. 'On logue le resultat
  38. Set FSO = CreateObject("Scripting.FileSystemObject")
  39. 'on onvre le fichier de log, on le crée s'il n'existe pas
  40. Set Ftxt = FSO.OpenTextFile("log.txt",8,True)
  41. 'On ecrit à la fin du fichier fichier
  42. Ftxt.writeline (Now & Chr(9) &  FormatNumber(tps,2) & "s" & Chr(9) & FormatNumber(500/tps,2) & "Ko/s")
  43. 'on le ferme
  44. Ftxt.Close
  45.  
  46. 'suppression si le fichier téléchargé est présent
  47. Set objFSO = Createobject("Scripting.FileSystemObject")
  48.   If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
  49. Set objFSO = Nothing
  50.  

Coté tâche planifiée, une fois crée à la journée (periode minimum sous windows), il faut aller dans les options avancées et dire que vous voulez une repetition toutes les n minutes.

Une fois les données récupérées, un copier coller dans Excel ou Google Documents