
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)
'========================================================================================