htaをvbsに変換するuws

変換するといってもwindowsのtempフォルダにhtaファイルを作ってそれを実行するだけ。
htaをexeに変換させるフリーのツールを見付けたんだけれども、私の環境ではエラーが出て変換出来なかったので
htaをvbsに変換するUWSを書くというなんともややこしい事をした。
変換したvbsファイルをMakeExeでexeにも変換出来る。
いくつか動作確認はしたけれど、htaの内容によっては動作しないかもしれない。
下記のuwsにコマンドラインでhtaのパスを渡すか、入力ボックスにhtaのパスを入力すれば
同ディレクトリに同名のvbsが出来る。
ifb length(param_str) = 0 if fopen(getstr(0), f_exists) = true and pos(".hta", getstr(0)) > 0 _ then cb = getstr(0) _ else cb = "" fname = input("Hta File Path", cb) if fname = empty then exit else fname = param_str[0] endif str = "" op_a = fopen(fname) for a = 1 to fget(op_a, - 1) str = str + chr(34) + chgmoj(fget(op_a, a), chr(34), chr(34) + chr(34)) + chr(34) + " & vbcrlf &_" + chr(13) + chr(10) next fclose(op_a) op_b = fopen(betweenstr("^" + fname, "^", chr(46), - 1)+".vbs", f_write1) fput(op_b, chgmoj(conv_hta, "$@@@$", trim(betweenstr("^" + str, "^", "&_", - 1)))) fclose(op_b) textblock conv_hta option explicit dim sfo, fopen, wss dim hta_path set sfo = createobject("scripting.filesystemobject") hta_path = sfo.buildpath(sfo.getspecialfolder(2), "temp.hta") set fopen = sfo.createtextfile(hta_path, 2) fopen.write($@@@$) fopen.close set wss = createobject("wscript.shell") wss.run(hta_path) set sfo = nothing set fopen = nothing set wss = nothing endtextblock
注※変換できるのはVBScriptを使ったhtaのみ。
Jscriptの場合

13行目の
& vbcrlf &_ を + \n + に（ｊsの改行？）
17行目の
&_ を + 

に変えればできる気もするけどわからん。