Background image change for Windows 7

RBrown1375 · October 24, 2012

I was wondering if there was a way in AutoIT to install a standard windows background for windows 7. The script below works fine for XP SP3 but fails on Windows 7 and I think it needs Admin Perms but I'm not sure. Please let me know if its possible.

Cheers!

if not exist "C:\Windows\System32\oobe\Info" mkdir "C:\Windows\System32\oobe\Info"
if not exist "C:\Windows\System32\oobe\Info\backgrounds" mkdir "C:\Windows\System32\oobe\Info\backgrounds"
copy "\\mitfile\userdata\everyone\bg\backgroundDefault.jpg" "C:\Windows\System32\oobe\Info\backgrounds"
REG ADD "HKCU\Control Panel\Desktop" /V Wallpaper /T REG_SZ /F /D "C:\Windows\System32\oobe\Info\backgrounds\backgroundDefault.jpg"
REG ADD "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background" /V OEMBackground /T REG_DWORD /F /D 1

JScript · October 24, 2012

Read this link:

JS

guinness · October 24, 2012

That code isn't AutoIt syntax.

JScript · October 24, 2012

@guinness

I was wondering if there was a way in AutoIT to install a standard windows background for windows 7.

JS

guinness · October 24, 2012

Whoops, sorry.

RBrown1375 · October 24, 2012

Thanks for the response. The code snippit you sent will change the background at the login screen, but I need it to change the background image on the desktop so that all machines will have the same background. I'm going to deliver this with SCCM. The environment will be Win 7 x64 and x86.

I started the code in for a Batch file but I want to do it in a code I trust. The last three packages I built in AutoIT worked perfectly.

Thanks

Edited October 24, 2012 by RBrown1375

BrewManNH · October 24, 2012

Are you on an AD domain? It can be done very easily with group policy if that's the case.

RBrown1375 · October 24, 2012

I am on the AD domain but it fails on the our GPO's. If you have a work around for GPO or correct settings I'll check them against our settings. But so far our GPO attemps failed.

BrewManNH · October 24, 2012

This is where I set the policy:

User Configuration (Enabled)
Windows Settings
Administrative Templates
Desktop
Active Desktop
Enable Active Desktop = Enabled
Active Desktop Wallpaper
Wallpaper Name: <location of the wallpaper file> use exact path
Example: Using a local path: C:windowswebwallpaperhome.jpg
Example: Using a UNC path: ServerShareCorp.jpg
Wallpaper Style: Tile

Policy Setting
Enable Active Desktop Enabled
Allows HTML and JPEG Wallpaper

RBrown1375 · October 24, 2012

I'll give it a try. Thanks.

RBrown1375 · October 24, 2012

I'm going to try and do a script. The GPO's here are so messed up I'd spend weeks trying to get it to work. I just hope one of them isn't blocking the script. If you know of a road map I could follow to do this that would be great.

Thanks

BrewManNH · October 24, 2012

You only need to put it into one GP that affects the user's you're looking to apply this for, as long as you can identify one GP that does that, you shouldn't need to worry about what the rest are doing, as long as there isn't another GP that sets a background wallpaper.

As to a guide to straightening out group policy, I haven't found one yet that's useful for any occasion. I just set them as I see them working best.

RBrown1375 · October 25, 2012

Thanks for the replys and I know this isn't the forum for GPO's, butits just wierd that I addedit to the GPO for Win 7 and if I look at the properties of the desktop the correct image is there, but it is not the image I see on the desk top. I'll keep digging and thank you for yoru responses.

Cheers

RBrown1375 · October 30, 2012

The GPO's around here are pretty bad and I don't have time to work on them. I wrote this VBscript and it works if I run it by hand but fails in SCCM 2007 and I want to run this in Autoit since I trust it more than VBScript. Can someone tell me if Autoit can do the same thing as this VBS code?

Thanks

***This runs frist to delete the registry setting Wallpaper to get around Windows 7 bugs***
const HKEY_CURRENT_USER = &H80000001
strComputer = "."

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

strKeyPath = "Control PanelDesktop"
strStringValueName = "Wallpaper"
oReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strStringValueName

***This runs next to add the new background and set it to strech***

Dim wshShell
Dim sUserName
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")

'''If the Operating System is Windows XP set the background to c:WindowsResourcesThemesMIT.bmp
If WshShell.RegRead ("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionCurrentVersion") = "5.1" Then
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "%systemdrive%WindowswebwallpaperwindowsMIT.bmp"
oShell.RegWrite "HKCUControl PanelDesktopWallpaper", sWallpaper
oShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

'''Otherwise, if the Operating System is Windows 7, set the Theme to C:WindowsResourcesThemesMIT.Theme
ElseIf WshShell.RegRead ("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionCurrentVersion") = "6.1" Then
sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "%systemdrive%WindowswebwallpaperwindowsMIT.bmp"
oShell.RegWrite "HKCUControl PanelDesktopWallpaper", sWallpaper
oShell.Run "%windir%System32RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True
End If

