一般的なコンベンションでは、引数に"を渡すときは、引数を"で囲み、引数の中の"を""に変えて書きます。 "引""数" アプリ側には、引数を囲む"は渡らず、引数の中の""が"に戻されて渡ります。 引"数 しかし、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
WScriptオブジェクトはCOMオブジェクト(IHost_Class)です。 なので、スクリプト１からそのWScriptオブジェクトの参照をスクリプト２へ渡せば、スクリプト２からスクリプト１のWScript.Echoを呼び出したり、終了させたりできます。 では、実験してみましょう。 コマンドプロンプトを二つ開いて、一方で、 cscript s1.vbs CreateObject("Shell.Application").Windows().Item(0).PutProperty "WSH",WScript MsgBox "Waiting..." 他方で、 cscript s2.vbs Set WSH1=CreateObject("Shell.Application").Windows().Item(0).GetProperty("WSH") WSH1.Echo "Stopping..."
WSH間で会話も可能です。 グローバルオブジェクトもCOMオブジェクト(VBScriptTypeInfo)です。 先の例ではWScriptオブジェクトを渡していましたが、ここで、もしグローバルオブジェクトを渡せば、他方のグローバル変数を操作したり、関数を呼び出したりができます。 では、グローバルオブジェクト(グローバルコンテキストでのMe)を渡して、グローバル変数を操作してみましょう。 コマンドプロンプトを二つ開いて、一方で、 cscript g1.vbs CreateObject("Shell.Application").Windows().Item(0).PutProperty "WSH",Me Dim fWait Dim WSH2 fWait=True Do While fWait WScript.Sleep 100 Loop WSH2.Echo "なんだよ" WSH2.Quit 9
VBScriptもJScriptもCOMオブジェクトです。 なので、それぞれのオブジェクトを他方に渡せば、他方のオブジェクトを操作したり、関数を呼び出したりもできます。 では、VBScriptからJScriptへ、JScriptからVBScriptへ、それぞれの関数のオブジェクト参照を渡して、互いに呼び出してみましょう。 コマンドプロンプトを二つ開いて、一方で、 cscript f1.vbs CreateObject("Shell.Application").Windows().Item(0).PutProperty "VBS",GetRef("Sub1") Dim fWait fWait=True Do While fWait WScript.Sleep 100 Loop Set JS=CreateObject("Shell.Application").Windows().Item(0)
Excelなど、アウトプロセスサーバのオブジェクトを参照するWSHスクリプトを強制終了すると、参照カウンタが残って、サーバが終了できなくなったりします。 APIのTerminateProcess() タスクマネジャの「プロセスの終了」 タスクスケジューラの「タスクの終了」 TaskKill.exe CScriptのCTRL+C WScript.ShellのExec().Terminate() などの強制終了は避けられるなら避けたほうがよいでしょう。 一方、WScript.Timeoutによる終了ではオブジェクト参照が解放されます。 万一の暴走やハングアップの対策に、WScript.Timeoutを設定しておくとよいでしょう。 スクリプトのソース内で、WScript.Timeout=秒 コマンドラインのオプションで、//T:秒 ショートカットファイル(.WSH)で、Timeout=秒
以下のスクリプトを実行して、出てきた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
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スクリプトを、強制終了は避けて、なおかつ外部からの指示で終了するには、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
今日思い出した。10日前、オープンソースカンファレンスtokyo/fall行ったんだ。monaOSのプレゼンでid:higeponさんが使ってたフォントがちょっと格好良かった。あれなんのフォントなんだろう。遠くから見てたから気のせいで普通のフォントだったのだろうか。 ライトニングトークのあと抽選会で捕まえてやろうと思ったけど見失った。だって、当選するんだもの。マイクロソフトのミニカーとかIronPython本貰ってた。気付けばいなかった。 slideshareで資料おいてあるけど、なんか当日見たものと違う気が。 そうそう IronPythonの本が当たったのですよ。 はてなスクリーンショットはid:secondlife氏が、drubyの本に当選したから出来たそうだ http://itpro.nikkeibp.co.jp/article/NEWS/20060612/240617/ だから、オ
前回のIE利用法をさらに検索してた。 少しずつ分ってきた IEのJsエンジンを作り出す #IEのDocumentをWSHから利用する var document = new ActiveXObject('htmlfile'); window = document.parentWindow; window.alert(""); window.document.body.innerHTML += "hoge"; //Scriptタグ書出せばWSHでprototype.jsが使えるよ。 JSのエンジンを作り出す WSHのJSを別環境で独立に生み出せる。 var engine = new ActiveXObject("ScriptControl"); engine.Language = "JScript"; js = engine.CodeObject; WScript.Echo( js.eval(
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
