'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