Jump to content

This site uses cookies. By continuing to browse the site you are agreeing to our use of cookies. Find out more here. X
X


Photo

ping output to html


  • Please log in to reply
8 replies to this topic

#1 UniPer

UniPer

    Seeker

  • Active Members
  • 27 posts

Posted 23 March 2009 - 11:18 AM

Hi All,

This is what the script should do:

1. Run in 'hide'/'background' mode
1. reads a list of servers from a *.txt file
2. start a ping command to each server
3. create an output file in html format with the status of each server

I really don't know where to start.......
It's no problem to run the ping command, it's also no problem to run the script in 'hide'/'background' mode.
But the rest......????

What we want is to make a php page available for all our employees so that they can check
if a server is on- or offline. I tried to do it with php but that also gave me some problems I could't solve.. :D

Can someone please advise/help me on what to do and how to start?

Thanks in advance,
Kind Regards,

UniPer







#2 Manadar

Manadar

         

  • MVPs
  • 10,870 posts

Posted 23 March 2009 - 11:23 AM

PHP is much easier to do this. :D

#3 myspacee

myspacee

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 668 posts

Posted 23 March 2009 - 11:31 AM

here mine, put your IP on text file [IPLIST.txt] and run, output is an HTML file:

Plain Text         
#Include <File.au3> #include <Date.au3> #include <String.au3> #include <inet.au3> ;When the function fails (returns 0) @error contains extended information: ;1 = Host is offline ;2 = Host is unreachable ;3 = Bad destination ;4 = Other errors dim $num_line = 0 dim $che_ore_sono dim $file_HTML, $file While 1 ;////////////////////////////////////////////////////////////////////// ;//     determino in che mezz'ora sono ;//////////////////////////////////////////////////////////////////////     $che_ore_sono = number(_NowTime(4)) ;~ MsgBox(0,'',$che_ore_sono)     if $che_ore_sono >= 0 and $che_ore_sono <= 0.29 Then $che_ore_sono = "--ore_00:00--"     if $che_ore_sono >= 0.30 and $che_ore_sono <= 0.59 Then $che_ore_sono = "--ore_00:30--"     if $che_ore_sono >= 1.00 and $che_ore_sono <= 1.29 Then $che_ore_sono = "--ore_01:00--"     if $che_ore_sono >= 1.30 and $che_ore_sono <= 1.59 Then $che_ore_sono = "--ore_01:30--"     if $che_ore_sono >= 2.00 and $che_ore_sono <= 2.29 Then $che_ore_sono = "--ore_02:00--"     if $che_ore_sono >= 2.30 and $che_ore_sono <= 2.59 Then $che_ore_sono = "--ore_02:30--"     if $che_ore_sono >= 3.00 and $che_ore_sono <= 3.29 Then $che_ore_sono = "--ore_03:00--"     if $che_ore_sono >= 3.30 and $che_ore_sono <= 3.59 Then $che_ore_sono = "--ore_03:30--"     if $che_ore_sono >= 4.00 and $che_ore_sono <= 4.29 Then $che_ore_sono = "--ore_04:00--"     if $che_ore_sono >= 4.30 and $che_ore_sono <= 4.59 Then $che_ore_sono = "--ore_04:30--"     if $che_ore_sono >= 5.00 and $che_ore_sono <= 5.29 Then $che_ore_sono = "--ore_05:00--"     if $che_ore_sono >= 5.30 and $che_ore_sono <= 5.59 Then $che_ore_sono = "--ore_05:30--"     if $che_ore_sono >= 6.00 and $che_ore_sono <= 6.29 Then $che_ore_sono = "--ore_06:00--"     if $che_ore_sono >= 6.30 and $che_ore_sono <= 6.59 Then $che_ore_sono = "--ore_06:30--"     if $che_ore_sono >= 7.00 and $che_ore_sono <= 7.29 Then $che_ore_sono = "--ore_07:00--"     if $che_ore_sono >= 7.30 and $che_ore_sono <= 7.59 Then $che_ore_sono = "--ore_07:30--"     if $che_ore_sono >= 8.00 and $che_ore_sono <= 8.29 Then $che_ore_sono = "--ore_08:00--"     if $che_ore_sono >= 8.30 and $che_ore_sono <= 8.59 Then $che_ore_sono = "--ore_08:30--"     if $che_ore_sono >= 9.00 and $che_ore_sono <= 9.29 Then $che_ore_sono = "--ore_09:00--"     if $che_ore_sono >= 9.30 and $che_ore_sono <= 9.59 Then $che_ore_sono = "--ore_09:30--"     if $che_ore_sono >= 10.00 and $che_ore_sono <= 10.29 Then $che_ore_sono = "--ore_10:00--"     if $che_ore_sono >= 10.30 and $che_ore_sono <= 10.59 Then $che_ore_sono = "--ore_10:30--"     if $che_ore_sono >= 11.00 and $che_ore_sono <= 11.29 Then $che_ore_sono = "--ore_11:00--"     if $che_ore_sono >= 11.30 and $che_ore_sono <= 11.59 Then $che_ore_sono = "--ore_11:30--"     if $che_ore_sono >= 12.00 and $che_ore_sono <= 12.29 Then $che_ore_sono = "--ore_12:00--"     if $che_ore_sono >= 12.30 and $che_ore_sono <= 12.59 Then $che_ore_sono = "--ore_12:30--"     if $che_ore_sono >= 13.00 and $che_ore_sono <= 13.29 Then $che_ore_sono = "--ore_13:00--"     if $che_ore_sono >= 13.30 and $che_ore_sono <= 13.59 Then $che_ore_sono = "--ore_13:30--"     if $che_ore_sono >= 14.00 and $che_ore_sono <= 14.29 Then $che_ore_sono = "--ore_14:00--"     if $che_ore_sono >= 14.30 and $che_ore_sono <= 14.59 Then $che_ore_sono = "--ore_14:30--"     if $che_ore_sono >= 15.00 and $che_ore_sono <= 15.29 Then $che_ore_sono = "--ore_15:00--"     if $che_ore_sono >= 15.30 and $che_ore_sono <= 15.59 Then $che_ore_sono = "--ore_15:30--"     if $che_ore_sono >= 16.00 and $che_ore_sono <= 16.29 Then $che_ore_sono = "--ore_16:00--"     if $che_ore_sono >= 16.30 and $che_ore_sono <= 16.59 Then $che_ore_sono = "--ore_16:30--"     if $che_ore_sono >= 17.00 and $che_ore_sono <= 17.29 Then $che_ore_sono = "--ore_17:00--"     if $che_ore_sono >= 17.30 and $che_ore_sono <= 17.59 Then $che_ore_sono = "--ore_17:30--"     if $che_ore_sono >= 18.00 and $che_ore_sono <= 18.29 Then $che_ore_sono = "--ore_18:00--"     if $che_ore_sono >= 18.30 and $che_ore_sono <= 18.59 Then $che_ore_sono = "--ore_18:30--"     if $che_ore_sono >= 19.00 and $che_ore_sono <= 19.29 Then $che_ore_sono = "--ore_19:00--"     if $che_ore_sono >= 19.30 and $che_ore_sono <= 19.59 Then $che_ore_sono = "--ore_19:30--"     if $che_ore_sono >= 20.00 and $che_ore_sono <= 20.29 Then $che_ore_sono = "--ore_20:00--"     if $che_ore_sono >= 20.30 and $che_ore_sono <= 20.59 Then $che_ore_sono = "--ore_20:30--"     if $che_ore_sono >= 21.00 and $che_ore_sono <= 21.29 Then $che_ore_sono = "--ore_21:00--"     if $che_ore_sono >= 21.30 and $che_ore_sono <= 21.59 Then $che_ore_sono = "--ore_21:30--"     if $che_ore_sono >= 22.00 and $che_ore_sono <= 22.29 Then $che_ore_sono = "--ore_22:00--"     if $che_ore_sono >= 22.30 and $che_ore_sono <= 22.59 Then $che_ore_sono = "--ore_22:30--"     if $che_ore_sono >= 23.00 and $che_ore_sono <= 23.29 Then $che_ore_sono = "--ore_23:00--"     if $che_ore_sono >= 23.30 and $che_ore_sono <= 23.59 Then $che_ore_sono = "--ore_23:30--"         ;~ msgbox(0,"",$che_ore_sono) ;////////////////////////////////////////////////////////////////////// ;//             creo apro file necessari ;//////////////////////////////////////////////////////////////////////     $file = FileOpen("IPLIST.txt", 0)     If FileExists("Main_IP_table.html") Then     ;//////////////////////////////////////////////////////////////////////     ;//             aggiorna solo alcuni dati della pagina     ;//////////////////////////////////////////////////////////////////////         $filename = "Main_IP_table.html"         $find =  FileReadLine("Main_IP_table.html", 14)         $replace = "      <div align=" & Chr(34) & "center" & Chr(34) & ">Check : " & $che_ore_sono & "</div> <!--aggiornata_al-->" & @CRLF                 $retval = _ReplaceStringInFile($filename,$find,StringReplace($replace,"--",""))     Else         $file_HTML = FileOpen("Main_IP_table.html", 10)         sleep(1000)             ;//////////////////////////////////////////////////////////////////////     ;//             costruisci tabella generale     ;//////////////////////////////////////////////////////////////////////         FileWrite($file_HTML, "<html>" & @CRLF)         FileWrite($file_HTML, "<head>" & @CRLF)         FileWrite($file_HTML, "<title>Nacios - Ping Checker</title>" & @CRLF)         FileWrite($file_HTML, "<meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & Chr(34) & "text/html" & Chr(59) & " charset=iso-8859-1" & Chr(34) & ">" & @CRLF)         FileWrite($file_HTML, "</head>" & @CRLF)         FileWrite($file_HTML, "<body bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & ">" & @CRLF)         FileWrite($file_HTML, "<body bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & ">" & @CRLF)         FileWrite($file_HTML, "<table width=" & Chr(34) & "869" & Chr(34) & " border=" & Chr(34) & "1" & Chr(34) & ">" & @CRLF)         FileWrite($file_HTML, "  <tr> " & @CRLF)         FileWrite($file_HTML, " <td width=" & Chr(34) & "19" & Chr(34) & "> " & @CRLF)         FileWrite($file_HTML, "   <div align=" & Chr(34) & "center" & Chr(34) & "><font size=" & Chr(34) & "1" & Chr(34) & ">Now</font></div>" & @CRLF)         FileWrite($file_HTML, " </td>" & @CRLF)         FileWrite($file_HTML, " <td width=" & Chr(34) & "120" & Chr(34) & "> " & @CRLF)         FileWrite($file_HTML, "   <div align=" & Chr(34) & "center" & Chr(34) & ">Check : " & StringReplace($che_ore_sono,"--","") & "</div> <!--aggiornata_al-->" & @CRLF)         FileWrite($file_HTML, " </td>" & @CRLF)         FileWrite($file_HTML, " <td width=" & Chr(34) & "122" & Chr(34) & "> " & @CRLF)         FileWrite($file_HTML, "   <div align=" & Chr(34) & "center" & Chr(34) & ">DNS name</div>" & @CRLF)         FileWrite($file_HTML, " </td>" & @CRLF)         FileWrite($file_HTML, " <td width=" & Chr(34) & "563" & Chr(34) & ">0:00 ..................................................10:00......................15:00.....................20:00........23:30</td>" & @CRLF)         FileWrite($file_HTML, "  </tr>" & @CRLF)         FileWrite($file_HTML, "</table>" & @CRLF)         FileWrite($file_HTML, "</body>" & @CRLF)     ; costruisci tabella generale         While 1         ;//////////////////////////////////////////////////////////////////////         ;//             leggi IP dalla lista         ;//////////////////////////////////////////////////////////////////////             $num_line = $num_line + 1             $line = FileReadLine($file,$num_line)             If @error = -1 Then ExitLoop         ;//////////////////////////////////////////////////////////////////////         ;//             IP <-> DNS name         ;//////////////////////////////////////////////////////////////////////             local $IPtoNAME                                     If StringRegExp($line, "(\d+\.\d+\.\d+\.\d+)", 0) = 1 Then; Check if $line is an IP address                                 ;msgbox(0,"",$line & " sono un IPPPPPPPPPPPPPPPPP")                 TCPStartup()                 $IPtoNAME =  _TCPIpToName($line)                 TCPShutdown()                 if $IPtoNAME ="" then $IPtoNAME = " Unknow   "                                         $my_IP = $line             Elseif StringRegExp($line, "(\d+\.\d+\.\d+\.\d+)", 0) = 0 Then             ;msgbox(0,"",$line & " sono un DNS")                             TCPStartup()                 $IPtoNAME =  TCPNameToIP($line)                 TCPShutdown()                 if $IPtoNAME ="" then $IPtoNAME = " Unknow   "                             $my_IP = $IPtoNAME             EndIf         ;//////////////////////////////////////////////////////////////////////         ;//             Build HTML page         ;//////////////////////////////////////////////////////////////////////                       FileWrite($file_HTML, "<table width=" & Chr(34) & "869" & Chr(34) & " border=" & Chr(34) & "1" & Chr(34) & ">" & @CRLF)             FileWrite($file_HTML, "  <tr> " & @CRLF)             FileWrite($file_HTML, " <td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">" & @CRLF)             FileWrite($file_HTML, " <td width=" & Chr(34) & "160" & Chr(34) & " bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & "> " & @CRLF) ;~ <A HREF="<a href='http://www.yourdomain.com/' class='bbc_url' title='External link' rel='nofollow external'>http://www.yourdomain.com/"</a> TITLE="Your text description">Your Text</A> ;"<A HREF=" & Chr(34) & "<a href='http://www.yourdomain.com/' class='bbc_url' title='External link' rel='nofollow external'>http://www.yourdomain.com/"</a> & Chr(34) & " TITLE=" & Chr(34) & "Your text description" & Chr(34) & ">Your Text</A>" ;~      FileWrite($file_HTML, "<div align=" & Chr(34) & "center" & Chr(34) & ">" & $line & "</div>" & @CRLF)             FileWrite($file_HTML, "<A HREF=" & Chr(34) & "http:\\" & $line & Chr(34) & " TITLE=" & Chr(34) & $IPtoNAME & Chr(34) & ">" & $line & "</A>")             FileWrite($file_HTML, "</td>" & @CRLF) ;~      FileWrite($file_HTML, "<td width=" & Chr(34) & "160" & Chr(34) & " bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & "> " & @CRLF) ;~      FileWrite($file_HTML, "  <div align=" & Chr(34) & "center" & Chr(34) & ">" & $IPtoNAME & "</div>" & @CRLF) ;~      FileWrite($file_HTML, "</td>" & @CRLF)                                     FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_00:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_00:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_01:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_01:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_02:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_02:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_03:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_03:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_04:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_04:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_05:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_05:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_06:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_06:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_07:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_07:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_08:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_08:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_09:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_09:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_10:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_10:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_11:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_11:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_12:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_12:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_13:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_13:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_14:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_14:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_15:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_15:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_16:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_16:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_17:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_17:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_18:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_18:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_19:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_19:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_20:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_20:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_21:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_21:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_22:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_22:30-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_23:00-->" & @CRLF)             FileWrite($file_HTML, "<td width=" & Chr(34) & "7" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & "--ore_23:30-->" & @CRLF)             FileWrite($file_HTML, "</tr>" & @CRLF)             FileWrite($file_HTML, "</table>" & @CRLF)                                     ;~      FileWrite($file_HTML, "<table width=" & Chr(34) & "20" & Chr(34) & " border=" & Chr(34) & "1" & Chr(34) & ">" & @CRLF) ;~      FileWrite($file_HTML, "<td width=" & Chr(34) & "160" & Chr(34) & " bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & "> " & @CRLF) ;~      FileWrite($file_HTML, "  <div align=" & Chr(34) & "center" & Chr(34) & ">" & $IPtoNAME & "</div>" & @CRLF) ;~      FileWrite($file_HTML, "</td>" & @CRLF) ;~      FileWrite($file_HTML, "</tr>" & @CRLF) ;~      FileWrite($file_HTML, "</table>" & @CRLF)         Wend         FileWrite($file_HTML, "</body>")         FileWrite($file_HTML, "</html>")                                                     EndIf ; Check if file opened for reading OK     If $file = -1 Then         MsgBox(0, "Error", "Unable to open file.")         Exit     EndIf ; Check if file opened for reading OK     If $file_HTML = -1 Then         MsgBox(0, "Error", "Unable to open file.")         Exit     EndIf     FileClose($file)     FileClose($file_HTML) ;////////////////////////////////////////////////////////////////////// ;//             ciclo per aggiornamento HTML ;//////////////////////////////////////////////////////////////////////                 $num_line = 0     $file = FileOpen("IPLIST.txt", 0) ;$file_HTML = FileOpen("Main_IP_table.html", 10) ; Read in lines of text until the EOF is reached     While 1         $num_line = $num_line + 1         $line = FileReadLine($file,$num_line)         If @error = -1 Then ExitLoop                 ;//////////////////////////////////////////////////////////////////////         ;//             IP <-> DNS name         ;//////////////////////////////////////////////////////////////////////             local $IPtoNAME                                     If StringRegExp($line, "(\d+\.\d+\.\d+\.\d+)", 0) = 1 Then; Check if $line is an IP address                                 ;msgbox(0,"",$line & " sono un IPPPPPPPPPPPPPPPPP")                 TCPStartup()                 $IPtoNAME =  _TCPIpToName($line)                 TCPShutdown()                 if $IPtoNAME ="" then $IPtoNAME = " Unknow   "                                         $my_IP = $line             Elseif StringRegExp($line, "(\d+\.\d+\.\d+\.\d+)", 0) = 0 Then             ;msgbox(0,"",$line & " sono un DNS")                             TCPStartup()                 $IPtoNAME =  TCPNameToIP($line)                 TCPShutdown()                 if $IPtoNAME ="" then $IPtoNAME = " Unknow   "                             $my_IP = $IPtoNAME             EndIf         local $find, $replace, $filename, $msg, $retval         $var = Ping($my_IP ,2000)         ;~  msgbox(0,""," Ping " & $my_ip) ;~   ;~  msgbox(0,"",$line & " " & $var)         If $var Then; also possible:  If @error = 0 Then ...         ;Msgbox(0,"Status",$line & " Online, roundtrip was:" & $var)             $filename = "Main_IP_table.html"             $find =  "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $replace = "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#33FF33" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $retval = _ReplaceStringInFile($filename,$find,$replace)             $find =  "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#ff0033" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $replace = "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#33FF33" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $retval = _ReplaceStringInFile($filename,$find,$replace)             $find =  Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & $che_ore_sono             $replace = Chr(34) & "#33FF33" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & $che_ore_sono             $retval = _ReplaceStringInFile($filename,$find,$replace)         Else         ;Msgbox(0,"Status",$line & " An error occured with number: " & @error)             $filename = "Main_IP_table.html"                         $find =  "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $replace = "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#ff0033" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $retval = _ReplaceStringInFile($filename,$find,$replace)             $find =  "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $replace = "<td width=" & Chr(34) & "1" & Chr(34) & " bgcolor=" & Chr(34) & "#ff0033" & Chr(34) & ">&nbsp" & Chr(59) & "</td>" & "<!" & $my_IP & ">"             $retval = _ReplaceStringInFile($filename,$find,$replace)             $find =  Chr(34) & "#F2FFF2" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & $che_ore_sono             $replace = Chr(34) & "#ff0033" & Chr(34) & ">&nbsp" & Chr(59) & "</td> <!" & $my_IP & $che_ore_sono             $retval = _ReplaceStringInFile($filename,$find,$replace) ;~      if $retval = -1 then ;~          msgbox(0, "ERROR", "The pattern could not be replaced in file: " & $filename & " Error: " & @error) ;~          exit ;~      else ;~          msgbox(0, "INFO", "Found " & $retval & " occurances of the pattern: " & $find & " in the file: " & $filename) ;~      endif ;~      $msg = FileRead($filename, 1000)         ;msgbox(0,"AFTER",$msg)         ;FileDelete($filename)                                                                     EndIf     Wend     FileClose($file)     FileClose($file_HTML)     sleep(1200000) WEnd Func _StringReplaceBetween ($sString, $sStart, $sEnd, $sReplace)     $searchstring = _StringBetween ($sString, $sStart, $sEnd)     If @error Then SetError (1, -1, 0)     $return = StringReplace ($sString, $searchstring[0], $sReplace)     Return $return EndFunc


