Intranetseite anpingen

Prüfung ob Link im Firmenintranet erreichbar ist.

Guten morgen liebe Admin's,

Wir haben in unserem Intranet einen Link, welcher wenn möglich auf Erreichbarkeit überwacht werden soll.

Link:

http://server:9081/wps/portal

Sobald ich auf den Link klicke, erscheint eine Anmeldemaske.
Gibt es eine Möglichkeit (per Script oder so) zu überprüfen, ob dieser Link erreichbar ist ?

Leider schreibt die Appliaction in keinem Logfile, ob alles in Ordnung ist.

VBS Script wäre am besten.

Hat jemand eine Idee oder Vorschlag ?

Danke

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 165883

Url: https://administrator.de/contentid/165883

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

3 Kommentare

Neuester Kommentar

Du könntest die Loginseite mit einem kleinen Script regelmäßig abrufen

strURL = "http://server:9081/wps/portal"  
Set ObjHTTP = CreateObject("Microsoft.XmlHttp")  
ObjHTTP.open "GET", strURL, FALSE  
objHTTP.send ""  
'wscript.echo objHTTP.responseText  
set ObjHTTP = nothing
set ObjFile = nothing

Wenn eine Antwort kommt "gut", wenn keine kommt "schlecht". Noch besser jagst du die Serverantwort (in objHTTP.ResponseText) durch einen entsprechenden Filter, der auf Korrektheit der Antwort prüft. Vielleicht gibt es ein Datum oder ein Uhrzeit die man prüfen kann?!

Manuel

Host = "http://server:9081/wps/portal"
Dim myReq As HttpWebRequest = WebRequest.Create(Host)
myReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13"
myReq.CookieContainer = myReq.CookieContainer
myReq.Timeout = 50000
Dim myReqHttpWebResponse As HttpWebResponse = CType(myReq.GetResponse(), HttpWebResponse)
Dim Request As String
nfstatus = myReqHttpWebResponse.StatusDescription
myReqHttpWebResponse.Close()

If nfstatus <> "OK" Then
...

gruß
ackerdiesel