VBScript による疎通確認
今、以下のVBScriptを使い2台のPCサーバへ成功の監査としてログイン・ログオフ記録をアプリケーションログに書き込んでいます。しかし、このVBScriptでは、2台のPCサーバの生死を判断することは出来ず、ダウンしているPCサーバだろうがアクセスします。そのため、ログイン・ログオフする度にエラーポップが出てしまいます。
そこで、このVBScriptに疎通確認し判断したのち、生きているPCサーバへのみアクセスするようにしたいのですがどのようにコードを組めば良いのか解りません。ご教授お願いします。
ログインスクリプト
Const AUDIT_SUCCESS = 8
Set objShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
strMsg = objNetwork.UserName + " logon "
objShell.LogEvent AUDIT_SUCCESS, strMsg, "\\マシン名1"
objShell.LogEvent AUDIT_SUCCESS, strMsg, "\\マシン名2"
ログオフスクリプト
Const AUDIT_SUCCESS = 8
Set objShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
strMsg = objNetwork.UserName + " logoff "
objShell.LogEvent AUDIT_SUCCESS, strMsg, "\\マシン名1"
objShell.LogEvent AUDIT_SUCCESS, strMsg, "\\マシン名2"
お礼
参考資料、有難うございます。 auditに関するセミナーなどもあるのですね。知りませんでした。 資料を参考にして、勉強致します。有難うございました。