see you,

m.

#4 UniPer

UniPer

    Seeker

  • Active Members
  • 27 posts

Posted 23 March 2009 - 11:35 AM

PHP is much easier to do this. :D


Ok..the problem is that my php knowlegde is not very good so I'm just able to read and change existing scripts and that's it.
I want the output to be like this:
Click Here
Where the icon is red when the host is unavailable and green when it's online.

Can please give me push in the right direction or help me with this script?

Kind Regards,
UniPer

#5 UniPer

UniPer

    Seeker

  • Active Members
  • 27 posts

Posted 23 March 2009 - 11:38 AM

here mine, put your IP on text file [IPLIST.txt] and run, output is an HTML file:

If I only would know how that script runs and what it does... :S
Pfff... :D

But thanks for your input, I'll have a look at it.

#6 weaponx

weaponx

    I'm coming for blood, no code of conduct, no law.

  • MVPs
  • 5,366 posts

Posted 23 March 2009 - 01:03 PM

If you are making something web based then AutoIt does not come into play. You can do this with PHP alone.

#7 UniPer

UniPer

    Seeker

  • Active Members
  • 27 posts

Posted 24 April 2009 - 09:50 AM

If you are making something web based then AutoIt does not come into play. You can do this with PHP alone.

It doesn't have to be webbased, the ping script can just run local on one of the servers, the only thing I need is that the script
generates a HTML file with the ping results so I can load that on the Intranet server.

