'v5.A*************************************************** ' File: http-server-test.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Testet ob eine (Fehler-) Seite NICHT geladen wird '******************************************************* Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl Const Link = "http://dieseyer.de/dse-wsh-scr-.html" Const SuchBegriff = "2005" Dim fso : Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim StartZeit : StartZeit = Now() Dim i, Tst, Text LogDatei ( vbCRLF & Now() & vbTab & " Start von " & WScript.ScriptFullName ) Do Do Tst = now() ' Jede volle Minute If Second( Tst ) = 0 Then Text = Text & vbCRLF & Now() & vbTab & Tst & vbTab & i & " " & "32 :: " End If ' Jede volle 5 Minuten If Mid( Minute( Tst ), 2 ) = "5" OR Minute( Tst ) = 5 Then If Second( Tst ) < 2 Then Text = Text & vbCRLF & Now() & vbTab & Tst & vbTab & i & " " & "32 :: " End If ' Jede volle 10 Minuten If Mid( Minute( Tst ), 2 ) = "0" OR Minute( Tst ) = 0 Then If Second( Tst ) = 0 Then Text = Text & vbCRLF & Now() & vbTab & Tst & vbTab & i & " " & "33 :: " End If if not fso.FileExists( WScript.ScriptFullName ) Then Exit Do Exit Do Loop if not fso.FileExists( WScript.ScriptFullName ) Then Exit Do If not Text = "" Then i = i + 1 : Tst = TestLink( Link, SuchBegriff ) : LogDatei ( Now() & vbTab & Tst ) WScript.Sleep 10 : If not Text = "" Then Text = "" : WScript.Sleep 1*1000 Loop LogDatei ( vbCRLF & Now() & vbTab & " Ende von " & WScript.ScriptFullName ) MsgBox vbTab & "Seit " & StartZeit & " wurde " & vbCRLF & Link & vbCRLF & vbTab & i & " mal getestet . . . ", , WScript.ScriptName ' WScript.CreateObject( "WScript.Shell" ).Run "notepad " & WScript.ScriptFullName & ".log" WScript.Quit '************************************************************ Function TestLink( Link, Tst ) '************************************************************ Dim MeinIE, READYSTATE_COMPLETE ' Dim oDoc, oArea, oRng Set MeinIE = CreateObject("InternetExplorer.Application") Do While MeinIE.Busy ' Warten bis der IE komplett geladen ist WScript.Sleeep 50 Loop MeinIE.Visible = False ' True MeinIE.Navigate Link Do While MeinIE.ReadyState <> 4 ' Warten bis der IE die Site komplett geladen hat WScript.Sleep 50 Loop TestLink = MeinIE.document.body.innerText If InStr( UCase( TestLink ), UCase( Tst ) ) > 0 Then TestLink = "Seite ist aufrufbar." Else TestLink = "=> Seite ist nicht verfügbar." End If WScript.Sleep 500 MeinIE.Quit End Function ' TestLink( Link ) ' ************************************************************** Sub LogDatei (LogTxt) ' v3.9 - http://dieseyer.de ' ************************************************************** WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.ScriptName & ".log", 8, true).WriteLine (LogTxt) End Sub ' LogDatei (LogTxt) ' v3.9 - http://dieseyer.de