'v4.5***************************************************** 

' File:   eventlog-bluescreen.vbs 

'         (aus DateiZeilenweiseLesenBearbeitenSchreiben.vbs ) 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

'  

' BlueScreens stehen nicht im Eventlog. Um zu sehen, wie oft 

' es mögicherweise eine gegeben hat, kann man auswerten, wie 

' oft die EventID 6006 (Shutdown) fehlt.  

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim WSHShell, fso, FileIn, FileOut 

Dim Datei, Txt, i, oArgs 

 

Set WSHShell = WScript.CreateObject("WScript.Shell") 

Set fso      = WScript.CreateObject("Scripting.FileSystemObject") 

set oArgs    = Wscript.Arguments 

 

 

' Fals ein Argument übergeben wurde, sollte es einen Dateinamen  

' enthalten 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

For i = 0 to oArgs.Count - 1                 ' hole alle Argumente  

  Datei = oArgs.item(i) 

  If not fso.FileExists( Datei ) then 

'    MsgBox UCase( Datei ) & "   existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName 

'    WScript.Quit 

  End If 

  Exit For                                   ' nur das erste Argument reicht 

Next  

 

 

' Gibt's keinen Dateinamen, wird das Skript beendet 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

if Datei = "" then  

  MsgBox "Datei auf das Skript ziehen und fallen lassen." & vbCRLF & vbCRLF & vbTab & "      Das ist das Ende", , WScript.ScriptName 

  WScript.Quit 

End If 

 

 

 

Set FileIn  = FSO.OpenTextFile(Datei, 1 )                    ' Datei zum Lesen öffnen  

 

      Datei = fso.GetParentFolderName( WScript.ScriptFullName ) & "\" & fso.GetBaseName( Datei ) & "-.txt" 

 

Set FileOut = FSO.OpenTextFile( Datei , 2, true) ' Datei zum Screiben öffnen; 2: immer neu anlegen 

 

 

 

' alle Zeilen lesen  

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

i= 1 

Do While Not (FileIn.atEndOfStream)                             ' wenn Datei nicht zu ende ist, weiter machen 

 

'   FileOut.WriteLine( vbCRLF & now() & vbCRLF )                   ' nur Für Testzwecke 

 

    Txt = FileIn.ReadLine 

    Txt = Replace( Txt, ".04	"                                         , ".04 " ) 

    Txt = Replace( Txt, "	EventLog	Informationen	  ---	" , "    " ) 

    Txt = Replace( Txt, "	  ---	"                                 , "    " ) 

    If Instr( Txt, "6005") Then FileOut.WriteLine( "+ " & Txt & vbTab & i ) : i = i + 1 

    If Instr( Txt, "6006") Then FileOut.WriteLine( "- " & Txt ) 

'   If Instr( Txt, "6009") Then FileOut.WriteLine( Txt ) 

 

Loop 

 

    FileIn.Close 

Set FileIn  = nothing 

 

    FileOut.Close 

Set FileOuT = nothing 

 

 

' (Ziel-) Datei anzeigen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

WSHShell.run "notepad """ & Datei & """" , , True        ' True: Skriptabarbeitung wartet bis Programm (notepade) beendet ist 

 

 

' (Ziel-) Datei löschen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

' fso.DeleteFile( Datei )