J3qx

information archive

Скрипты для 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

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

 
%d такие блоггеры, как: