[ASP] Server anpingen

[Alter Schwede]

Hallo zusammen,

ich habe gerade die Ehre mich mit asp auseinandersetzen zu dürfen/müssen. Habe von einem Kollegen ein weiterverwertbares Skript bekommen, nur leider ist eine problematische Stellen drin, die ich nicht gelöst bekomme.

Ein Server soll angepingt werden, ist dies positiv werden Werte von dort abgefragt, andernfalls wird der nächste Server angepingt. Nur wie muss das mit dem Pingen aussehen?!

Function ping(strTarget)
on error resume next
  Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Run("ping -n 1 -w 2000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  response.write(strPingResults)
  If InStr(strPingResults, "Reply from") Then
    ping = true

  else
    ping = false

  end if
end function

Danke für Hilfe,
Stefan