VBScript による疎通確認
今、以下のVBScriptを使い２台の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"
お礼
ご回答、ありがとうございます。 結構使いそうな関数なのに、無いというのも不思議ですね。