Support forum

If WScript.Arguments.Count >= 1 Then fromAddress = WScript.Arguments(0)
If WScript.Arguments.Count >= 2 Then message = WScript.Arguments(1)

Private Sub OnMessageReceived(fromAddress As String, toAddress As String, message As String, messageType As String, messageId As String, smsc As String, _
pdu As String, gateway As String, sendTime As DateTime, receiveTime As DateTime)
Try
Using proc As New Process
proc.StartInfo.FileName = "C:\temp\test.bat"
proc.StartInfo.Arguments = String.Format("""{0}"" ""{1}""", fromAddress, message)
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.CreateNoWindow = True
proc.Start()
Dim output As String = proc.StandardOutput.ReadToEnd()
End Using
Catch e As Exception
PostEventLog(e.Message, e.ToString(), EventLog.Error)
End try
End Sub