examples/gras/ping/test_rl.vbs

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