Option Explicit
WScript.Sleep 2500

Dim Process, ProcessID, Ret

Ret = 0
For Each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_Process WHERE NAME='PortForwarder.exe'")
    IF (InStr(1,UCase(CStr(Process.CommandLine)),UCase(" -N radiko.jp"),1) > 1 ) Then
        Ret = Ret + 1
        If ( Ret > 0 ) Then
            Set ProcessID = Nothing
            Set Process = Nothing
            WScript.Quit
        End If
    End If
Next
Set ProcessID = Nothing
Set Process = Nothing

Call ExecutePortForwarder()
Call SendPassPhrase()
WScript.Quit

Sub ExecutePortForwarder()
  Dim Computer, Service, Startup, Config, Process, ProcessID, Ret
  Const SW_NORMAL        = 1
  Const SW_SHOWMINIMIZED = 2
  Const SW_SHOWMAXIMIZED = 3
  Computer = "."
  Set Service = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
  Set Startup = Service.Get("Win32_ProcessStartup")
  Set Config = Startup.SpawnInstance_
  Config.ShowWindow = SW_NORMAL
  Set Process = GetObject("winmgmts:root\cimv2:Win32_Process")
  Ret = Process.Create("""C:\WIN_APP\TELNET\PortForwarder.exe"" -N radiko.jp", Null, Config, ProcessID)
  Set ProcessID = Nothing
  Set Process = Nothing
  Set Config  = Nothing
  Set Startup = Nothing
  Set Service = Nothing
End Sub

Sub SendPassPhrase()
 'Dim AX
 'Set AX = WScript.CreateObject("AutoItX.Control")
 'AX.SetTitleMatchMode 1
 'Ret=AX.WinWait("PortForwarder","OK",15)
 'If Ret=0 Then
   'AX.Send "password{ENTER}"
    Dim WS
    Set WS = WScript.CreateObject("WScript.Shell")
    WScript.Sleep 5000
    WS.AppActivate "PortForwarder"
    WScript.Sleep 500
    WS.SendKeys "password"
    WScript.Sleep 1000
    WS.SendKeys "{ENTER}"
    Set WS = Nothing
 'End If
 'Set AX = Nothing
End Sub