The following process details how to create a silent install package for BGInfo.
It can be used as a silent installation deployment or included into your Windows 7 deployment method.
It has been tested and confirmed as working with BGInfo 4.16 and SCCM R2 (OS Deployment)
It does the following tasks:
Full Download: BGinfo.zip
Please Note:
BGInfo does not support the Windows 7 feature of rotating desktop pictures (multiple pictures that change every few minutes). This is because each time you log on BGInfo makes a copy of your current theme (background, colours, font sizes etc.) and applies the customisations in the BGInfo configuration.
If you open the ‘Personalize’ window you will see an ‘Unsaved theme’ with the set background picture.
'======================================================================================== ' BGinfo Installation Script '======================================================================================== ' ' Script Details: ' -------------- ' This script copies the BGinfo files to the C:\bginfo folder and sets the run registry key '======================================================================================== Option Explicit 'Declare Variables and constants Dim objShell, objFSO, intErrorCode 'Create objects Set objShell = CreateObject("WScript.Shell") Set objFSO = createobject("scripting.filesystemobject") '======================================================================================== 'Main body '======================================================================================== On Error Resume Next 'Create the c:\bginfo folder If not objFSO.FolderExists("C:\bginfo") Then objFSO.CreateFolder("C:\bginfo") End If 'Copy the bginfo files intErrorCode = intErrorCode + objFSO.CopyFile(objShell.CurrentDirectory & "\Bginfo.exe", "C:\bginfo\") intErrorCode = intErrorCode + objFSO.CopyFile(objShell.CurrentDirectory & "\wstat.bgi", "C:\bginfo\") 'Add the bginfo shortcut to the run registry key intErrorCode = intErrorCode + objshell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\bginfo", "C:\bginfo\Bginfo.exe /accepteula /ic:\bginfo\wstat.bgi /timer:0", "REG_SZ") objShell.Run "C:\bginfo\Bginfo.exe /accepteula /ic:\bginfo\wstat.bgi /timer:0" 'Cleanup Set objShell = Nothing Set objFSO = Nothing 'return errorcode for install to SCCM WScript.Quit(intErrorCode) '========================================================================================