From: cherierm <cherierm@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Fri, 13 Apr 2007 09:47:58 +0000 (+0000)
Subject: the script of rl test on windows
X-Git-Tag: v3.3~1945
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/f1bd3e4da9a9c5ff5f817cf8e9cd07f2cfeff16f

the script of rl test on windows


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@3415 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/examples/gras/rpc/test_rl.vbs b/examples/gras/rpc/test_rl.vbs
new file mode 100644
index 0000000000..5dac44a967
--- /dev/null
+++ b/examples/gras/rpc/test_rl.vbs
@@ -0,0 +1,23 @@
+Dim oShell
+
+Set oShell = WScript.CreateObject ("WSCript.shell")
+	
+oShell.run "cmd /K " & "bin\rpc_server.exe 4002,1,false" 
+WScript.Sleep 1000
+oShell.run "cmd /K " & "bin\rpc_forwarder.exe 4003 spinnaker.loria.fr 4002,1,false"
+WScript.Sleep 1000
+oShell.run "cmd /K " & "bin\rpc_client.exe spinnaker.loria.fr 4002 spinnaker.loria.fr 4003,1,false"
+
+Set oShell = Nothing
+
+
+
+Function GetCurrentDirectory()
+
+	Dim sScriptFullName 
+	
+	sScriptFullName = WScript.ScriptFullName
+	
+	GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))
+
+End Function
diff --git a/examples/gras/timer/test_rl.vbs b/examples/gras/timer/test_rl.vbs
new file mode 100644
index 0000000000..cb8387d0fc
--- /dev/null
+++ b/examples/gras/timer/test_rl.vbs
@@ -0,0 +1,18 @@
+Dim oShell
+Dim iExitCode1
+
+Set oShell = WScript.CreateObject ("WSCript.shell")
+	
+iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\timer_client",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