RBrown1375 · October 30, 2012

Just as an update, thanks for the help but I got it to work in AutoIT and here is my code if someone needs it.

Cheers

; Include a  bitmap found in "C:test.bmp" with the compiled program and put it in "D:mydirtest.bmp" when it is run
Local $b = True
If $b = True Then FileInstall("E:bgbmpMit.bmp", "C:WindowsWebWallpaperWindowsmit.bmp")

RegDelete("HKEY_CURRENT_USERControl PanelDesktop", "wallpaper") ;Deletes the Regkey because of Windows 7 Bug
Sleep(3000)
$wallpaper = FileOpenDialog(@WindowsDir & "", "C:WindowsWebWallpaperWindows(MIT.bmp)", 1)
WallpaperChange($wallpaper)
Func WallpaperChange($image)
;Desktop Position: Stretch
RegWrite("HKEY_CURRENT_USERControl PanelDesktop", "Wallpaper", "REG_SZ", "C:WindowsWebWallpaperWindowsMit.bmp")
  RegWrite("HKEY_CURRENT_USERControl PanelDesktop", "WallpaperStyle", "REG_SZ", 2)
   RegWrite("HKEY_CURRENT_USERControl PanelDesktop", "TileWallpaper", "REG_SZ", 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;

EndFunc   ;==> WallpaperChange

PhoenixXL · October 30, 2012

If its only the Desktop Wallpaper Changer then I have made a script with GUI earlier,

tried hard but wasnt able to make the fade in and out effect seen as by default in Win7

WallpaperChanger GUI - no fading options

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=....Change Wallpaper.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
If @Compiled Then RegWrite("HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun", @ScriptName, "REG_SZ", @ScriptFullPath)
Global $search
#include-once
_Singleton(Binary("XPhoenix|TestX"),0)
OnAutoItExitRegister("_exit")
Dim $iniread,$iniread0,$iniread1
Global Const $GUI_DROPACCEPTED = 8
Global Const $GUI_SHOW = 16
Global Const $GUI_HIDE = 32
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_CHECKED = 1
Global Const $tagSECURITY_ATTRIBUTES = "dword Length;ptr Descriptor;bool InheritHandle"
Global Const $GUI_UNCHECKED = 4
Global Const $BS_DEFPUSHBUTTON = 0x0001
Global Const $BS_PUSHLIKE = 0x1000
Global Const $GUI_EVENT_DROPPED = -13
Global Const $GUI_FOCUS = 256
Global $Images,$time,$Gfolder,$continue=True,$gUI,$default="",$ir,$no=1,$RANDOM=True,$it,$z
Global $imgformats[11]
$imgformats[0]="JPG"
$imgformats[1]="TIF"
$imgformats[2]="RLE"
$imgformats[3]="PNG"
$imgformats[4]="GIF"
$imgformats[5]="BMP"
$imgformats[7]="TIFF"
$imgformats[8]="JFIF"
$imgformats[9]="JPEG"
$imgformats[10]="JPE"
$imgformats[6]="DIB"
$directory=@AppDataDir&"Wallpaper"
DirCreate($directory)
$lNi=$directory&"Data.ini"
$Data="ïèª~¦A&â?NS-1-22994-65311`-123551||=123123"
HotKeySet("+!c","_toogle")
If _checkdirectory(0)=0 Then _guicreate(0)
Func _guicreate($pwm)
$gUI=GUICreate("Window",450,200,-1,-1,-1,0x00000018)
$label=GUICtrlCreateLabel("Type the Path of the Image or...",10,10,160,20)
If $pwm=0 Then
$input=GUICtrlCreateInput("Drag Your Folder Containing Image Here",10,40,430,30)
$type=GUICtrlCreateInput("45000",10,110,430,30)
EndIf
If $pwm=1 Then
If $ir<>"" Then
$input=GUICtrlCreateInput($ir,10,40,430,30)
Else
$input=GUICtrlCreateInput($iniread,10,40,430,30)
EndIf
If $it<>"" Then
$type=GUICtrlCreateInput($it,10,110,430,30)
Else
$type=GUICtrlCreateInput($iniread0,10,110,430,30)
EndIf
EndIf
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$label1=GUICtrlCreateLabel("Type The Time Interval Of Change Of Wallpaper in Milliseconds(Decimal Value Supported) ",10,80,439,20)
$ok=GUICtrlCreateButton("&OKAY",310,150,60,40,$BS_DEFPUSHBUTTON)
$cancel=GUICtrlCreateButton("E&XIT",380,150,60,40)
$browse=GUICtrlCreateButton("B&ROWSE",240,150,60,40)
$ChangeR=GUICtrlCreateCheckbox("RA&NDOM",10,150,90,40,$BS_PUSHLIKE)
If $RANDOM=True Then GUICtrlSetState(-1,$GUI_CHECKED)
If $RANDOM=False Then GUICtrlSetState(-1,$GUI_UNCHECKED)
GUISetState(@SW_SHOW,$gUI)
While 1
$sMsg=GUIGetMsg()
Switch $sMsg
Case $ok
If GUICtrlRead($ChangeR)=$GUI_CHECKED Then $RANDOM=True
If GUICtrlRead($ChangeR)=$GUI_UNCHECKED Then $RANDOM=False
$ir=GUICtrlRead($input)
$it=GUICtrlRead($type)
If $ir="" Or $type="" Or $ir="Drag Your Folder Containing Image Here" Then
MsgBox(64,"Information","Type The Path Of The Folder",0,$gUI)
GUICtrlSetData($input,"")
GUICtrlSetState($input,$GUI_FOCUS)
ContinueLoop
ElseIf $it<10000 Then
MsgBox(64,"Information","The Timer Should Be Minimum 10 Seconds",0,$gUI)
GUICtrlSetData($type,10000)
ContinueLoop
ElseIf Not FileExists($ir) Then
MsgBox(16,"Error","The File '"&$ir&"' Doesn't Exist.",0,$gUI)
ContinueLoop
ElseIf StringInStr(FileGetAttrib($ir),"D",1)=0 Then
MsgBox(16,"Error","The File '"&$ir&"' is not a Directory",0,$gUI)
ContinueLoop
EndIf
GUISetState(@SW_DISABLE,$gUI)
If _findfileandchangepaper(_checkslash($ir),$it,0)=True Then
GUIDelete($gUI)
_checkdirectory($ir,$it)
_traytip()
_findfileandchangepaper(_checkslash($ir),$it)
ExitLoop
EndIf
Case $browse
$Gfolder=FileSelectFolder("Folder With Images","",1,$default,$gUI)
$default=$Gfolder
_checkdirectory($default,"0",True)
GUICtrlSetData($input,$Gfolder)
Case $cancel
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndFunc
Func _traytip()
Local $x=TimerInit()
While TimerDiff($x)<=12000
ToolTip("To Change The Settings Press Shift+Alt+C",Default,Default,"Information",1,5)
Sleep(10)
WEnd
ToolTip("")
EndFunc
Func _findfileandchangepaper($folder,$time,$pwm=1)
Local $suicude=0
$search=FileFindFirstFile($folder&"*.*")
While 1
$file=FileFindNextFile($search)
If @error Then ExitLoop
$suicude+=1
WEnd
For $i In $imgformats
$search=FileFindFirstFile($folder&"*."&$i)
If $search=-1 Then $suicude-=1
If $suicude=0 Then
$continue=True
MsgBox(64,"Information","There Are No Image Files In The Directory Or The Image Files Are Currently Not Supported",0,$gUI)
Return False
EndIf
While 1
$file=FileFindNextFile($search)
If @error Then ExitLoop
$Images&=$file&"|"
WEnd
Next
If $pwm=0 Then Return True
$continue=False
$z=$folder
AdlibRegister('_change',$time)
While 1
Sleep(10)
WEnd
EndFunc
Func _change()
$split=StringSplit($Images,"|",1)
If $RANDOM Then ChangeDesktopWallpaper($z&$split[Random(1,$split[0],1)],2)
If Not $RANDOM Then
ChangeDesktopWallpaper($z&$split[$no],2)
$no+=1
EndIf
If $no=$split[0] Then $no=1
EndFunc
Func _checkslash($2check)
If StringRight($2check,1)="" Then Return $2check
If StringRight($2check,1)<>"" Then Return $2check&""
EndFunc
Func _checkdirectory($folderx,$time="45000",$edit=False)
If $folderx="0" Then
$iniread2=IniRead($lNi,$Data,"Random","0")
$iniread=IniRead($lNi,$Data,"Folder","0")
$iniread0=IniRead($lNi,$Data,"Time","0")
$iniread1=IniRead($lNi,$Data,"Default",'""')
If $iniread="0" Or $iniread0="0" Or $iniread2="0" Then
Return 0
Else
$default=$iniread1
$RANDOM=$iniread2
_findfileandchangepaper(_checkslash($iniread),$iniread0)
EndIf
ElseIf $edit=True Then
IniWrite($lNi,$Data,"Default",$folderx)
ElseIf $folderx<>"0" Then
IniWrite($lNi,$Data,"Folder",$folderx)
IniWrite($lNi,$Data,"Time",$time)
IniWrite($lNi,$Data,"Random",$RANDOM)
EndIf
EndFunc
Func _toogle()
AdlibUnRegister('_change')
$Images=""
_guicreate(1)
EndFunc
Func _exit()
FileClose($search)
Exit
EndFunc
Func DebugLog($Message, $Line = @ScriptLineNumber)
If Not @Compiled Then
ConsoleWrite("(" & $Line & "): " & $Message & @CRLF)
EndIf
EndFunc ;==>DebugLog
Func _Singleton($sOccurenceName, $iFlag = 0)
Local Const $ERROR_ALREADY_EXISTS = 183
Local Const $SECURITY_DESCRIPTOR_REVISION = 1
Local $pSecurityAttributes = 0
If BitAND($iFlag, 2) Then
; The size of SECURITY_DESCRIPTOR is 20 bytes. We just
; need a block of memory the right size, we aren't going to
; access any members directly so it's not important what
; the members are, just that the total size is correct.
Local $tSecurityDescriptor = DllStructCreate("dword[5]")
Local $pSecurityDescriptor = DllStructGetPtr($tSecurityDescriptor)
; Initialize the security descriptor.
Local $aRet = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", _
"ptr", $pSecurityDescriptor, "dword", $SECURITY_DESCRIPTOR_REVISION)
If @error Then Return SetError(@error, @extended, 0)
If $aRet[0] Then
; Add the NULL DACL specifying access to everybody.
$aRet = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", _
"ptr", $pSecurityDescriptor, "bool", 1, "ptr", 0, "bool", 0)
If @error Then Return SetError(@error, @extended, 0)
If $aRet[0] Then
; Create a SECURITY_ATTRIBUTES structure.
Local $structSecurityAttributes = DllStructCreate($tagSECURITY_ATTRIBUTES)
; Assign the members.
DllStructSetData($structSecurityAttributes, 1, DllStructGetSize($structSecurityAttributes))
DllStructSetData($structSecurityAttributes, 2, $pSecurityDescriptor)
DllStructSetData($structSecurityAttributes, 3, 0)
; Everything went okay so update our pointer to point to our structure.
$pSecurityAttributes = DllStructGetPtr($structSecurityAttributes)
EndIf
EndIf
EndIf
Local $handle = DllCall("kernel32.dll", "handle", "CreateMutexW", "ptr", $pSecurityAttributes, "bool", 1, "wstr", $sOccurenceName)
If @error Then Return SetError(@error, @extended, 0)
Local $lastError = DllCall("kernel32.dll", "dword", "GetLastError")
If @error Then Return SetError(@error, @extended, 0)
If $lastError[0] = $ERROR_ALREADY_EXISTS Then
If BitAND($iFlag, 1) Then
Return SetError($lastError[0], $lastError[0], 0)
Else
Exit -1
EndIf
EndIf
Return $handle[0]
EndFunc ;==>_Singleton

