dara-j

最近なんだかネタになるようなスクリプトとか書いてる時間がぜんぜんなくてネタにこまったのでjsi.jsに手を入れてみた。

といっても、コードの修正とかは結構前にやっていたもので、どちらかというと蔵出し的な感じ。ほんとにネタに困ってるんだってば。

手を入れたところは細かいバグ修正とライブラリの追加。zipは固めなおしてリビジョンあげたので、以下からダウンロードしてください。

• jsi_v002.zip

サンプルのライブラリ設定ファイルとして、付属ライブラリをすべてロードする設定で「libsettings.sample」を添付しているので、これを「libsettings」とリネーム、適当に編集して使ってください。

jsi.jsの変更内容

こんな感じ。

• ドットコマンドの引数展開バグの修正
• ライブラリロード中の例外発生時に、ロード中ライブラリファイル名も表示するよう改善
• ドットコマンド「.wmi」を追加
  • → 後述の追加ライブラリ「wmi_console.js」を必要とします。注意。

追加ライブラリ・vbscript.js

かなり前のネタになるが、VBScriptラッパーをライブラリに追加。細かい使い方はリンク先を見てもらうとして、いくつか組み込みメソッドを提供しているのでちょろっと使えるかも。ま、こっちの記事ですでに紹介してるやつなんですが。

getTypeNameメソッド

VBSのTypeName関数のラッパーです。引数に渡したオブジェクトのCOMオブジェクト型を返します。こんな感じ。

jsi > var vb = new VBScript;
--> (undefined)

jsi > vb.getTypeName(new ActiveXObject("Scripting.FileSystemObject"));
--> FileSystemObject

jsi >

promptメソッド

VBSのInputBox関数のラッパー。ブラウザのprompt()感覚で使える。かな。

引数は2つ渡すことが可能で、第一引数にはダイアログメッセージ、第二引数にダイアログタイトルを指定できます。んで、入力された文字列か、キャンセルされた場合はnull（正確にはundefined）が返ります。

jsi > vb.prompt(); // ここでInputBoxが表示される。キャンセルしたとすると...
--> (undefined)

jsi > vb.prompt(); // こんどは'hoge'とでも入れてみると...
--> hoge

jsi >

yesNoメソッド

VBSのMsgBoxラッパーで、vbYesNo定数を渡して[はい][いいえ]の2択処理をします。引数はpromptメソッドと同じくダイアログメッセージとタイトルです。戻り値はvbYes定数（＝6）かvbNo定数（＝7）が返ります。もう一層ラッパーかぶせてconfirmっぽくしてもよいかも。

jsi > vb.yesNo(); // [はい]クリック
--> 6

jsi > vb.yesNo(); // こんどは[いいえ]クリック
--> 7

jsi >

getNothingとgetEmpty

まず役立つ局面はそうはないだろうけど、VBSでのNothingを取得するgetNothingメソッドもつけてます。JS上ではnullとして扱われますが、getTypeName()を通すとNothingであることが確認できます。それだけですが...

jsi > vb.getNothing();
--> (null)

jsi > vb.getTypeName(vb.getNothing());
--> Nothing

jsi > vb.getTypeName(null);
--> Null // JSのnullはNull

追加ライブラリ・wmi_console.js

WMIへアクセスするためのライブラリ＋WQLを実行するコンソール機能を提供します。詳しい解説はそのうち書きますが、とりあえず追加のドットコマンド「.wmi」を実行してみてください。

jsi > .wmi

WMI Console for jsi.js
server: localhost, root: root/cimv2

wmi@localhost >

wmi@localhost > select name, creationdate from win32_process;
{
        "CreationDate" : null,
        "Handle" : "0",
        "Name" : "System Idle Process"
}
 :
 :
{
        "CreationDate" : "2008/10/20 03:33:09",
        "Handle" : "10008",
        "Name" : "sakura.exe"
}
{
        "CreationDate" : "2008/10/20 04:28:48",
        "Handle" : "9224",
        "Name" : "wmiprvse.exe"
}
wmi@localhost >

思ったより記事が長くなっちゃったので、この.wmiコマンドとライブラリ自体の説明はまた後日。

いや、実用性はないんだけども、前のエントリで覚えたばかりのFORコマンドと、ちょっと前に作ったなんちゃってコマンドを組み合わせて遊んでみたり。

chkconfig.jsの--detailを連続で

chkconfig.jsにオマケでつけてた--detailオプション、サービス名を指定しないと使えない仕様なんだけども、これをFORコマンドと組み合わせて使ってみると。

コマンドラインからcscript付きで指定するとちょっと冗長なので、ラッパーのバッチファイルを作っておくことにしよう。こんな感じで、「chkconfig.bat」とか「chkconfig.cmd」とか。

@echo off
cscript //nologo "%~dP0\scripts\chkconfig.js" %*

で、chkncofig --listでサービスを列挙した後にfindstr Manualで手動起動設定になっているサービスのみに絞り込んで、それらに対してchkconfig --detailを適用してみる。

C:\Documents and Settings\dara-j>for /f "tokens=1" %d in ('"chkconfig --list | f
indstr Manual"') do @chkconfig --detail %d
サービス名 : AppMgmt
表示名     : Application Management
スタートアップの種類 : 手動
状態       : 停止中
説明 :
  割り当て、公開、削除などのソフトウェアのインストール サービスを供給します。

サービス名 : aspnet_state
表示名     : ASP.NET 状態サービス
スタートアップの種類 : 手動
状態       : 停止中
説明 :
  ASP.NET の out-of-process セッション状態のサポートを提供します。このサービスが
中止されると out-of-process 要求は処理されません。このサービスが無効になると、こ
のサービスに明示的に依存しているサービスはすべて開始できなくなります。
 ：
(中略)
 ：
サービス名 : xmlprov
表示名     : Network Provisioning Service
スタートアップの種類 : 手動
状態       : 停止中
説明 :
  自動ネットワーク提供のための XML 構成ファイルをドメインごとに管理します。


C:\Documents and Settings\dara-j>

FORコマンド中で「tokens=1」と指定しているのは、chkconfig --listの出力結果からサービス名のみを抽出するため。FORコマンドの既定の区切り文字（空白とタブ、らしい）で各行がトークン単位に分割されるのだが、chkconfigの出力の場合は、先頭がサービス名になるのでそのように指定している。

killでメモ帳を全て終了

今度は多少は使い道あるかなぁ。こちらの「ps.jsとps.cmd / kill.cmd」で作ったpsとkillを使って、特定のプロセスをまとめて終了させると。

まず適当にnotepadをいくつか起動する。

C:\Documents and Settings\dara-j>ps | findstr notepad
 1456  5788 dara-j               4708     4708    0:00:00 notepad.exe
 5316  5788 dara-j               4852     4852    0:00:00 notepad.exe
 4228  5788 dara-j               4716     4716    0:00:00 notepad.exe
 4992  5788 dara-j               4720     4720    0:00:00 notepad.exe
 5544  5788 dara-j               4696     4696    0:00:00 notepad.exe

C:\Documents and Settings\dara-j>

C:\Documents and Settings\dara-j>for /f "tokens=1" %d in ('"ps | findstr notepad
"') do @kill %d

C:\Documents and Settings\dara-j>