Hallo MMueller ,
das ist etwas zu kompliziert gedacht. Einfach mal am DOS-Prompt (==Shell)
powercfg /?
und
<Enter-Taste> eingeben.
Dann kriegst du die Hilfe:
POWERCFG [/LIST | /QUERY [Name] | /CREATE Name | /DELETE Name |
/SETACTIVE Name | /CHANGE Namenseinstellungen |
/HIBERNATE {ON|OFF} | /EXPORT Name [/FILE Dateiname] |
/IMPORT Name [/FILE Dateiname] | /GLOBALPOWERFLAG [ON|OFF]
/OPTION Flag |
/BATTERYALARM {NIEDRIG|KRITISCH} [Einstellungen] |
/DEVICEQUERY Abfrageflags | /DEVICEENABLEWAKE Gerätename |
/DEVICEDISABLEWAKE Gerätename | /?]
Beschreibung:
Dieses Befehlszeilenprogramm ermöglicht einem Administrator,
die Energieoptionen eines Systems zu steuern.
Parameterliste:
--schnippschnapp--
Mit der List-Option erhalte ich (XP home)
C:\Dokumente und Einstellungen\xyz>powercfg /list
Bestehende Energieschemen
-------------------------
Minimale Batteriebelastung
Minimaler Energieverbrauch
Dauerbetrieb
Präsentation
Tragbar/Laptop
Desktop
Um das Energieschema auf Desktop-Schema zu setzen:
powercfg /setactive desktop
Um das Energieschema auf Tragbar/Laptop-Schema zu setzen:
powercfg /setactive
tragbar/laptop
Im Excel-Makro also z.B.:
Call shell("powercfg /setactive desktop", vbNormalFocus)
Mit
POWERCFG /QUERY Nummer /NUMERICAL
kann man die Schemata durchnummeriert
abfragen:
0 = Desktop, 1 = Tragbar/Laptop, 2 = Präsentation ...
UndsoweiterUndsofort.
Du findest den Rest selber raus.
HTH