"Martin Kruse" <martin.kruse@get2net.dk> wrote in message
news:9u8q4c$r6m$1@news.cybercity.dk...
> Hej i gruppen!
>
> Kan det lade sig gøre at pinge en anden server for at se om den er oppe
uden
> brug af komponenter?
>
> --
>
> MK
Det lar seg saktens gjøre, men uten komponent må du ha tilgang til å kjøre
programmer på server. Det er ikke sikkert at din ISP lar deg gjøre dette,
men har du en egen server går det OK. På en standard NT eller W2K boks vil
scriptet kunne se ut som angitt under. Merk: scriptet er ikke spesielt
hurtig, og tar noe ressurser på serveren i det det venter. Men ellers
fungerer det bra. Den siten du skal pinge setter du inn etter filnavnet,
f.eks om du skal pinge
www.dr.dk så taster du inn
http://server/script.asp?ping=www.dr.dk . Prøv det evt. live på
http://www.hovik.com/testing/ping.asp?ping=www.dr.dk
Mvh
Svein
<%
strPing = Request.Querystring("Ping")
IF strPing = "" THEN
strPing = "
www.hovik.com"
END IF
strTekst = "Vent noen sekunder....."
'kjører en ping fra serveren
dim wsh
set wsh = createobject("WScript.Shell")
'response.write
wsh.run("cmd /c C:\WINNT\system32\ping.exe " & strPing & " > " &
server.mappath("pingresults.txt"))
response.write(strTekst)
on error resume next
response.flush
starttime = now
Do While DateDiff("s",starttime,now) < 5
Loop
strTekst = " <font color=red> <p> ....... FERDIG!</font>"
Response.write(strTekst)
set wsh = nothing
set filesys = Server.CreateObject("Scripting.FileSystemObject")
strFilename = server.mappath("pingresults.txt")
set readfile = filesys.OpenTextFile(strfilename, 1, false)
contents = readfile.ReadAll
response.write("<html><body><pre>" & contents & "</pre></body></html>")