X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ac54f0cb5ffb31d61d28ab6e54788da7aaa0cc98..f86be56b41d48bc7f9ddafd05fad389f3906317b:/examples/gras/pmm/test_rl.vbs

diff --git a/examples/gras/pmm/test_rl.vbs b/examples/gras/pmm/test_rl.vbs
new file mode 100644
index 0000000000..ccfbaa5eeb
--- /dev/null
+++ b/examples/gras/pmm/test_rl.vbs
@@ -0,0 +1,32 @@
+Dim oShell
+Dim iExitCode
+
+Set oShell = WScript.CreateObject ("WSCript.shell")
+
+'run the slaves
+	
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+'iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_slave 127.0.0.1:4242",1,False)
+
+
+'run the master
+iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\pmm_master 4242",1,False)
+
+Set oShell = Nothing
+
+'This function returns the current directory of the script 
+Function GetCurrentDirectory()
+	
+	Dim sScriptFullName 
+	
+	sScriptFullName = WScript.ScriptFullName
+	GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
+	
+End Function