VBS. Accessing JAL variable in VB Script

Hi,

I am using the following VBS code:

sub main()

dim JALCommand

JALCommand = "Dim numr, number" & vbCrLf & "runandwait ""UFRECV -B411111 -V192.168.1.1 -Lufrecv.log -Nall -Pundif"", """", 0, numr"

JALScript.Execute JALCommand

JALSCRIPT.Execute "Dim numr, number" & vbCrLf & "processgetexitcode numr"

if(numr = 0) then

JALCommand = "Dim numr, number" & vbCrLf & "runandwait ""EXE3IN -IINTEMPITF.TMP -Lepin.log -DC:\EPWIN303\EPSERVER\411111"", """", 0, numr"

JALScript.Execute JALCommand

JALSCRIPT.Execute "Dim numr, number" & vbCrLf & "processgetexitcode numr"

end if

end sub

I want to use the value of the JAL variable "numr" in VBS.
How do I transfer this accross from JAL
to VBS in the script above??

Thanks
Sotiris

You can save the value of this variable to a .INI file or simply to a text file and then read it from VBS.

I would like to suggest a better solution since you only make cross-language call to run a process and then wait for it.
Recent versions of 24x7 include VBS extension objects, one of them provides to VBS native RunAndWait method.

Here is a copy&paste from the on-line help. For more info see "VBScript RunAndWait method" topic in the on-line help (click the Examples buttons while in that topic).

'Sub Main()
' Dim vb24x7
' Set vb24x7 = CreateObject("vb24x7.Process")
' ProcessId = vb24x7.RunAndWait("Notepad.exe", 50)
' If ProcessId < 0 Then MsgBox("Unable to start process. " & vb24x7.LastError)
' Set vb24x7 = Nothing
'End Sub

: Hi,

: I am using the following VBS code: sub main()

: dim JALCommand

: JALCommand = "Dim numr, number" & vbCrLf & "runandwait
: ""UFRECV -B411111 -V192.168.1.1 -Lufrecv.log -Nall
: -Pundif"", """", 0, numr"

: JALScript.Execute JALCommand

: JALSCRIPT.Execute "Dim numr, number" & vbCrLf &
: "processgetexitcode numr"

: if(numr = 0) then

: JALCommand = "Dim numr, number" & vbCrLf & "runandwait
: ""EXE3IN -IINTEMPITF.TMP -Lepin.log
: -DC:\EPWIN303\EPSERVER\411111"", """", 0,
: numr"

: JALScript.Execute JALCommand

: JALSCRIPT.Execute "Dim numr, number" & vbCrLf &
: "processgetexitcode numr"

: end if

: end sub

: I want to use the value of the JAL variable "numr" in VBS.
: How do I transfer this accross from JAL
: to VBS in the script above??

: Thanks
: Sotiris

Thanks again. The RunAndWait method works as you
propose.

I also need to get back the result of running
the command by RunAndWait. This I did in JAL
using ProcessGetExitCode.

Is there a way to do this in VBS?

Thanks
Sotiris

: You can save the value of this variable to a .INI file or simply to a text
: file and then read it from VBS.

: I would like to suggest a better solution since you only make cross-language
: call to run a process and then wait for it.
: Recent versions of 24x7 include VBS extension objects, one of them provides
: to VBS native RunAndWait method.

: Here is a copy&paste from the on-line help. For more info see "VBScript
: RunAndWait method" topic in the on-line help (click the Examples
: buttons while in that topic).

: 'Sub Main()
: ' Dim vb24x7
: ' Set vb24x7 = CreateObject("vb24x7.Process")
: ' ProcessId = vb24x7.RunAndWait("Notepad.exe", 50)
: ' If ProcessId < 0 Then MsgBox("Unable to start process. " &
: vb24x7.LastError)
: ' Set vb24x7 = Nothing
: 'End Sub

The is no matching method available in VBScript at this time.

: Thanks again. The RunAndWait method works as you
: propose.

: I also need to get back the result of running
: the command by RunAndWait. This I did in JAL
: using ProcessGetExitCode.

: Is there a way to do this in VBS?

: Thanks
: Sotiris