Bruce wrote:
> My neice has a laptop with xp prof.
> Happened yesterday, that she can not
> change the background (properties/background)
> Not able to highlight the names under the background list, nor the
> browse. The color button can be accessed.
> When she starts it, it will show the picture background
> but when windows finally is all up, it has a color background.
> Administrator is the only account.
> thanks Bruce
are you missing tabs? if so try this follow this link
http://www.winhelponline.com/articles/38/1/ and look down to atachments
middle of the page follow directions OR do this, copy below paste into
notepad and save as a .vbs
then run it,
Clark...
'Restores missing tabs in the Display properties
'For use with Windows® XP only.
'Created on May 09, 2006
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Homepage:
http://windowsxp.mvps.org
' Copyright © 2006, Ramesh Srinivasan
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
Dim WshShell, basekey,basekey2, rtn
Set WshShell = CreateObject("WScript.Shell")
basekey="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Task1
basekey="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Task1
basekey2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Task2
basekey2="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Task2
Sub Task1()
On Error Resume Next
rtn = WshShell.Regdelete (basekey & "NoDispCPL")
rtn = WshShell.Regdelete (basekey & "NoDispAppearancePage")
rtn = WshShell.Regdelete (basekey & "NoDispBackgroundPage")
rtn = WshShell.Regdelete (basekey & "NoDispScrSavPage")
rtn = WshShell.Regdelete (basekey & "NoDispSettingsPage")
On Error Goto 0
End Sub
Sub Task2()
On Error Resume Next
rtn = WshShell.Regdelete (basekey2 & "NoThemesTab")
rtn = WshShell.Regdelete (basekey2 & "ClassicShell")
rtn = WshShell.Regdelete (basekey2 & "NoChangingWallPaper")
rtn = WshShell.Regdelete (basekey2 & "ForceActiveDesktopOn")
rtn = WshShell.Regdelete (basekey2 & "NoActiveDesktop")
rtn = WshShell.Regdelete (basekey2 & "NoWebView")
On Error Goto 0
End Sub
Wshshell.RUN ("regsvr32.exe shell32.dll -i -s")
Wshshell.RUN ("regsvr32.exe themeui.dll -s")
Msgbox "Done"
Set WshShell = Nothing