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

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *