examples/gras/rpc/test_rl.vbs

   1 Dim oShell
   2
   3 Set oShell = WScript.CreateObject ("WSCript.shell")
   4
   5 oShell.run "cmd /K " & "bin\rpc_server.exe 4002,1,false"
   6 WScript.Sleep 1000
   7 oShell.run "cmd /K " & "bin\rpc_forwarder.exe 4003 spinnaker.loria.fr 4002,1,false"
   8 WScript.Sleep 1000
   9 oShell.run "cmd /K " & "bin\rpc_client.exe spinnaker.loria.fr 4002 spinnaker.loria.fr 4003,1,false"
  10
  11 Set oShell = Nothing
  12
  13
  14
  15 Function GetCurrentDirectory()
  16
  17         Dim sScriptFullName
  18
  19         sScriptFullName = WScript.ScriptFullName
  20
  21         GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
  22
  23 End Function