ping en server i asp

brug den her:

http://www.codelink.dk/vis_kategori_2003.asp?kategori=Kildekode&sub_kategori=Ping

-- xs

det kræver at du har adgang til wscript på serveren.. :

<%
'************************************************************************************
'*    Ping 1.0                                                                        *
'*                                                                                    *
'*    Skrevet af Carsten Keutmann - aug/2001                                            *
'*    keutmann@yahoo.com                                                                *
'*                                                                                    *
'*    Koden kan frit benyttes, undtagen med salg for øje                                *
'*  Det er muligt at lavet et Ping unden brug af komponent. Dette kræver bare at     *
'*    du har adgang til at bruge objektet Wscript på din WebServer. Det kan ikke         *
'*    anbefales til "Gratis webhoteller" da Wscript som regel vil være slået fra der.    *
'*                                                                                    *
'************************************************************************************

Const TemporaryFolder = 2
Const FOR_READING = 1

Function Ping( Cmd, strResult )
    Dim tfolder, tfile, fso, filename, filOutput, WshShell
   
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
    filename = fso.GetTempName

    Set tfile = tfolder.CreateTextFile(filename)
    tfile.Close
    filename = tfolder.Path & "\" & filename
   
    Set WshShell = Server.CreateObject("Wscript.Shell")
    Ping = WshShell.Run("cmd /c C: & Ping " & Cmd & " >>" & filename, 0, True)
   
    Set filOutput = fso.OpenTextFile(filename, FOR_READING)
    strResult = filOutput.ReadAll
    filOutput.Close
   
    Set filOutput     = Nothing
    Set fso            = Nothing
    Set WshShell     = Nothing
    Set tfile        = Nothing
    Set tfolder        = Nothing
End Function
%>
<html>
<head><title>Ping</title><head>
<body>
<H3>Ping Test</H3>

<% if Request.QueryString("host") = "" then %>
<form action="ping.asp" method=get>
Enter Host to Ping: <input type=text size=45 name=host value="localhost">&nbsp;&nbsp;&nbsp;
<input type="Submit">
</form>

<% else
    if Ping(Request.QueryString("host"), strResult ) then
        Response.Write "Ping call error!"
    else
        Response.Write "<pre>" & strResult & "</pre>"
    end if
  end if
%>
</body>
</html>


-- xs

jeg skal ha så den selv gør det.. og kommer med en offline side hvis den er offline

og går til den side hvis den er online

<%
'************************************************************************************
'*    Ping 1.0                                                                        *
'*                                                                                    *
'*    Skrevet af Carsten Keutmann - aug/2001                                            *
'*    keutmann@yahoo.com                                                                *
'*                                                                                    *
'*    Koden kan frit benyttes, undtagen med salg for øje                                *
'*  Det er muligt at lavet et Ping unden brug af komponent. Dette kræver bare at    *
'*    du har adgang til at bruge objektet Wscript på din WebServer. Det kan ikke        *
'*    anbefales til "Gratis webhoteller" da Wscript som regel vil være slået fra der.    *
'*                                                                                    *
'************************************************************************************

Const TemporaryFolder = 2
Const FOR_READING = 1

Function Ping( Cmd, strResult )
    Dim tfolder, tfile, fso, filename, filOutput, WshShell
   
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
    filename = fso.GetTempName

    Set tfile = tfolder.CreateTextFile(filename)
    tfile.Close
    filename = tfolder.Path & "\" & filename
   
    Set WshShell = Server.CreateObject("Wscript.Shell")
    Ping = WshShell.Run("cmd /c C: & Ping " & Cmd & " >>" & filename, 0, True)
   
    Set filOutput = fso.OpenTextFile(filename, FOR_READING)
    strResult = filOutput.ReadAll
    filOutput.Close
   
    Set filOutput    = Nothing
    Set fso            = Nothing
    Set WshShell    = Nothing
    Set tfile        = Nothing
    Set tfolder        = Nothing
End Function
%>
<html>
<head><title>Ping</title><head>
<body>
<H3>Ping Test</H3>

<% if Request.QueryString("host") = "" then %>
<form action="ping.asp" method=get>
Enter Host to Ping: <input type=text size=45 name=host value="localhost"> 
<input type="Submit">
</form>

<% else
    if Ping(Request.QueryString("host"), strResult ) then
        Response.redirect "www.et.dk"
    else
        Response.redirect "http://www.etellerandet.dk"
    end if
  end if
%>
</body>
</html>

har ikke testet det men jeg vil tro det virker

-- xs

prøv lig og se om det virker...

http://212.10.176.215:8080/test.asp

øhhh.. kan du hjælpe med det ikke hva?

jeg prøver at finde ud hvordan det skal gøres lige nu faktisk....

okay...

Hvordan går det med det?

uden komponent går det ikke så godt.. med komponent tror jeg det er nemt nok.. :)

har du adgang til nogen komponenter?

okay... prøv med komponent...

øhhh ja... eller kan jeg få det

der er en gratis komponent du kan bruge:

http://www.serverobjects.com/products.htm#free

ASPPing hedder det..

http://212.10.176.215:8080/test2/ASPPING.HTM

okay... hva skal man gøre så det virker på serven?

vike even

"vike even" glem det

det vil nok være best hvis du kan lave den unden komponent... hvis du kan det

eller.. den skal bare se om en server køre og hvis den gør det så skal den bare køre den hvis den er offline skal den komme og sige at den er offline osv (nok det samme)

Har du ikke MSN eller ICQ?

der er et server komponent, Asp ping, som også skulle kunne klare opgaven uden de store problemer. Den kan findes på siden, serverobjects.com

Herved undgår man at skulle lave alt mulig unødvendig scripting, som dog ser frygtlig fancy ud,men...

/&Søren Søndergård

jeg kan ikke få komponent, Asp ping, til at virke såååå...

1) Har du registreret den korrekt med regsvr32 aspping.dll ?
2) kan du oprette en instans med Server.CreateObject(Set Pinger = Server.CreateObject("AspPing.Conn") ?

Jeg har leget lidt med det ...
<H3>Ping Test</H3>
<%
  Set Pinger        = Server.CreateObject("AspPing.Conn")
  Pinger.RemoteHost = "localhost"
  Pinger.PingCount  = 1
  str = Pinger.Ping
  Response.Write("<pre>" &str &"</pre>")
  Set Pinger = nothing
%>

du kan se en kørende version her:
http://home.cbkn.dk/lownoise/ping.asp

Sikkerhedsopsætningen kan forhindre en ping i at blive uført korrekt, hvilket er tilfælde i mit tilfælde. local host virker dog altid ;=)

På serveren kan du åbne en cmd prompt og skrive ping www.dr.dk for at se om den bliver udført korrekt.

Hilsen
Flemming

lytter med..

dropper det... gider ikke at kæmpe mer med det... sorry... :)

Kylling ;=)

hehe...

jeg har ellers fundet en god script som jeg har testet og det virker godt..

du kan finde det her:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6928

god fornøjelse

-- xs