Hi,
I'm looking forward to buy Lansweeper Premium but I need to know if it can do the following.
I need to change the PowerScheme of 130 computers in my domain. As you all know theses settings are PER USER and need ADMINISTRATIVE rights.
I'm going to do it with a Login script starting a .VBS file and using LSRUNAS 2.0 to elevate user rights and encrypt password.
I'll give you the .vbs file. I tried it logged as ADMINISTRATOR and it works perfectly.
Here's my ChangePowerScheme.VBS file
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)
'MsgBox OS
next
'If( UCase( Trim( OS ) ) = UCase( Trim( 5.1 ) ) ) Then
'********** FRANCAIS
oShell.Run "powercfg.exe -change ""PC de bureau ou familial"" -monitor-timeout-ac 60", 0, True
oShell.Run "powercfg.exe -change ""PC de bureau ou familial"" -disk-timeout-ac 0", 0, True
oShell.Run "powercfg.exe -change ""PC de bureau ou familial"" -standby-timeout-ac 0", 0, True
oShell.Run "powercfg.exe -change ""PC de bureau ou familial"" -hibernate-timeout-ac 0", 0, True
'********** ANGLAIS
oShell.Run "powercfg.exe -change ""Home/Office Desk"" -monitor-timeout-ac 60", 0, True
oShell.Run "powercfg.exe -change ""Home/Office Desk"" -disk-timeout-ac 0", 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
'MsgBox "Did!"
'End If
Since I didn't find any trial version of the application (if there is one I'd be very happy to receive it) could someone try this and let me know if it's working.
Thank you