Скрипты для prtg
Posted by j3qx на Январь 25, 2014
Скрипты для prtg
//query_size_cpa.vbs
Dim objHTTP
Set objHTTP = CreateObject(«Microsoft.XMLHTTP»)
Call objHTTP.Open(«GET», «http://95.131.26.171:9002/monitor?counter_type=transmitter_queue&interface_id=8», False)
Call objHTTP.Send
Dim fso, f1
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f1 = fso.CreateTextFile(«c:\out\query_size_cpa.txt», True)
f1.WriteLine(«query_size_cp=»+objHTTP.ResponseText)
f1.Close
//query_size_smsc.vbs
Dim objHTTP
Set objHTTP = CreateObject(«Microsoft.XMLHTTP»)
Call objHTTP.Open(«GET», «http://95.131.26.171:9002/monitor?counter_type=transmitter_queue&interface_id=11», False)
Call objHTTP.Send
Dim fso, f1
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f1 = fso.CreateTextFile(«c:\out\query_size_smsc.txt», True)
f1.WriteLine(«query_size_smsc=»+objHTTP.ResponseText)
f1.Close
//size_query_delivery_callback.vbs
Dim objHTTP
Set objHTTP = CreateObject(«Microsoft.XMLHTTP»)
Call objHTTP.Open(«GET», «http://95.131.26.171:9002/monitor?counter_type=delivery_callback_queue», False)
Call objHTTP.Send
Dim fso, f1
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f1 = fso.CreateTextFile(«c:\out\size_query_delivery_callback.txt», True)
f1.WriteLine(«size_query_delivery_callback=»+objHTTP.ResponseText)
f1.Close
//size_query_reports.vbs
Dim objHTTP
Set objHTTP = CreateObject(«Microsoft.XMLHTTP»)
Call objHTTP.Open(«GET», «http://95.131.26.171:9002/monitor?counter_type=delivery_report_queue», False)
Call objHTTP.Send
Dim fso, f1
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f1 = fso.CreateTextFile(«c:\out\size_query_reports.txt», True)
f1.WriteLine(«size_query_reports=»+objHTTP.ResponseText)
f1.Close
//speed_send_smsc.vbs
Dim objHTTP
Set objHTTP = CreateObject(«Microsoft.XMLHTTP»)
Call objHTTP.Open(«GET», «http://95.131.26.171:9002/monitor?counter_type=transmit_speed&interface_id=11», False)
Call objHTTP.Send
Dim fso, f1
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set f1 = fso.CreateTextFile(«c:\out\speed_send_smsc.txt», True)
f1.WriteLine(«speed_send_smsc=»+objHTTP.ResponseText)
f1.Close
Добавить комментарий