Hejsan!Pingscript har plötsligt sluta fungera...
Har ett litet problem... Har ett litet script som pingar servrar på knapptryckning. Detta har fungerat alldeles utmärkt, tills semestern började...
<%
strHost = Request.QueryString("ip")
TARGET = "c:/ping/hostpinged.txt"
Set objShell = Server.CreateObject("Wscript.Shell")
objShell.Run "%ComSpec% /c ping " & strHost & ">"&TARGET,0,true
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile(target, 1)
do while not file.AtEndOfStream
PING_OUTPUT = PING_OUTPUT & (file.ReadLine & "<br>")
loop
file.Close()
%>
Den poppar upp på följande kodrad:
<%=("<a onclick=MM_openBrWindow('ping.asp?ip=" & rs("ipadress") & "','','width=400,height=200') &"">") &"<img src=""ping.jpg"" border=""0"" alt=""Pinga!"" align=""center"">" & "</a>"%>
Den öppnar fönstret och visar det befintliga innehållet i "hostpinged.txt" men den ska ju skriva över med befintlig information.
Kör jag en Response.Write strHost så skriver den ut korrekt IP, så även ipadressen skickas ju med.
Någon som kan se vad jag har gjort fel? Måste ju ha trollat bort någon kodrad...
Mvh
Christoffer