VBS/WSH/JS - ОТправка СМСок.

Ответить
Аватара пользователя
Neteru

VBS/WSH/JS - ОТправка СМСок.

Сообщение Neteru »

Товарищи помогите кто чем может.



В общем стоит у меня PRTG Network Monitor и смотрит за состоянием серверов и умеет она запускать скрипты и есть у меня скрипт на VB, но проблема в том что никак не могу понять как передать сообщение скрипту т.е. параметры с командной строки?



т.е. например

c:\myscript.vbs arg1, arg2



а сами аргументы должны попадать в objGsmOut.MessageData = "TEST TEST"



наже приведенного скрипта:



Option Explicit



Dim objGsmOut

Dim nNumDevices, strDevices, i



Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" )



nNumDevices = objGsmOut.GetDeviceCount()



' Set Device

objGsmOut.Device = "COM2"



' Set recipient

objGsmOut.MessageRecipient = 892186432хх



' Set message text

objGsmOut.MessageData = "TEST TEST"



' Set Logfile

objGsmOut.LogFile = "c:\SmsLog.txt"



' Use GSM provider's validity period ( Can be specified in minutes )

ObjGsmOut.ValidityPeriod = 0



objGsmOut.Send



' Show the result

If( objGsmOut.LastError 0 ) Then

WScript.Echo "Failed to send the message, error: " & objGsmOut.LastError & " (" & objGsmOut.GetErrorDescription( objGsmOut.LastError ) & ")"

WScript.Echo "To view the trace file, open " & objGsmOut.LogFile & "."

Else

WScript.Echo "Message successfully submitted ( MessageReference = " & objGsmOut.MessageReference & " )"

End If
Аватара пользователя
Petya V4sechkin

Re: VBS/WSH/JS - ОТправка СМСок.

Сообщение Petya V4sechkin »

Цитата Neteru:
Ответить

Вернуться в «Скриптовые языки администрирования Windows»