运行Wscript.Shell 提示拒绝访问
代码:
url="www.newbooks.com.cn"
Set objWShell=CreateObject("WScript.Shell")
Set objCmd=objWShell.Exec("ping "&url)
StrPResult=objCmd.StdOut.Readall()
Set objCmd=nothing
Set objWShell=nothing
错误提示:
WshShell.Exec (0x80070005)
拒绝访问。
怎么配置权限?