PING sem componentes

[xanburzum 169]

<% Response.Buffer = true

'sua URL

 

url = "www.seu_site.com.br"

 

WMI = "winmgmts:{impersonationLevel=impersonate}"

 

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

" = '" & url & "'"

 

set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)

 

 

Response.write url & " esta "

For Each result in PingResult

if clng(result.StatusCode)>0 then

response.write "offline"

else

response.write "online"

end if

Next

%>

[hargon 64]

Não consegui fazer funcionar Xan.

 

Obs: tem um %> a mais no inicio do código.

[xanburzum 169]

verifique se o usuário atual não tem permissão para

realizar a ação

[hargon 64]

Estou logado como administrador da máquina. Deu erro em GetObject.

[Ted k' 126]

o meu tbm!! :huh: