スクリプトの実行時エラー(0x80041013)についてお教えください

お世話になっております。
今回、初めて質問させていただきます。

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