+++ /dev/null
-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