;*********************** COPY WALLPAPER ***************************** 
 
IF @TSSESSION <> 1
  $ScreenRes = GetScreenRes()
  ; set the wallpaper source var based on screen res 
  SELECT
    CASE $ScreenRes = '1280,1024'
      $Wallpaper = 'Desktop1280x1024.jpg'
    CASE $ScreenRes = '1440,900'
      $Wallpaper = 'Desktop1440x900.jpg'
    CASE 1
      $Wallpaper = 'Desktop1280x1024.jpg'
  ENDSELECT    
 
  IF Not Exist('%TEMP%\Wallpaper.jpg')	; you can't check for one file when it's really another file! 
    COPY '\\%USERDOMAIN%\Netlogon\Wall\' + $WallPaper '%TEMP%\WallPaper.jpg'
  ENDIF
 
  $WallpaperStyle = '2'
  $TileWallpaper = '0'
  $WallpaperMode = '1'
 
  ; This should also reference the destination file, not the source file name! 
  $=WriteValue('HKCU\Control Panel\Desktop', 'Wallpaper', '%TEMP%\WallPaper.jpg', 'REG_SZ')
  $=WriteValue('HKCU\Control Panel\Desktop', 'WallpaperStyle', $WallpaperStyle, 'REG_SZ')
  $=WriteValue('HKCU\Control Panel\Desktop', 'TileWallpaper', $TileWallpaper, 'REG_SZ')
  $=SetWallpaper('Wallpaper.jpg', $WallpaperMode)
ENDIF
 
;*********************** RUN BGINFO ********************************* 
 
SHELL '\\%USERDOMAIN%\Netlogon\BGInfo.exe \\%USERDOMAIN%\NETLOGON\Wall\SUMMIT.bgi /TIMER:0'