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