Re: Vista automatisch Herunterfahren nach CPU Auslastung

Ich kann leider nicht Programmieren, deshalb kann ich dir nur meinen Dank
aussprechen jedoch gibt es ein Problem:
Zeile: 6
Zeichen: 11
Fehler: Anweisungsende erwartet
Code: 800A0401

Danke für deine Hilfe


"Helmut Rohrbeck" <helrohr@gmx.net> schrieb im Newsbeitrag
news:euma1f.3ks.1@helmrohr.de...
> "Richert Poelzener" <poelz-news@gmx.net> schrieb:
>
>> Kennt jemand ein (Freeware) Programm mit dem man Vista automatisch
>> herunterfahren (in den Ruhezustand versetzen) kann, wenn die CPU
>> Auslastung
>> (dauerhaft) unter einen bestimmten wert fällt?
>> Bin über Vorschläge und Erfahrungsberichte sehr dankbar.
>
> Ein "Freeware"-Programm kenne ich dafür nicht, es lässt sich
> aber mit einem VBScript realisieren:
> ------------------------------------------------------------
> Set WshShell = WScript.CreateObject("WScript.Shell")
> Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
> Set oRef = CreateObject("WbemScripting.Swbemrefresher")
> Set objProcessor = oRef.AddEnum _
> (oWMI, "Win32_PerfFormattedData_PerfOS_Processor").object Set
> Dim Idles = 0
> oRef.Refresh
>
> Do
> For Each intProcessorUse in objProcessor
> If intProcessorUse.PercentProcessorTime < 3 Then
> Idles = Idles + 1
> If Idles = 50 Then WshShell.Run "shutdown.exe /s /t 60"
> Else
> Idles = 0
> End If
> Next
> Wscript.Sleep 6000
> oRef.Refresh
> Loop
>
> -------------------------------------------------------------------
> Kopiere den Text zwischen den Linien in die Zwischenablage und füge
> ihn in ein leeres Notepadfenster ein. Speichere die Datei z. B. als
> "IdleShutDown.vbs" auf LW D:\ und lege eine Verknüpfung mit dem Ziel
> C:\Windows\system32\Wscript.exe D:\IdleShutDown.vbs
> an. Klicke mit der rechten Maustaste auf die Verknüpfung und wähle
> "Eigenschaften", setze unter "Erweitert" ein Häkchen vor
> "Als Administrator ausführen", denn zum Herunterfahren per Script sind
> Administratorrechte erforderlich.
>
> Dieses Script prüft alle sechs Sekunden die Prozessorauslastung.
> Wenn diese unter 3 % liegt (0 % erreicht Vista so gut wie nie),
> wird der Zähler um 1 erhöht, sonst wieder auf 0 gesetzt. Wenn
> der Wert 50 erreicht (entspricht 5 Minuten unter 3 % Auslastung),
> fährt Windows herunter. Dabei wird 1 Minute lang eine Warnung
> angezeigt, dass Windows beendet wird. Während dieser Anzeige kann
> das Herunterfahren abgebrochen werden, wenn man unter Start=>
> Ausführen den Befehl "shutdown /a" ein gibt. Der Wert "50" kann
> geändert werden, 10 entspricht einer Minute.
>
> --
> Helmut Rohrbeck www.helmrohr.de
> Mail nur über das Kontaktformular
> auf meiner Webseite!

"Richert Poelzener" <poelz-news@gmx.net> schrieb:
> "Helmut Rohrbeck" <helrohr@gmx.net> schrieb:
>> Ein "Freeware"-Programm kenne ich dafür nicht, es lässt sich
>> aber mit einem VBScript realisieren:
>> ------------------------------------------------------------
>> Set WshShell = WScript.CreateObject("WScript.Shell")
>> Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
>> Set oRef = CreateObject("WbemScripting.Swbemrefresher")
>> Set objProcessor = oRef.AddEnum _
>> (oWMI, "Win32_PerfFormattedData_PerfOS_Processor").object Set
>> Dim Idles = 0
>> oRef.Refresh
>>
>> Do
>> For Each intProcessorUse in objProcessor
>> If intProcessorUse.PercentProcessorTime < 3 Then
>> Idles = Idles + 1
>> If Idles = 50 Then WshShell.Run "shutdown.exe /s /t 60"
>> Else
>> Idles = 0
>> End If
>> Next
>> Wscript.Sleep 6000
>> oRef.Refresh
>> Loop
>>
>> -------------------------------------------------------------------
>
> Ich kann leider nicht Programmieren, deshalb kann ich dir nur meinen Dank
> aussprechen jedoch gibt es ein Problem:
> Zeile: 6
> Zeichen: 11
> Fehler: Anweisungsende erwartet
> Code: 800A0401

Sorry, da ist mir ein Fehler beim Kopieren des Scripts unterlaufen
Zeile 6 bitte mit Notepad ändern:
"Dim" vor Idles = 0 entfernen, so dass in der Zeile nur

Idles = 0

steht. Dann funktioniert es einwandfrei, habe das hier auf einem
Rechner mit Windows VISTA Ultimate mehrfach getestet.

Hinweis: Das Script läuft nach dem Start über die Verknüpfung
unsichtbar im Hintergrund, zeigt aber nach 5 Minuten Leerlauf
eine Warnung an, dass das System nach 1 Minute heruntergefahren
wird.

--
Helmut Rohrbeck www.helmrohr.de
Mail nur über das Kontaktformular
auf meiner Webseite!