Problemas com Wscript

[Felipe_SP 0]

Fala ae pessoal to com o seguinte problema:

 

Estou criando uma função asp para que ela possa dar um ping no servidor e para isso estou usando o wscript.shell, só que quando eu mando rodar a página ele dá acesso negado, será que alguém poderia ajudar?

 

Vou postar o codigo e o erro logo abaixo:

 

Abraços

 

<%Function Ping(IP) Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("ping " & IP) If Not oExec.StdOut.AtEndOfStream Then sText = sText & oExec.StdOut.ReadAll() End If Response.write(sText) End Function Call ping("127.0.0.1") %>

 

Erro:

 

Tipo de erro:

WshShell.Exec (0x80070005)

Acesso negado.

/Portal NM-2.5/ping.asp, line 7

[Ted k' 126]

verifique se ñ tem nada bloquenado, antivirus...

 

Você ja verificou se você tem os componentes?

Dynu, WScript, ASPExec

 

A pasta onde esta o arquivo esta com permissao de execução de scripts e executaveis ?

[Felipe_SP 0]

Então tenho o WScript esses outros dois eu não sei, tenho que verificar... Aonde que eu posso ver isso?A pasta tem permissão sim pra executar scripts e executaveis!Valeu Ted!

[Ted k' 126]

dá uma olhada nesse código que crie, ajuda a descobri os componentes instalados, caso ñ tenha eles que você precisa tem que correr atrás para instalar!

http://forum.imasters.com.br/index.php?showtopic=219420

[Felipe_SP 0]

dá uma olhada nesse código que crie, ajuda a descobri os componentes instalados, caso ñ tenha eles que você precisa tem que correr atrás para instalar!http://forum.imasters.com.br/index.php?showtopic=219420

Valeu Ted era isso mesmo, vou correr atrás dos componentes...

[Ted k' 126]

Ok, boa sorte e, qualquer outro erro que apareça você posta æ!!