[Win7] WSHから電源オプションの設定を変える

Set objWMIService = GetObject("WinMgmts:\\.\root\cimv2\power")
 
Set PowerPlans = objWMIService.InstancesOf("Win32_PowerPlan")
 
;-------------------------------
;全ての電源プランを列挙する
;-------------------------------
For Each PowerPlan in PowerPlans
  WScript.StdOut.Write PowerPlan.ElementName
 
  ;-----------------------------------------
  ; 電源プランの名称を表示
  ;-----------------------------------------
  If PowerPlan.IsActive Then
      WScript.StdOut.Write "                　※現在のプラン"
  End If
  WScript.StdOut.WriteLine ""
 
  ;-----------------------------------------
  ; 変更後プランのオブジェクトだったら保存
  ;-----------------------------------------
  If PowerPlan.ElementName = "省電力" Then
    Set NewPlan = PowerPlan
  End If
Next
 
 
; 新しいプランを省電力にする
NewPlan.Activate()

C:\home>cscript test.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
 
ﾏｯｸｽ･ﾊﾞｯﾃﾘｰ･ﾗｲﾌ　                ※現在のプラン
ﾋﾞﾃﾞｵの再生
バランス
ﾊﾟﾜｰ源最適化
高パフォーマンス
ﾏｯｸｽ･ﾊﾟﾌｫｰﾏﾝｽ
省電力
ﾀｲﾏｰ禁止 (ﾌﾟﾚｾﾞﾝﾃｰｼｮﾝ)
 
C:\home>cscript test.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
 
ﾏｯｸｽ･ﾊﾞｯﾃﾘｰ･ﾗｲﾌ
ﾋﾞﾃﾞｵの再生
バランス
ﾊﾟﾜｰ源最適化
高パフォーマンス
ﾏｯｸｽ･ﾊﾟﾌｫｰﾏﾝｽ
省電力　                ※現在のプラン
ﾀｲﾏｰ禁止 (ﾌﾟﾚｾﾞﾝﾃｰｼｮﾝ)