http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4