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