Using powercfg with vbscript

Posted on 2007-12-06
Last Modified: 2012-08-14
Hi Experts
i have a piece of code here need some help, i couldnt get it run smoothly. my objective is to set the power management option with vbs. is there anything wrong with my sytax?

Dim objShell:Set objShell=CreateObject("Wscript.Shell")

On Error Resume Next

With objShell


  .Run "cmd powercfg /setactive "Home/Office Desk""

  .Run "cmd powercfg /x "Home/Office Desk" /monitor-timeout-ac 0"

  .Run "cmd powercfg /x "Home/Office Desk" /monitor-timeout-dc 0"

  .Run "cmd powercfg /x "Home/Office Desk" /disk-timeout-ac 0"

  .Run "cmd powercfg /x "Home/Office Desk" /disk-timeout-dc 0"

  .Run "cmd powercfg /x "Home/Office Desk" /standby-timeout-ac 0"

  .Run "cmd powercfg /x "Home/Office Desk" /standby-timeout-dc 0"

  .Run "cmd powercfg /x "Home/Office Desk" /hibernate-timeout-ac 0"

  .Run "cmd powercfg /x "Home/Office Desk" /hibernate-timeout-dc 0"

End With


Open in new window

Question by:Manfredtoo
  • 4
  • 2
LVL 30

Assisted Solution

SteveGTR earned 50 total points
ID: 20421087
Use the /c switch:

.Run "cmd /c powercfg /setactive "Home/Office Desk"


Author Comment

ID: 20421284
thanks steve got it =)

Author Comment

ID: 20421411
steve: i tried again, it shows me error: expected end of statement.
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

LVL 12

Accepted Solution

chandru_sol earned 450 total points
ID: 20421466
Hope this will help

Set oShell = CreateObject("Wscript.Shell")

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

OS = LEFT(objOperatingSystem.Version,3)


If( UCase( Trim( OS ) ) = UCase( Trim( 5.1 ) ) ) Then

oShell.Run "powercfg.exe -change ""Home/Office Desk"" -monitor-timeout-ac 15", 0, True

oShell.Run "powercfg.exe -change ""Home/Office Desk"" -disk-timeout-ac 25", 0, True

oShell.Run "powercfg.exe -change ""Home/Office Desk"" -standby-timeout-ac 0", 0, True

oShell.Run "powercfg.exe -change ""Home/Office Desk"" -hibernate-timeout-ac 0", 0, True

oShell.Run "powercfg.exe -hibernate off", 0, True

oShell.Run "powercfg.exe -setactive ""Home/Office Desk""", 0, True

End If

Open in new window


Author Comment

ID: 20421517
chandru: it works great =) thanks alot. hey been seeing u helping me quite a few times. really appreciate it
LVL 12

Expert Comment

ID: 20421538
Glad i was of help! No worries


Author Closing Comment

ID: 31413189
powercfg with vbs

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

It is a general practice to get rid of old user profiles on a computer  in a LAN environment. As I have been working with a company in a LAN environment where users move from one place to some other place at times. This will make many user profil…
Introduction: Recently, I got a requirement to zip all files individually with batch file script in Windows OS. I don't know much about scripting, but I searched Google and found a lot of examples and websites to complete my task. Finally, I was ab…
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now