Войти

Показать полную графическую версию : ОТправка СМСок.


Neteru
05-10-2010, 09:03
Товарищи помогите кто чем может.

В общем стоит у меня 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
05-10-2010, 09:58
c:\myscript.vbs arg1, arg2
а сами аргументы должны попадать в objGsmOut.MessageData = "TEST TEST"
Так?
objGsmOut.MessageData = WScript.Arguments(0) & " " & WScript.Arguments(1)




© OSzone.net 2001-2012