Solved

Using powercfg with vbscript

Posted on 2007-12-06
7
5,600 Views
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?

cheers
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
 

wscript.quit

Open in new window

0
Comment
Question by:Manfredtoo
  • 4
  • 2
7 Comments
 
LVL 30

Assisted Solution

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

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

0
 

Author Comment

by:Manfredtoo
ID: 20421284
thanks steve got it =)
0
 

Author Comment

by:Manfredtoo
ID: 20421411
steve: i tried again, it shows me error: expected end of statement.
0
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

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

regards
Chandru
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)

next
 

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

0
 

Author Comment

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

Expert Comment

by:chandru_sol
ID: 20421538
Glad i was of help! No worries

cheers
Chandru
0
 

Author Closing Comment

by:Manfredtoo
ID: 31413189
powercfg with vbs
0

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