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

[Tomoki Sanaki <sanaki@xxxxxxxxxxxx>]

佐名木という者です



Hideaki Ihara wrote on 2002-12/3(火) 9:8:58
>おはようございます、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 を“エラー”に。

if(これが標準出力の結果を見るという事であれば、){
	str = ""
	While Not oExec.StdOut.AtEndOfStream
		str = str & oExec.StdOut.Read(1)
	Wend
	' ここで判断、
	' 例えば、"Patch NOT Found" という文字列を判断するのであれば、
	If 0 = InStr(str,"Patch NOT Found",1) Then
		REM ここは見つからなかった
	Else
		REM ここは見つかった
	End If
}

でしょうか....

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

ActiveScript なら ComBlat がスマートかも....BASP21 という手もあり...

以上、よろしくお願いします

 -----------------------------------------------------
 佐名木 智貴(Tomoki Sanaki) 
    E-mail=active@xxxxxxxxxxxxxxxxxx
 PGP FingerPrint 
 = 34E5 2A31 45C8 2CB5 3CED  0B46 F328 A402 7182 DCC6