[port139:01559] Re: Patch NOT Found のカウント

[Hideaki Ihara <hideaki@xxxxxxxxxxxxx>]

おはようございます、Port139 伊原です。

エラー処理を加えたかったので、WSH のサンプルみたりしているんですが、
プロパティとかなんのことやらよくわかりません（おい）
＃あとから書店で WSH の本を探してみよう

Blatj で hfnetchk の実行結果を送信することを考慮すると、-f を利用し
一旦ファイルへ出力してから type temp.txt|find /C "Patch" とした方が
いいんでしょうかね...

 hfnetchk.exe -x mssecure.xml -f temp.txt
 type temp.txt|find /C "Patch"

＃ さて、このスクリプト完成することはあるのだろうか・・・

Dim WshShell, oExec, oLog
Set WshShell = CreateObject("WScript.Shell")

'Hfnetchk を実行
Set oExec = WshShell.Exec("hfnetchk.exe -x mssecure.xml |find /C ""Patch"" ")

'プロセスの終了を確認
Do While oExec.Status = 0
     WScript.Sleep 100
Loop

'Hfnetchk の実行でエラーが発生したか確認, エラー時は Subject を“エラー”に。

'Blatj を実行してメールを送信, Subject に未適用数 or エラーを表示



---

Hideaki Ihara <hideaki@xxxxxxxxxxxxx>
Port139 URL: http://www.port139.co.jp/
PGP PUBLIC KEY: http://www.port139.co.jp/pgp/