5 Set oShell = WScript.CreateObject ("WSCript.shell")
7 iExitCode1 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_server 4002",1,False)
9 iExitCode2 = oShell.run("cmd /K " & GetCurrentDirectory() & "bin\ping_client 127.0.0.1 4002",1,False)
14 'This function returns the current directory of the script
15 Function GetCurrentDirectory()
19 sScriptFullName = WScript.ScriptFullName
20 GetCurrentDirectory = mid(sScriptFullName,1,InStrRev(sScriptFullName,"\"))