Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
kill windows cruft. Should use tesh2 when it works instead of visualbasic shit
[simgrid.git] / examples / gras / mmrpc / test_rl.vbs
diff --git a/examples/gras/mmrpc/test_rl.vbs b/examples/gras/mmrpc/test_rl.vbs
deleted file mode 100644 (file)
index 3b44c23..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-Dim oShell
-Dim iExitCode
-
-Set oShell = WScript.CreateObject ("WSCript.shell")
-       
-iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_server  4002",1,False)
-WScript.Sleep 1000
-iExitCode = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\mmrpc_client 127.0.0.1 4002",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