Passing variables to VBScript

[TheEek]

Using the VBScript found in http://www.mjtnet.com/forum/viewtopic.p ... highlight=.

I managed to get my little script working, it will check a process of a remote system, and save the result in a text file. How do I pass a variable to that script? Anything I do just crashes the script...

Code: Select all

VBSTART
Function GetIn()
  Dim WshShell, oExec, input
  Set WshShell = CreateObject("WScript.Shell")
  Set oExec    = WshShell.Exec("sc.exe \\target_workstation query LIveUpdate")
  input = ""

  Do While True
     If Not oExec.StdOut.AtEndOfStream Then
          input = input & oExec.StdOut.Read(1)
          If oExec.StdOut.AtEndOfStream Then Exit Do
     End If
  Loop

  GetIn = input
End Function
VBEND

let>target_workstation=10.10.10.4
vbeval>GetIn(),result
writeln>c:\temp\output.txt,wres,%result%

In this instance I want to pass "target_workstation" as the variable, so sc.exe queries 10.10.10.4, this could be a hostname as well.

I can just have the line written to a batch file, then use MS to run the batch file, but produces it's own problems.

Any ideas?
[/code]

[adroege]

This should give you the right idea..... I couldn't test it
but the syntax is mostly correct :)

Code: Select all

VBSTART
Function GetIn(host)
  Dim WshShell, oExec, input
  Set WshShell = CreateObject("WScript.Shell")
  Set oExec    = WshShell.Exec("sc.exe \\" + host + " query LIveUpdate")
  input = ""

  Do While True
     If Not oExec.StdOut.AtEndOfStream Then
          input = input & oExec.StdOut.Read(1)
          If oExec.StdOut.AtEndOfStream Then Exit Do
     End If
  Loop

  GetIn = input
End Function
VBEND

let>target_workstation=10.10.10.4
vbeval>GetIn("%target_workstation%"),result
writeln>c:\temp\output.txt,wres,%result%

[TheEek]

Thanks adroege, works a treat.