Ændre strømstyring via WSH

Yup da !
Det er ikke ligefrem hardcore vbs, men det her er hvad der skal til :o) :

Set Shell = WScript.CreateObject("Wscript.Shell")
strpower = "%comspec% /c powercfg.exe /setactive præsentation"
shell.run strpower ,0,True

/Killer

Det virker på min stationære men ikke på min bærebare. Den giver ikke nogen fejlmeddelelse men ændrer heller ikke noget.

Hvad kører du på den stationære ?
(Win 2K / Xp / Dansk / Engelsk)

Hov .. sorry ..
Hvad kører du på din BÆRBARE ? :o)

xp pro dk m/ sp1

Du kan evt starte en commandoprompt, og skrive

powercfg.exe /L

Så skulle du gerne kunne se en oversigt over strømstyringsmodeller, du kan vælge :o)

Jeg har ikke noget der hedder powercfg.exe men istedet en der hedder powercfg.dll. Den kan ikke eksekveres via kommandoprompten, men hvis jeg dobbeltklikker på den i windows fremkommer min strømstyring.  Der er faktisk en model der hedder Præsentation, men den ændres ikke når jeg eksekverer scriptet.

Arh .. damn ..
Powercfg.exe er først med i sp2.
Jeg mener også du kan ændre model i registry'et
Men så vidt jeg husker, ændrer den kun modellen, og ikke timeout tiderne

/Killer

Vups... filen hedder powercfg.cpl. Når jeg ændrer filnavnet får jeg godt nok dialogboksen frem. Så ændrer jeg det bare manuelt.

Måske du vil hjælpe med en anden ting :-)

Jeg skal ændre på processliniens egenskaber således at alt er markeret undtagen "Vis hurtigstart". Kan det lade sig gøre?

Hmmm .. Den var straks værre.
Du skal ændre nogle binære værdier i registry'et for de fleste af indstillingerne,
Men det, at låse taskbar'en og gruppere beslægtede programmer ligger her :

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
""TaskbarSizeMove""=dword:00000001
"TaskbarGlomming"=dword:00000000

Kan man ikke gøre det i policy'en i stedet ?

/Killer

Jeg giver det lige en chance til :-)

Er der slet ikke nogen der kan hjælpe mig med at ændre på processliniens egenskaber via WSH?

Nå... Jeg tro ikke det kan lade sige gøre ved selv at scripte nogle ændriner i registry databasen. Jeg har løst det således istedet for:

set objShell = CreateObject("Shell.Application")
objShell.TrayProperties
WScript.Sleep 1000
WshShell.SendKeys "{TAB 1}"
WScript.Sleep 1000
WshShell.SendKeys " "
WScript.Sleep 1000
WshShell.SendKeys "{TAB 3}"
WScript.Sleep 1000
WshShell.SendKeys " "
WScript.Sleep 1000
WshShell.SendKeys "~"

På den måde åbner jeg egenskaber for proces linien, tab'er mig igennem, vinger af hvor det er nødvendigt og afslutter med enter.

Tak forhjælpen med de andre ting :-)