远程服务器不存在或不可用 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放在计划任务中定期循环执行。但是每次过较长时间，就提示标题 中的错误信息。
我怀疑过是多次调用的问题。但是我手动连续点击启动，并没有发现这个问题。
请帮忙看看，如何解决，谢谢。
[解决办法]
你写病毒啊 同学