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"

回答No.1

BLUEPIXY · ベストアンサー

Pingした時に、レスポンスがあるなら
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__networking.asp
の（一番下の所の）ようにして確かめられます。