Microsoft Windows Vista Community Forums - Vistaheads
Recommended Download



Welcome to the Microsoft Windows Vista Community Forums - Vistaheads, YOUR Largest Resource for Windows Vista related information.

You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so , join our community today!

If you have any problems with the registration process or your account login, please contact us.

Driver Scanner

Re: Vista automatisch Herunterfahren nach CPU Auslastung

microsoft.public.de.windows.vista.sonstiges






Speedup My PC
Reply
  #1 (permalink)  
Old 04-01-2007
Richert Poelzener
 

Posts: n/a
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!


Reply With Quote
Sponsored Links
  #2 (permalink)  
Old 04-02-2007
Helmut Rohrbeck
 

Posts: n/a
Re: Vista automatisch Herunterfahren nach CPU Auslastung
"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!
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Systemzeit ändert sich automatisch Jonathan microsoft.public.de.windows.vista.administration 12 06-27-2007 14:42
Vista Herunterfahren siggi microsoft.public.de.windows.vista.bedienung 4 06-02-2007 18:50
Arbeitsspeicher Auslastung Tobias microsoft.public.de.windows.vista.administration 3 04-15-2007 12:26
Re: Herunterfahren Andy Schaub microsoft.public.de.windows.vista.administration 1 04-03-2007 07:25
Re: Herunterfahren Tobias microsoft.public.de.windows.vista.administration 2 04-01-2007 12:33




All times are GMT +1. The time now is 05:41.




Driver Scanner - Free Scan Now

Vistaheads.com is part of the Heads Network. See also XPHeads.com , Win7Heads.com and Win8Heads.com.


Design by Vjacheslav Trushkin for phpBBStyles.com.
Powered by vBulletin® Version 3.6.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0 RC 2

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120