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权限的问题