Jag måste göra något fel... Byter ut den mot Server.CreateObject men den länkar ändå bara tillbaks till förstasidan... Kör full access på IISen och har både scripts och executables aktiverat...
Om jag nu ska lägga den i en <script>tagg, hur går jag till väga för att köra den med en länk?
Koden jag vill köra ligger längst upp i tråden...
Det jag vill ska hända är att jag har en söksida, där jag kan söka efter serverar eller klientmaskiner i nätet, och sedan pinga dessa direkt genom sidan. Vill ju då ha ett aktivt CMDfönster eller något annat som jag ser så jag ser att den fungerar.
<html>
<title>Ping</title>
<head>
</head>
<body>
<%
serverID = Request.QueryString("serverID")
strServer = Request.QueryString("serverName")
strserverIP=Request.QueryString("serverIP")
if instr(1,strServer," ")>=0 and strserverIP<>"" then
if instr(1,strserverIP,",")>0 then
strserverIP = left(strserverIP,instr(1,strserverIP,",")-1)
end if
strServer=strserverIP
end if
if strServer <> "" then
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("ping -n 4 -w 1000 " & strServer)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
Response.Write replace(replace(replace(strPingResults,vbcrlf,"<br>")," "," ")," "," ")
Set objScriptExec = nothing
Set objShell = nothing
else
Response.Write "No Server."
end if
%>
<br><input type="button" value="Close" onclick="vbscript:window.close">
</body>
</html>
Din kod verkar vara något åt det hållet som jag vill ha det... Tyvärr händer ju ingenting när jag kör det... ping.asp?serverIP=192.168.0.1 osv osv... Den bara står o laddar i evigheter....
