examples/gras/pmm/test_rl.vbs

   1 Dim oShell
   2 Dim iExitCode
   3
   4 Set oShell = WScript.CreateObject ("WSCript.shell")
   5
   6 'run the slaves
   7
   8 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
   9 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  10 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  11 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  12 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  13 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  14 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  15 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  16 'iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
  17
  18
  19 'run the master
  20 iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_master 4242",1,False)
  21
  22 Set oShell = Nothing
  23
  24 'This function returns the current directory of the script
  25 Function GetCurrentDirectory()
  26
  27         Dim sScriptFullName
  28
  29         sScriptFullName = WScript.ScriptFullName
  30         GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
  31
  32 End Function