mIRC - kSub

#ksub on
alias kSub {
  var %kSubPath "c:\Program Files (x86)\kSub\kSub.r45.exe"

  if (!$com(WSH)) .comopen WSH WScript.Shell
  if (!$comerr) {
    var %Process $com(WSH,ExpandEnvironmentStrings,1,bstr*,$+(%,temp,%)), %tempdir $com(WSH).result
    var %kSubTxt " $+ %tempdir $+ \ksub_mirc_msg.txt"
    if (!$comerr) $com(WSH, Run, 1, bstr, %kSubPath /INFO %kSubTxt, i1, 3, bool, True)


    if (!$comerr) describe # : $read(%ksubtxt)
  }
  if ($com(WSH)) .comclose WSH
}

alias -l GetTempDir {
  if (!$com(tempdir)) .comopen tempdir WScript.Shell
  if (!$comerr) var %Process $com(tempdir,ExpandEnvironmentStrings,1,bstr*,$+(%,temp,%)), %result $com(tempdir).result
  if ($com(tempdir)) .comclose tempdir
  return %result
}


alias okSub {
  var %ksubtxt " $+ $gettempdir $+ \ksub_mirc_msg.txt"
  run "c:\Program Files\kSub\kSub.r39.exe" /INFO %ksubtxt
  describe # $read(%ksubtxt)
}
#ksub end