lunedì 23 ottobre 2017

Centralino IP PBX su Windows - 3CX Phone System which links here: http://www.3cx.it/centralino/index.html

 

 

RSS Feed RSS Feed

Login

Newsletter Newsletter

Registrati

RisorseGuide e Articoli

 

31

Con questo script è possibile effettuare un ping dal server web e farsi restituire l'output a video.
(mb)

 

<%
'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
%>


Scritto in: Script
AZIONI: E-mail | Permalink |
CONDIVIDI: del.icio.us   Facebook   Digg   Google   Live Bookmarks   Newsvine   StumbleUpon   Technorati   Yahoo   DotNetKicks
blog comments powered by Disqus

Copyright 2011 by SysAdmin.it