OTBEditで編集中のファイルを実行するVBscript

OtbEditというテキストエディタにネットエスケープで確認、IEで確認という機能がある。
設定で、この二つのブラウザのパスは変更できるのでこれを利用。
どちらか一方のパス欄に、下記のvbsを昨日紹介したツールなどでexeに変換して記入。
これで関連付けしていない環境でのuwsをボタン一つで実行出来る。
uwsではない場合は関連付けで開くので、vbsもjsも同じボタンでOTBEditから実行出来る。
単に、パスを渡すだけのスクリプトだから、これ自体にファイルをD&Dしても実行できるはず。
だから、OTBEdit専用というわけではないから、他のエディタでも使えると思うけど未確認。

uwsc = "C:\UWSC.exe"' UWSC実行ファイルのパス

set param = wscript.arguments
    if param.count > 0 then
        set sfo = createobject("scripting.filesystemobject")
        set wss = createobject("wscript.shell")
        sendf = chr(34) & param(0) & chr(34)
        x = sfo.getextensionname(param(0))
            if x = "uws" then wss.run uwsc & chr(32) & sendf else wss.run sendf
    end if