examples/gras/mmrpc/test_rl.vbs

   1 Dim oShell
   2 Dim iExitCode
   3
   4 Set oShell = WScript.CreateObject ("WSCript.shell")
   5
   6 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_server  4002",1,False)
   7 WScript.Sleep 1000
   8 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_client 127.0.0.1 4002",1,False)
   9
  10 Set oShell = Nothing
  11
  12 'This function returns the current directory of the script
  13 Function GetCurrentDirectory()
  14
  15         Dim sScriptFullName
  16
  17         sScriptFullName = WScript.ScriptFullName
  18         GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
  19
  20 End Function