远程服务器不存在或不可用 CreateObject,该如何处理

远程服务器不存在或不可用 CreateObject

Function main()


	strUrl="http://www.tudoupian.com/data/update_zonesucc.php"	

	Call BrowserNavigate(strUrl)

End Function 


	Function BrowserNavigate(strUrl)

	strComputer = "."

	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

	Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where name='iexplore.exe'") '

	If colProcessList.count<>0 Then 

	        For Each objItem in  colProcessList 

	                objItem.terminate()

	        Next 

	End If 


	Set oIE =CreateObject("InternetExplorer.Application")

	Set stateDictionary = CreateObject("Scripting.Dictionary")

	Set cityDictionary =  CreateObject("Scripting.Dictionary")

	oIE.Visible =True 


				oIE.Navigate strUrl




	End Function


	Call main()

错误行：Set oIE =CreateObject("InternetExplorer.Application")
我将这个VBS放在计划任务中定期循环执行。但是每次过较长时间，就提示标题 中的错误信息。
我怀疑过是多次调用的问题。但是我手动连续点击启动，并没有发现这个问题。
请帮忙看看，如何解决，谢谢。
------解决方案--------------------
你写病毒啊 同学