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
В общем стоит у меня 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