WSHの引数で二重引用符 " をエスケープするには？(その２) - Windows Script Programming
一般的なコンベンションでは、引数に"を渡すときは、引数を"で囲み、引数の中の"を""に変えて書きます。 "引""数" アプリ側には、引数を囲む"は渡らず、引数の中の""が"に戻されて渡ります。 引"数 しかし、WSHでは、引数の"がすべて消えてしまいます。 そこで、もし、WSHで引数に"を渡したいときは、`で代用し、スクリプト側で戻します。 "引`数" → 引`数 → 引"数 ここで、もし、WSH(JScript)をバッチファイルでラップすると、一般的なコンベンションが使えます。 "引""数" → "引`数" → 引`数 → 引"数 @if(0)==(0) ECHO OFF SETLOCAL SET ARGS= FOR %%1 IN (%*) DO ( SET "ARG=%%~1" IF DEFINED ARG CALL SET "ARG=%%ARG:""=`%%" CALL SET AR
WSHスクリプトの強制終了は避けましょう。 - Windows Script Programming
Excelなど、アウトプロセスサーバのオブジェクトを参照するWSHスクリプトを強制終了すると、参照カウンタが残って、サーバが終了できなくなったりします。 APIのTerminateProcess() タスクマネジャの「プロセスの終了」 タスクスケジューラの「タスクの終了」 TaskKill.exe CScriptのCTRL+C WScript.ShellのExec().Terminate() などの強制終了は避けられるなら避けたほうがよいでしょう。 一方、WScript.Timeoutによる終了ではオブジェクト参照が解放されます。 万一の暴走やハングアップの対策に、WScript.Timeoutを設定しておくとよいでしょう。 スクリプトのソース内で、WScript.Timeout=秒 コマンドラインのオプションで、//T:秒 ショートカットファイル(.WSH)で、Timeout=秒
常駐のWSHスクリプトを外部からの指示で終了する。(その３) - Windows Script Programming
以下のスクリプトを実行して、出てきたIEのページで「終了」ボタンを押すと、スクリプトもIEも終了します。 Set ie=CreateObject("InternetExplorer.Application") ie.Visible=True ie.Navigate "about:blank" Do While ie.Busy Or ie.ReadyState<>4 WScript.Sleep 100 Loop ie.document.body.innerHTML="<button id=button1>終了</button>" Set ie.document.all.button1.onclick=GetRef("sub1") MsgBox "waiting..." Sub sub1() ie.quit WScript.Timeout=1 End Sub
常駐のWSHスクリプトを外部からの指示で終了する。(その２) - Windows Script Programming
htmlfileのwindow.setInterval()を利用して指示をポーリングする方法です。 ここではファイルを削除すると終了指示になります。 以下のスクリプトを実行して、作成されたスクリプトファイル名.Runというファイルを削除すると、スクリプトが終了します。 Set fso=CreateObject("Scripting.FileSystemObject") fso.CreateTextFile(WScript.ScriptFullName & ".Run") Set doc=CreateObject("htmlfile") doc.parentWindow.setInterval GetRef("proc"),1000 MsgBox "waiting..." Sub proc() If Not fso.FileExists(WScript.ScriptFullName & ".
常駐のWSHスクリプトを外部からの指示で終了する。 - Windows Script Programming
常駐のWSHスクリプトを、強制終了は避けて、なおかつ外部からの指示で終了するには、WScript.Timeoutを操作すればよいのです。 例えば、WScitptオブジェクトの参照を外部に渡すのも、ひとつの方法です。 その他に、IEなど、アウトプロセスサーバのイベント出口を使う方法もあります。 例えば、以下のスクリプトを実行して、出てきたIEを閉じると、スクリプトも終了します。 Set ie=WScript.CreateObject("InternetExplorer.Application","IE_") ie.Visible=True MsgBox "waiting..." Sub IE_OnQuit() WScript.Timeout=1 End Sub
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
