currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))

comPort = InputBox("Please select a COM port", "Running Serial Speed " & currentDirectory , "COM9", 250, 250)

if Len(comPort) > 0 Then
  set wshShell = Wscript.CreateObject("wscript.Shell")
  WshShell.Run "SerialTest.exe " & comPort
End If