Script to change Logon wallpaper

Archived from groups: microsoft.public.win2000.group_policy (More info?)

Hi there,
I want to change the default logon screen wallpaper for machines on our
Win2k domain. I have accomplished it by modifying the registry at
HKEY_USERS\.DEFAULT\Control Panel\Desktop Wallpaper and specifying a path
here, but is there a way this can be written into a Visual Basic script to
run as a logon script?
Many thanks to anyone who knows how to do this!

PS. If anyone knows how to change the logon box logo from the standard
windows xp one I would be even more pleased!

Archived from groups: microsoft.public.win2000.group_policy (More info?)

or you could write a vbs script (see below), create a group policy COMPUTER
startup script (will run with local system permissions, and then you don't
have user restriction problems) and write it that way...

Set objShell=CreateObject("Wscript.Shell" )
KeyName = "HKEY_USERS\.DEFAULT\Control Panel\"
objShell.RegWrite KeyName & "Desktop Wallpaper", "\\server\share\image.jpg"

change the UNC path and file name to whatever you want and that should work.

-Brian

"Jerold Schulman" <Jerry@jsiinc.com> wrote in message
news:gbris0hjivtppor60arsjg5n92qmh4goo4@4ax.com...
> On Tue, 21 Dec 2004 09:21:04 -0800, Andy C Matthews <Andy C
> Matthews@discussions.microsoft.com> wrote:
>
>>Hi there,
>>I want to change the default logon screen wallpaper for machines on our
>>Win2k domain. I have accomplished it by modifying the registry at
>>HKEY_USERS\.DEFAULT\Control Panel\Desktop Wallpaper and specifying a path
>>here, but is there a way this can be written into a Visual Basic script to
>>run as a logon script?
>>Many thanks to anyone who knows how to do this!
>>
>>PS. If anyone knows how to change the logon box logo from the standard
>>windows xp one I would be even more pleased!
>
>
> Ordinary users don't have the permission.
>
> Install reg.exe from the support tools on the W2K CD-ROM to your
> workstation. Then run
> DefWP WallPaperPath
> to change all the computers on your network.
>
> @echo off
> if {%1}=={} @echo Syntax: DefWP WallerPaperPath&goto :EOF
> if not exist %1 @echo Syntax: DefWP WallerPaperPath - %1 not found.&goto
> :EOF
> setlocal
> set wp=%1
> for /f "Tokens=*" %%c in ('net view^|FIND "\\"') do (
> REG ADD "%%c\HKU\.DEFAULT\Control Panel\Desktop" /V Wallpaper /T REG_SZ /D
> %wp% /F
> )
> endlocal
>
>
> Jerold Schulman
> Windows Server MVP
> JSI, Inc.
> http://www.jsiinc.com