お世話になっております。
今回、初めて質問させていただきます。
VBScriptの実行時エラーについて質問させていただきます。
pingで監視対象のPCにアクセス可能か事前チェックするスクリプトを作成し、実行したところ
エラー(コード:0x80041013)が発生しました。
このエラーが発生する要因と対処方法についてご存知ならばお教えいただけますでしょうか?
指定したIPアドレスが違う、ケーブルが抜けている等で、pingを実行して発生したわけではない
というところまでは確認いたしました。
以下に作成したスクリプトを添付いたします。
OSは、Windows7です。
vbscript
1Function ChkNetWork() 2 ChkNetWork = 0 3 Dim timeOut 4 Dim objWMIService 5 Dim colItems 6 Dim objItem 7 8 'タイムアウト設定(ミリ秒) 9 timeOut = "10" 10 Set objWMIService = GetObject("winmgmts:\\.") 11 Set colItems = objWMIService.ExecQuery _ 12 ("Select * from Win32_PingStatus " & _ 13 "Where Timeout = " & timeOut & " AND Address = '" & IPADDRES & "'") 14 15 For Each objItem in colItems 16 If Not objItem.StatusCode = 0 Then 17 LogOutAppEvent EVENT_ERROR, "【監視スクリプト】" & vbCrLf & _ 18 "ネットワーク接続されていません。LANケーブルを確認してください。" & vbCrLf & _ 19 "接続先:" & IPADDRES & vbCrLf & _ 20 "スクリプト名:chkNetwork.vbs" & vbCrLf & _ 21 "メソッド名:" & "ChkNetWork()" 22 ChkNetWork = 1 23 End If 24 Next 25End Function
WindowsOSのバージョンを教えてください。