Windows Script Component は、スクリプトで記述された COM コンポーネントです
既存のコンポーネントで、バッチ処理に有用なものを集めてラップしました
インストールは、バッチヘルパーオブジェクトのインストールと同時に行われますが
単独でのインストール・アンインストールはエクスプローラから BatchWsc.wsc を
右クリックして「登録」または「登録解除」で行います
( Window9X では、WSH のバージョンが5.6 の場合インストール可能です )
※ ソースコードは、Tool\parts\BatchWsc.wsc です。VBScript の書ける人なら誰でも改造できます
※ 以下に示されている書式は、Set Wsc = CreateObject( "Lbox.BatchWsc" ) が前提です
Basp21 はBaba さんが作成されたメール送信や、その他色々な役に立つ機能を持つコンポーネントです
全部のメソッドをラップするのは大変なので最も重要なものをいくつか選びました
Excel.Application を使用して Excel プックに対する処理を行ないます
( ※ Microsoft Excel がインストールされている必要があります )
一回の実行で全ての処理が完了するメソッドです
WSH は、Windows に標準実装されているシステムに対する処理を行なうオブジェクトの総称です
Set WshShell = CreateObject( "WScript.Shell" ) nRet = WshShell.Run( CommandLine, 0, True )
Ret = Wsc.RunStdout( "ping 192.168.1.1" ) Lbox.MsgOk(Ret)
Set Lbox = CreateObject("Lbox.BatchHelper")
Set Wsc = CreateObject("Lbox.BatchWsc")
hWnd = Lbox.Run( "notepad.exe", "Notepad" )
Lbox.ActiveWindow = hWnd
Call Wsc.SendKey("%OF")
FileSystemObject は、Windows に標準実装されているファイルシステムに対する処理を行なうオブジェクトです
ADSI の WinNT プロバイダを使用してコンピュータのローカルユーザの追加と削除を行います
WMI から情報を取得します
ADOX を使用した MDB の処理です
| 名称 | タイプ | 作成日 | 更新日 |
|---|---|---|---|
| V_商品一覧 | VIEW | 2005/01/08 15:53:16 | 2005/01/08 15:53:16 |
| V_売上日付 | VIEW | 2005/01/08 15:54:24 | 2005/01/08 15:54:24 |
| コード名称マスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/08 15:50:53 |
| コントロールマスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/08 15:50:53 |
| メッセージマスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/22 22:24:50 |
| 社員マスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/08 15:50:53 |
| 取引データ | TABLE | 2005/01/08 15:50:53 | 2005/01/11 17:23:27 |
| 商品マスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/08 15:50:53 |
| 商品分類マスタ | TABLE | 2005/01/08 15:50:53 | 2005/01/08 15:50:53 |
| 得意先マスタ | TABLE | 2005/01/08 15:50:54 | 2005/01/08 15:50:54 |
SQLServer または、MSDE がインストールされている PC で使用できる SQLDMO オブジェクトを使用した処理を行ないます
WSH の 外部プログラム実行メソッドを使用して実行できる既存の Windows の有用なアプリケーションで、
引数の指定が煩雑なものををラップしています
C:\Documents and Settings\lightbox>at
状態 ID 日付 時刻 コマンド ライン
-------------------------------------------------------------------------------
3 毎 月曜日 火曜日...12:20 cmd.exe /c dir
4 毎 月曜日 火曜日...12:20 cmd.exe /c dir
select Command,InteractWithDesktop,RunRepeatedly,StartTime from Win32_ScheduledJob
いろいろな処理メソッドです
strWork = "a,b,c,d" aWork = Split(strWork,",") aWork = Wsc.DeleteArrayItem(aWork, 0 ) if not IsArray( aWork ) then Lbox.MsgOk(aWork) Wscript.Quit end if