Func ChangeDesktopWallpaper($bmp,$style)
;===============================================================================
; Usage: _ChangeDesktopWallPaper(@WindowsDir & '' & 'zapotec.bmp')
; Parameter(s): $bmp - Full Path to BitMap File (*.bmp)
; Requirement(s): None.
; Return Value(s): On Success - Returns 0
; On Failure - -1
;===============================================================================

If Not FileExists($bmp) Then Return -1
;The $SPI* values could be defined elsewhere via #include - if you conflict,
; remove these, or add if Not IsDeclared "SPI_SETDESKWALLPAPER" Logic
Local $SPI_SETDESKWALLPAPER = 20
Local $SPIF_UPDATEINIFILE = 1
Local $SPIF_SENDCHANGE = 2
Local $REG_DESKTOP= "HKEY_CURRENT_USERControl PanelDesktop"
;Don't tile - just center
If $style=0 Or $style=2 Then
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
Else
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", $style)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
EndIf

RegWrite($REG_DESKTOP, "Wallpaper", "REG_SZ", $bmp)

DllCall("user32.dll", "int", "SystemParametersInfo","int", $SPI_SETDESKWALLPAPER, "int", 1, "str", $bmp, "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))

Return 0
EndFunc;==>_ChangeDestopWallpaper

Edited October 30, 2012 by PhoenixXL

RBrown1375 · October 31, 2012

I'll take a look at your script, but right now I'm trying to figure out why my script runs just fine by hand, but fails with SCCM 2007. SCCM delivers the script, adds the BMP, but doesn't seem to want to write to the registry, I added this to the script above:

Local $sUserName = "MyName" ;Domain Admin level

Local $sPassword = "MyPassword"

RunAs($sUserName, @ComputerName, $sPassword, 0, @SystemDir)

But even with these permissions, it doesn't write to the registry. If I right click the script and do a "run as admin" it works everytime. I will look your script over later and thank you for posting it.I do have SCCM set to run it as Admin as well and I have made sure no GPO is stopping it from writing to the registry. Just in time for Halloween- Spooky! :mellow:

Cheers

Background image change for Windows 7

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Similar Content