Effettuare un ping da una pagina ASP

di , in Classic ASP, UserScript, Coding,

Questo script ci da' la possibilita di effettuare un ping da una pagina ASP.
Per fare questo utilizzeremo la funzione Wscript.Shell che ci permette di lanciare un comando batch salvando l'output su di un file.
Successivamente dobbiamo solo stampare il contenuto del file a schermo:
- Creare un file di testo (.txt)
- Il file di testo (.txt) deve stare nella stessa directory dello script
- La directory deve avere i permessi di scrittura da parte del WebServer

Ed ecco il codice:

<%

'Indirizzo o host su cui si vuole effettuare il ping
strHost = "127.0.0.1"
PATH = Server.mappath(".")
 ' Nome del file sul quale viene salvato il risulato del ping

FILENAME = "file.txt"
TARGET = PATH&"/"&FILENAME

Set objShell = Server.CreateObject("Wscript.Shell")
' Esecuzione del ping
objShell.Run "%ComSpec% /c ping " & strHost & ">"&TARGET,0,true

set fs = CreateObject("Scripting.FileSystemObject")
' Lettura del file
set file = fs.OpenTextFile(target, 1)
do while not file.AtEndOfStream
  ' Questo ciclo legge tutte le righe del file
  ' e le salva nella variabile PING_OUTPUT
  PING_OUTPUT = PING_OUTPUT & (file.ReadLine & "<br>")
loop

' Chiudo il file
file.Close()

' Stampo il risultato sulla pagina
Response.Write PING_OUTPUT

%>

Commenti

Visualizza/aggiungi commenti

Effettuare un ping da una pagina ASP (#431) 810 137
| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi