Monitoring de serveur

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

 

2 commentaires

  1. Bonjour,
    je suis pas super à l’aise avec VBscript mais ce script m’a semblé bien sympathique. Par contre pourriez-vous m’expliquer pourquoi Avast le détecte comme Trojan ? Est-ce parcequ’il fait des accès à un serveur distant ou parce qu’il écrit dans un fichier local ? ou autre ? Merci

  2. Il fait effectivement un accès distant ligne 16 et 17, ce qui n’est pas mal quand on veut tester si un serveur est disponible…

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée.