Sorted Pre Logon Branding!
I run a GPO Start up Script, that contains the following;
'Apply Registry Settings
'Screen Saver & Wallpaper Settings (Pre-Logon Environment)
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\ScreenSaveActive", 1, "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\ScreenSaveTimeOut", 600, "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\ScreenSaverIsSecure", 0, "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\SCRNSAVE.EXE", "C:\Drivers\Policy\ScreenSaver.scr", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\WallPaperStyle", "2", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\TileWallPaper", "0", "REG_SZ"
WshShell.RegWrite "HKEY_USERS\.Default\Control Panel\Desktop\WallPaper", "C:\Drivers\Policy\LogonWallpaper.bmp", "REG_SZ"
The files have to be in the C:\Drivers\Policy Folder for this to work. I've copied the files to C:\Drivers\Policy by setting a GPO Logon Script, that contains the following;
'Start of Script
'Set Variables. Do Not Change!
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
'Copy Policy Files to Local Machine
'Create the Policy folder if it doesn't exist
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("C:\Drivers") Then
FSO.CreateFolder("C:\Drivers")
End If
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("C:\Drivers\Policy") Then
FSO.CreateFolder("C:\Drivers\Policy")
End If
' Copy Delprof.exe to policy folder if it doesn't exist
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("C:\Drivers\Policy\delprof.exe") Then
fso.CopyFile "\\SERVER\Policy\Programs\delprof.exe", "C:\Drivers\Policy\delprof.exe",TRUE
End If
'Copy WallPaper.bmp to policy folder if it doesn't exist
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("C:\Drivers\Policy\WallPaper.bmp") Then
fso.CopyFile "\\SERVER\Policy\Wallpaper\Wallpaper.bmp", "C:\Drivers\Policy\WallPaper.bmp",TRUE
End If
'Copy LogonWallPaper.bmp to policy folder if it doesn't exist
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("C:\Drivers\Policy\LogonWallPaper.bmp") Then
fso.CopyFile "\\SERVER\Policy\Wallpaper\LogonWallPaper.bmp", "C:\Drivers\Policy\LogonWallPaper.bmp",TRUE
End If
'Copy ScreenSaver.scr to policy folder if it doesn't exist
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("C:\Drivers\Policy\ScreenSaver.scr") Then
fso.CopyFile "\\SERVER\Policy\ScreenSaver\ScreenSaver.scr", "C:\Drivers\Policy\ScreenSaver.scr",TRUE
End If
And then finally set a GPO to handle the user’s desktop settings.
Phew!
Thanks for the help guys.
Jay
P.S. I know the scripting isn't the most elegant, but it works