#8 NiVZ

NiVZ

    Adventurer

  • Active Members
  • PipPip
  • 108 posts

Posted 24 April 2009 - 11:15 AM

Hello,

Here's something I wrote quickly which will do what you want. Just modify the $ServerFile and $HTMLFile variables (and the $Sleeptime if you want) and run it on your server, but note that the Server status will only be as accurate as of the last time the script refreshed itself (ie it's not refreshing every load of the web page like PHP would!)

You could also edit the three Return values to point to three different images if you want (instead of text), eg:

Return "<img src='c:\dead.gif'/>"

Plain Text         
; Includes Go here! #include <Constants.au3> ; Don't display anything #NoTrayIcon ; Set Path to list of servers, one per line $ServerFile = "C:\ServerList.txt" ; Set Path to destination HTML FileChangeDir $HTMLFile = "C:\ServerStatus.html" ; How long to wait before refreshing - 15 minutes $Sleeptime = 15 * 60000 While 1 ; Try to open input the file in READ mode     $infile = FileOpen($ServerFile, 0) ; Display error and exit if it can't be opened     If $infile = -1 Then         MsgBox(16, "Error", "Unable to open input file.")         Exit     EndIf ; Read the entire contents of the file     $ServerString = FileRead($infile) ; Close the input File     FileClose($infile) ; Split each server name into an array     $ServerArray = StringSplit(StringStripCR($ServerString), @LF) ; Open an output file     $outfile = FileOpen($HTMLFile, 10) ; Display error and exit if it can't be opened     If $infile = -1 Then         MsgBox(16, "Error", "Unable to open outnput file.")         Exit     EndIf ; -- Start of HTML     FileWrite($outfile, "<html>" & @CRLF)     FileWrite($outfile, "<body>" & @CRLF)     FileWrite($outfile, "<table width='350' border='1'>" & @CRLF) ; Loop through each server     For $i = 1 to UBound($ServerArray)-1         ; Get the Status of current server         $Status = PingMachine($ServerArray[$i])                 FileWrite($outfile, @TAB & "<tr>" & @CRLF)         FileWrite($outfile, @TAB & @TAB & "<td width='100'><center>" & $Status & "</center></td>" & @CRLF)         FileWrite($outfile, @TAB & @TAB & "<td><center>" & $ServerArray[$i] & "</center/></td>" & @CRLF)         FileWrite($outfile, @TAB & "</tr>" & @CRLF)                     Next     FileWrite($outfile, "</table>" & @CRLF)     FileWrite($outfile, "<br/>" & @CRLF)     FileWrite($outfile, "Page generated at: " & @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)     FileWrite($outfile, "</body>" & @CRLF)     FileWrite($outfile, "</html>" & @CRLF) ; -- End of HTML ; Close the output file     FileClose($outfile) ; Go to sleep until we need to refresh     Sleep($SleepTime) WEND ; Function to ping a machine with optional timeout Func PingMachine ($machine, $timeout=20) ; Run the ping command     $foo = Run(@ComSpec & " /c ping -n 1 -w " & $timeout & " " & $machine, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)     ; Reset the ping output     $pingout = ""     ; Read the output from ping command     While 1         $line = StdoutRead($foo)         If @error Then ExitLoop         $pingout &= stringreplace($line, @CRLF, "")     Wend     ; Check the output to determine Server Status     If StringInStr($pingout, "reply from") Then ; Server is UP         Return "OK"         Elseif StringInStr($pingout, "could not find host") Then ; Unknown Server Name         Return "Unknown Server Name"     Else ; Server is Down ;Return "<img src='c:\dead.gif'/>"         Return "Down"     EndIf EndFunc

Edited by NiVZ, 24 April 2009 - 11:20 AM.


#9 Manadar

Manadar

         

  • MVPs
  • 10,870 posts

Posted 24 April 2009 - 12:34 PM

It doesn't have to be webbased, the ping script can just run local on one of the servers, the only thing I need is that the script
generates a HTML file with the ping results so I can load that on the Intranet server.

Looks like you really had a desperate need for this, replying a month after the original topic.




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users