Vista - Problem reading value in HKEY_USER

Could someone please offer some advise regarding a script that I am
trying to write. And I am a Noob to Vbscript!
I have been tasked with deploying a new image for the corparate
desktop, deploying the new image was the easy part, I wrote a script
that would copy the new image from an admin share and replace the old
image in the system root.
The problem that I have found is that if the end user already has the
old image set as their desktop wallpaper, Windows has already copied
and converted the image and relocated it in c:\document and setting\
%username%\local settings\microsoft\Wallpaper1.bmp, and the user
still see the old image on their desktop. (I can not just replace
wallpaper1.bmp, just in case the user has a custom wallpaper i.e.
family picture)

I started with the below code to identify if the current user was
using the corparate image as their desktop wallpaper.

===================================================================================

Option Explicit
'On Error Resume Next

Dim oReg
Dim strComputer, strKeyPath, strValueName, strValue

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "Control Panel\Desktop"
strValueName = "ConvertedWallPaper"
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath, _
strValueName,strValue

Wscript.Echo "Image being used: " & strValue

===================================================================================

I used the code in a logon script, If strValue = Corparate image Then
copy the new image from the admin share and replace wallpaper1.bmp
(replaced with a converted new image with the relevant name), but this
didn't work, I can only assume that the HKCU hive isn't loaded into
the registry when the script runs.

So as a workaround I came up with the below script, but it is
returning nothing. Any ideas??

===================================================================================

Dim oReg
Dim strComputer, strKeyPath, strValueName, strValue

Const HKEY_USERS = &H80000003

strComputer = "."
strKeyPath = "Control Panel\Desktop"
strValueName = "ConvertedWallPaper"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
strComputer & "\root\default:StdRegProv")

WScript.Echo SID
WScript.Echo(HKEY_USERS& "\" & SID & "\" & strKeyPath & "\" &
strValueName & "\")

oReg.GetStringValue HKEY_USERS,SID,strKeyPath,strValueName,strValue

Wscript.Echo "Image being used: " & strValue

'===================================================================

Private Function SID

Const HKEY_USERS = &H80000003

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.
\root\default:StdRegProv")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set wshShell = CreateObject("WScript.Shell")
Set objSysEnv = wshShell.Environment("User")

objSysEnv("FULLNAME") = objUser.FullName
objReg.EnumKey HKEY_USERS, "", arrKeys

For Each subkey In arrKeys
objReg.GetExpandedStringValue HKEY_USERS,subkey &
"\Environment","FULLNAME",strValue
If strValue = objUser.FullName Then
SID = subkey
End If
Next

End Function

===================================================================================

Please HELP!!

On May 17, 10:05*pm, Khaosinc <israel.new...@xxxxxx> wrote:
Problem Solved

Const HKEY_USERS = &H80000003

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = SID & "\Control Panel\Desktop"
oReg.GetStringValue HKEY_USERS, strKeyPath, "ConvertedPaper", intValue

Wscript.Echo intValue

'==========================================================================================

Private Function SID

Dim objReg, objSysInfo, objUser
Dim wshShell, objSysEnv, arrKeys
Dim strValues, subKey

Const HKEY_USERS = &H80000003

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.
\root\default:StdRegProv")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set wshShell = CreateObject("WScript.Shell")
Set objSysEnv = wshShell.Environment("User")

objSysEnv("FULLNAME") = objUser.FullName
objReg.EnumKey HKEY_USERS, "", arrKeys

For Each subkey In arrKeys
objReg.GetExpandedStringValue HKEY_USERS,subkey &
"\Environment","FULLNAME",strValues
If strValues = objUser.FullName Then
SID = subkey
End If
Next

End Function