Script to change logon wallpaper on windows XP and 7 ...

Question

Hi there,
We have both windows XP and windows 7 in our organization and just wondering how to change the logon wallpaper via script.
We're in a subdomain of a larger network and they haven't made a move to Server 2008 ... so group policy is not possible.
what we need is a script to auto-detect whether it's a windows XP or 7, then apply the necessary registry settings.
I found the way to run a script / modify registry settings to change the logon wallpaper by modifying the registry settings manually and then export it to a network location (edit it as necessary), and then run the script --> regedit.exe /s filename.reg
- Windows XP
    http://www.tweaklibrary.com/System/Startup-and-Shutdown/60/Set-the-log-on-tile-screen-wallpaper/10626/
- Windows 7
    http://www.techspot.com/guides/224-change-logon-screen-windows7/
We can't apply both settings at the same time since since the regKey is different between xp and 7.
help?

Answer 1

Hey
Here is an updated version, checks if the image file exists rather than assuming it does and removes a the MsgBox i was using for testing. Let me know if you have any trouble with it.
Cheers Matt :)
'Script Name : SetLogonWallPaper.vbs
'Author : Matthew Beattie
'Created : 09/06/10
'Description : This script sets the Logon WallPaper based on the operating system type.
'Initialization Section. Define and Create Global Variables.
Option Explicit
Dim objFSO, wshShell, systemPath, fileSpec
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshShell = CreateObject("WScript.Shell")
systemPath = wshShell.ExpandEnvironmentStrings("%WinDir%")
ProcessScript
If Err.Number <> 0 Then
WScript.Quit
End If
On Error Goto 0
'Name : ProcessScript -> Primary Function that controls all other script processing.
'Parameters : None ->
'Return : None ->
Function ProcessScript
Dim regKey, version, systemType
regKey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\ProductName"
version = ReadRegistry(regKey)
'Set variable's based on the operating system version that has been read from the registry.
Select Case version
Case "Windows 7 Ultimate"
systemType = 0
fileSpec = systemPath & "\oobe\Info\Backgrounds\backgroundDefault.jpg"
Case "Microsoft Windows XP"
systemType = 1
fileSpec = systemPath & "\Web\Wallpaper\Bliss.bmp"
Case Else
Exit Function
End Select
'Ensure the image file exists before attempting to configure the Logon Wallpaper.
If Not objFSO.FileExists(fileSpec) Then
Exit Function
End If
'Set the Logon Wallpaper based on the operating system type.
If Not SetLogonWallPaper(systemType) Then
Exit Function
End If
End Function
'Name : ReadRegistry -> Read the value of a registry key or value.
'Parameters : key -> Name of the key (ending in "\") or value to read.
'Return : ReadRegistry -> Value of key or value read from the local registry (blank is not found).
Function ReadRegistry(ByVal key)
Dim result
If StrComp(Left(key, 4), "HKU\", vbTextCompare) = 0 Then
Key = "HKEY_USERS" & Mid(key, 4)
End If
On Error Resume Next
ReadRegistry = WshShell.RegRead(key)
If Err.Number <> 0 Then
ReadRegistry = ""
End If
On Error Goto 0
End Function
'Name : SetLogonWallPaper -> Sets the Logon Wallpaper registry settings based on the operating system type.
'Parameters : systemType -> Integer identifying the operating system type.
'Return : SetLogonWallPaper -> Returns True if the LogonWallPaper registry settings were updated otherwise False.
Function SetLogonWallPaper(systemType)
Dim elements, element, regKey, regValue, regType
SetLogonWallPaper = False
'Set the registry settings to configure based on the systemType integer.
Select Case systemType
Case 0
elements = Array("HKLM\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background\OEMBackground,1,REG_DWORD")
Case 1
elements = Array("HKEY_USERS\.Default\Control Panel\Desktop\TileWallpaper,0,REG_SZ", _
"HKEY_USERS\.Default\Control Panel\Desktop\WallpaperStyle,2,REG_SZ", _
"HKEY_USERS\.Default\Control Panel\Desktop\Wallpaper," & fileSpec & ",REG_SZ")
Case Else
Exit Function
End Select
'Split the array elements and configure the registry settings.
For Each element In elements
On Error Resume Next
regKey = Split(element, ",")(0)
regValue = Split(element, ",")(1)
regType = Split(element, ",")(2)
wshShell.RegWrite regKey, regValue, regType
If Err.Number <> 0 Then
Exit Function
End If
On Error Goto 0
Next
SetLogonWallPaper = True
End Function