Log On Screen - Change

I hope they'll be able to resize it for you. :)

That's great news Rose. Thank you for posting back. :)

You're welcome Bbosa, and welcome to Seven Forums. Thank you. :)

Hello Joe,

You might see if running the sfc /scannow command may be able to help if it's an issue with a corrupted system file. Afterwards, restart the computer and see if you may be able to change it using Option One.

Hope this helps,
Shawn

Hi All,

I'm going to roll out Windows 7 / Office 2010 to about 100 workstations in my organisation.

Firstly thank you Brink for this information on how to modify for a single workstation.

I've just carried it a bit further so you can create a Group Policy and push this out to all workstations if you want.

Here's what I did.

I created 2 scripts -

One - create the subfolders Info and Background, but it looks like I dont need to as they seem to exist now after an update or SP1.

Two - Copy the image I want to use into the %WinDir%\System32\oobe\info\Backgrounds\ folder

Still here it is if you want it. (You can see where I took the code from and modified it to suit)

**Script to create Folders**

Code:

 
' NewFolderEC.vbs
' Free example VBScript to create a folder with error-correcting Code.
' Author Guy Thomas Windows Server 2008, Exchange advice. Help solving computer problems. PowerShell VBScript
' Version 2.6 - May 2010
' ------------------------------------------------' 
Option Explicit
Dim objFSO, objFolder, objShell, strDirectory1, strDirectory2
strDirectory1 = "C:\Windows\System32\oobe\Info"
strDirectory2 = "C:\Windows\System32\oobe\Info\Backgrounds"
 
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Note If..Exists. Then, Else ... End If construction
If objFSO.FolderExists(strDirectory1) Then
Set objFolder = objFSO.GetFolder(strDirectory1)
'WScript.Echo strDirectory1 & " already created "
Else
Set objFolder = objFSO.CreateFolder(strDirectory1)
'WScript.Echo "Just created Directory Info " & strDirectory1
Set objFolder = objFSO.CreateFolder(strDirectory2)
'WScript.Echo "Just created Directory Backgrounds " & strDirectory2
End If
 
WScript.Quit
' End of Sample VBScript to create a folder with error-correcting Code

*Script only creates folders if they don't exist*

**Script to copy Dedicate image to %WinDir%\System32\oobe\info\Backgrounds\**

Code:

on error resume next
Const OverwriteExisting = TRUE 
Dim oNet, WshShell, objFSO, SvrName, OutlookFontSettings, UsrProfile
set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
objFSO.CopyFile "\\server\share\background.jpg" , WinDir &"\System32\oobe\info\Backgrounds\backgroundDefault.jpg", OverwriteExisting

*apologies for any VB coders if it's not neat, I'm just a SysAdmin and pinch code off the web and modify it to suit* :)

Once you have these 2 scripts created - tested and confim they work.

You now create the group policy.

It all runs under computer configuration (not user configuration)

Add the two scripts under Policies - Windows Settings - Scripts (Folder creation first before the file copy) ((Also make sure the Scripts are located in a network share location))

Next is the registry entry.

I recommend you import the registry setting into a Windows 7 machine that has Admin rights (locally and domain).

Use The Registry Wizard under Preferences - Windows Settings - Registry.
Import the settings from your machine that has the settings imported in.
(HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Authentication/LogonUI/Background)

Allocate the GP to an OU with the Windows 7 computers in it. - I'd recomend you test this on an OU with your test workstation in it. I'm confident, but not THAT confident.

Fingers crossed it should work.

Hope this helps or guides someone in the right direction.

Rolly :)