'*** v6.1 *** www.dieseyer.de *******************************
'
' File:   programme-nacheiander-starten.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Das Skript meldet sich, wenn ein Programm komplett
' geladen ist. Dann soll die CPU-Last über eine "Dauer"
' kleiner 10% Sein.
' siehe dazu auch: progr-cpu-last-test.vbs
'
' Microsoft: The Portable Script Center - v3.0, Nov. 2004
' "Monitor Process Performance"
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl
 
  ProgrRuheOK    "C:\Programme\AVPersonal\AVWIN.EXE", 5 ' ohne LOG-Datei
' ProgrRuheOKlog "C:\Programme\AVPersonal\AVWIN.EXE", 5 '  mit LOG-Datei

MsgBox "Habe fertig . . . ", 4096, WScript.ScriptName

WScript.Quit

'*** v6.1 *** www.dieseyer.de *******************************
Function ProgrRuheOK( Progr, Dauer )
'************************************************************
' CPU-Last durch "Progr" soll für den Zeitraum
' von "Dauer" unter 10% liegen
Const CPUlast     = 10
Dim i, Zeit, Tst
' WMI bereit stellen
Dim objWMIService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Dim objRefresher  : Set objRefresher  = CreateObject("WbemScripting.SWbemRefresher")
Dim colItems      : Set colItems      = objRefresher.AddEnum (objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
Dim objItem

' zu überwachendes Programm starten, nicht aufs Ende des gestarteten Programms warten
WScript.CreateObject("WScript.Shell").Run Progr, , False 

' ProgrammName, wei er im Taskmanager erscheint
Progr = Mid(  Progr, InStrRev( Progr, "\" ) + 1 )
Progr = Left( Progr, InStrRev( Progr, "." ) - 1 ) 
' MsgBox ProgrTst : WScript.QUIT

Zeit = Timer()

' gestartetes Programm überwachen
Do
  wscript.sleep( 100 ) 

  objRefresher.Refresh

  For Each objItem in colItems
    If InStr( UCase( objItem.Name ), "AVWIN" ) > 0 Then 
      Tst = objItem.PercentProcessorTime
      If Int( Tst ) > CPUlast Then Zeit = Timer()

    End If 

  Next

  If Timer() - Zeit > Dauer Then Exit Do 

Loop

ProgrRuheOK = True

End Function ' ProgrRuheOK( Progr, Dauer )


'*** v6.1 *** www.dieseyer.de *******************************
Function ProgrRuheOKlog( Progr, Dauer )
'************************************************************
' CPU-Last durch "Progr" soll für den Zeitraum
' von "Dauer" unter 10% liegen
Const CPUlast     = 10
Dim i, Zeit, Tst

' LOG-Datei für Protokollierung öffnen
Dim fso           : Set fso           = WScript.CreateObject("Scripting.FileSystemObject")
Dim FileOut       : Set FileOut       = fso.OpenTextFile( Replace( WSCript.ScriptName, "vbs", "log" ), 2, true)

' WMI bereit stellen
Dim objWMIService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Dim objRefresher  : Set objRefresher  = CreateObject("WbemScripting.SWbemRefresher")
Dim colItems      : Set colItems      = objRefresher.AddEnum (objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
Dim objItem

' zu überwachendes Programm starten, nicht aufs Ende des gestarteten Programms warten
WScript.CreateObject("WScript.Shell").Run Progr, , False 

' ProgrammName, wei er im Taskmanager erscheint
Progr = Mid(  Progr, InStrRev( Progr, "\" ) + 1 )
Progr = Left( Progr, InStrRev( Progr, "." ) - 1 ) 
' MsgBox ProgrTst : WScript.QUIT

Zeit = Timer()

' gestartetes Programm überwachen
Do
  wscript.sleep( 100 ) 

  objRefresher.Refresh

  For Each objItem in colItems
    If InStr( UCase( objItem.Name ), "AVWIN" ) > 0 Then 
      Tst = objItem.PercentProcessorTime
      If Int( Tst ) > CPUlast Then Zeit = Timer()

    End If 

  Next

  If Timer() - Zeit > Dauer Then Exit Do 

  fileOut.WriteLine( now() & vbTab & Tst & vbTab & Timer() - Zeit  )

Loop

  fileOut.WriteLine( now() & vbTab & Tst & vbTab & Timer() - Zeit  )

ProgrRuheOKlog = True

End Function ' ProgrRuheOKlog( Progr, Dauer )


'*** v6.1 *** www.dieseyer.de *******************************
Function Now()
'************************************************************

  ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  ' ! ! ! Damit funktioniert natürlich DateDiff nicht mehr ! ! !
  ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  ' Now gibt jetzt einen String und kein (verwendbares) Datum zurück

  Now = Date & " " & Time & ",00"

  ' Wenn Timer() ein Komma enthält, wird: Now = Date & " " & Time & [Rest von Timer]
  If InStr( Timer(), "," ) > 0 Then Now = Date & " " & Time & Mid( Timer(), InStr( Timer(), "," ) ) 

  ' Wenn Timer() nach dem Komma einstellig ist, wir eine 0 angehangen
  If Len( Mid( Now, InStrRev( Now, "," ) ) ) = 2 Then Now = Now & "0"

End Function ' Now()