3
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 165883
Url: https://administrator.de/contentid/165883
Printed on: April 23, 2024 at 21:04 o'clock
3 Comments
Latest comment
Du könntest die Loginseite mit einem kleinen Script regelmäßig abrufen
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
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 = nothingManuel
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
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
Moin,
Supi.
Hat funktioniert.
Recht herzlichen Dank
Supi.
Hat funktioniert.
Recht herzlichen Dank
