登録者: wssplex
電子メール: kissme7@msn.com
ホームページ: http://www.wssplex.net/
http://www.wssplex.net/QnA/Server.aspx?No=1251

親文内容

何 これは ガンダンハゲでも Vbscript 位 すること 分かれば 休みます.
この前に 質問中に 似ているのが 上って来て 答を ダルアドンゴッ ようなのに,... 記憶が... -_-;

とにかく,. 捜して 見れば 分かるが,. 関連 スクリプトは 非常に 多くて 易しく 捜すこと あるが, そういうものたちを 少しずつ 応用して それなりに 必要な 機能だけ 具現すれば なるからです..^^

既存に 上げられた チップズングに,.
http://www.serverinfo.pe.kr/TipnTech.aspx?Seq=372  参考して 見れば,.

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("select * from Win32_Process where caption = 'test.exe'")

増えた, 指定された プロセスを 持続的に 呼び出すように ルーフ コードを 作成すれば なります.

Set objEventSource = objSWbemServices.ExecNotificationQuery( _
"SELECT * FROM __InstanceOperationEvent " & _
"WITHIN 1 " & _
"WHERE TargetInstance " & _
"ISA 'Win32_Process' " & _
"AND TargetInstance.Name = 'test.exe'")

のように, イベントを 利用しても なるが, イベントの 場合 使う時ない 違う プロセスの イベントも 過ぎて 来るので そのまま 指定された プロセスだけ クイーリーする のが もっと 良くて 見えます.

一番目の 場合は, リターンされた 数が 0 晴れれば test.exe 街 実行中が ないという のを チェックして

二番目の イベントを 利用する 場合は 越えて来た イベント中 プロセス人を 比べて test.exe街 ある イベントを 捜して, その中に プロセスが 終わった, __InstanceDeletionEvent に 係わった のを チェックなされば なります.

__InstanceOperationEvent には 次 3枝 イベントが 皆 含まれて あります.
__InstanceCreationEvent / __InstanceModificationEvent / __InstanceDeletionEvent

そのまま コードで __InstanceDeletionEvent イベントだけ チェックしても なること ようです.

それでは 今,. 該当 イベントや リターン値を 指定された 条件に 符合した時, メールを 送る コード(走路 関数で)を 利用して メールを 送れば なります.

Sub MailSend
Const cdoSendUsingPort = 2
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

With iMsg
   Set .Configuration = iConf
   .To = "ntsystemcheck@hanbiro.com"
   .From = "ntsystemcheck@hanbiro.com"
   .Subject = "サービスが 死んだら.."
   .TextBody = "くそ...!!" 
   .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub

要件 全体的な ロジッグを 説明 ドリンゴッで, 直接 検索を して見て 具現して 見てください.^^

そのまま あること 持って来て 使うこと よりは 直接 一度 作って 見れば,. あれこれ 応用して 見ること ある 部分が かなり(無窮無尽...) 多いです.^^



Windows, WMI, Vbscript, PowerShell, サーバー管理, サーバー運営