904 Aufrufe
Gefragt in Tabellenkalkulation von
... Windows Energieschemas ändern
Hallo ersmal,

Habe eine Frage zu Visual Basic in Excel 2003.
Ich würde gerne in VB mittels Shell Anweisung die Energieschemas von Windows ändern.
Also für jede Richtlinie ein Label.

Z.B. für Höchstleistung label 1
für Ausbalanciert Label 2
für Energiesparmodus Label 3

Habe bisher folgendes versucht:

Variante 1

Call shell("rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl ::(a1841308-3541-4fab-bc81-f71556f20b4a)", vbNormalFocus)

Variante 2

Shell "powercfg.cpl ::(a1841308-3541-4fab-bc81-f71556f20b4a)"

Leider funktioniert es nicht.

Bei Variante 1 komme ich aber bis zu dem Ordner Energieoptionen, er ändert aber nicht das Schema selbstständig.

Hoffe auf eure Hilfe.

1 Antwort

0 Punkte
Beantwortet von lorf55 Mitglied (699 Punkte)
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
...