examples/gras/all2all/test_rl.vbs

   1 Dim oShell
   2 Dim iExitCode
   3
   4 Set oShell = WScript.CreateObject ("WSCript.shell")
   5
   6
   7 oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4000 5,1,false"
   8 oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4001 5,1,false"
   9 oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4002 5,1,false"
  10 oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4003 5,1,false"
  11 oShell.run "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_receiver 4004 5,1,false"
  12
  13 WScript.Sleep 1000
  14
  15 cmd = "cmd /K C:\dev\cvs\simgrid\examples\gras\all2all\bin\_all2all_sender spinnaker.loria.fr:4000 spinnaker.loria.fr:4001 spinnaker.loria.fr:4002 spinnaker.loria.fr:4003 spinnaker.loria.fr:4004 512"
  16
  17 iExitCode = oShell.run(cmd,1,False)
  18 iExitCode = oShell.run(cmd,1,False)
  19 iExitCode = oShell.run(cmd,1,False)
  20 iExitCode = oShell.run(cmd,1,False)
  21 iExitCode = oShell.run(cmd,1,False)
  22
  23
  24 Set oShell = Nothing