我的代码为什么不能执行(有附件)

这是在XP系统的服务器上，为了判断服务器与www.是否网络连通，代码如下：

<%
url = "www.

WMI = "winmgmts:{impersonationLevel=impersonate}"

wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _
" = '" & url & "'"

set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) '总是提示我这句有错误，请高手帮改改（或是对服务器有什么要求，我没有配置对？），谢谢！


Response.write url & " 状态 "
For Each result in PingResult
if clng(result.StatusCode)>0 then
response.write "离线"
else
response.write "在线"
end if
Next
%>

[ 本帖最后由 qb0123126 于 2010-1-5 17:23 编辑 ]