WshShell.Exec 异常 '80070005'

WshShell.Exec 错误 '80070005'
我编写了一个将域名转换为IP的ASP程序。代码如下：  
<%       Response.Buffer       =       true       %>          
    <%          
                    url       =       "12345.vicp.net "          
           
                    Set       objWShell       =       CreateObject( "WScript.Shell ")          
                    Set       objCmd       =       objWShell.Exec( "ping   -n   1       "       &       url)          
                    strPResult       =       objCmd.StdOut.Readall()          
                    set       objCmd       =       nothing:       Set       objWShell       =       nothing          
           
                    strStatus       =       "离线 "          
                    a=InStr(strPResult, "[ ")    
                  b=InStr(strPResult, "] ")    
      c=b-a
      ip= "http:// "&mid(strPResult,a+1,c-1)& "/pay4/GetPayNotify.asp "
                    response.write       ip


    %>      
在我2个朋友电脑上执行一切正常。分别是2003跟XP系统。但是在我的电脑上就出现  
WshShell.Exec   错误   '80070005 '  
拒绝访问。  
/ip.asp，行   6  

搞了半天都没有结果。有没有高人能指点指点。


------解决方案--------------------
应该是权限的问题。
------解决方案--------------------
IE权限的问题