Change Registry Value - Why not working?

[tcspine]

I'm creating a script that will change users dekstop background 'color' to white. I'm pretty much a noob and haven't done many scripts, but this one isn't working and I can't see why. Can someone help please?



Option Explicit
' On Error Resume Next
Dim strKeyPath ' the portion of registry to read
Dim StrValueName
Dim strColor ' the target computer
Dim objReg ' holds connection to registry provider

Const HKCU = &H80000001 'HKEY_CURRENT_USER

strKeyPath = "HKEY_CURRENT_USER\Control Panel\Colors\Background"
strColor = "255 255 255" 'white
strValueName = "Background"

Set objReg=GetObject("winmgmts:\\" & "." & "\root\default:StdRegProv")

objReg.SetStringValue(HKCU,strKeyPath,strValueName,strColor)

 

[markdmac]

Try replacing this:

strKeyPath = "HKEY_CURRENT_USER\Control Panel\Colors\Background"

With this:
strKeyPath = "Control Panel\Colors\Background"


I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.