PC Review


Reply
Thread Tools Rate Thread

Can't change background (bkgrd/prop)

 
 
Bruce
Guest
Posts: n/a
 
      27th Oct 2007
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


 
Reply With Quote
 
 
 
 
Clark...
Guest
Posts: n/a
 
      27th Oct 2007
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


 
Reply With Quote
 
Bruce
Guest
Posts: n/a
 
      27th Oct 2007
The tabs are there,
but not accessible. It shows the list, and the browse, but unable to
highlight or click them.


"Clark..." <(E-Mail Removed)> wrote in message
news:rPGUi.48$(E-Mail Removed)...
> 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
>



 
Reply With Quote
 
Clark...
Guest
Posts: n/a
 
      27th Oct 2007
Bruce wrote:
> The tabs are there,
> but not accessible. It shows the list, and the browse, but unable to
> highlight or click them.
>
>

but have you tried the fix yet ?
Clark...


> "Clark..." <(E-Mail Removed)> wrote in message
> news:rPGUi.48$(E-Mail Removed)...
>> 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


--
Don't you have Google in your part of the world?


 
Reply With Quote
 
Bruce
Guest
Posts: n/a
 
      27th Oct 2007
Not as yet, brother is calling the manufacturer first,
generally I don't like running scripts.
Looking at the pictures, they are different than our particualr problem,
seeing we can see all the tabs.

"Clark..." <(E-Mail Removed)> wrote in message
news:lNOUi.116$(E-Mail Removed)...
> Bruce wrote:
>> The tabs are there,
>> but not accessible. It shows the list, and the browse, but unable to
>> highlight or click them.
>>
>>

> but have you tried the fix yet ?
> Clark...
>
>
>> "Clark..." <(E-Mail Removed)> wrote in message
>> news:rPGUi.48$(E-Mail Removed)...
>>> 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

>
> --
> Don't you have Google in your part of the world?
>



 
Reply With Quote
 
Clark...
Guest
Posts: n/a
 
      28th Oct 2007
Bruce wrote:
> Not as yet, brother is calling the manufacturer first,
> generally I don't like running scripts.
> Looking at the pictures, they are different than our particualr
> problem, seeing we can see all the tabs.


I have used the script many times, it won't hurt your PC.
Sounds like you have a permissions problem as well
this program allows you to tune your permissions link:
http://www.derkeiler.com/Newsgroups/.../msg00148.html
I had to use it because the customers PC could not change the settings of
display or open control panel etc,
I don't know what your afraid of but, it's your call,
Good luck

Clark...





> "Clark..." <(E-Mail Removed)> wrote in message
> news:lNOUi.116$(E-Mail Removed)...
>> Bruce wrote:
>>> The tabs are there,
>>> but not accessible. It shows the list, and the browse, but unable to
>>> highlight or click them.
>>>
>>>

>> but have you tried the fix yet ?
>> Clark...
>>
>>
>>> "Clark..." <(E-Mail Removed)> wrote in message
>>> news:rPGUi.48$(E-Mail Removed)...
>>>> 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

>>
>> --
>> Don't you have Google in your part of the world?


--
Don't you have Google in your part of the world?


 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
If change table field prop, have to remove & replace form button TravelingHT Microsoft Access Getting Started 4 1st Sep 2008 05:51 AM
when screen saver tab is hide and its prop is disable to change =?Utf-8?B?Vmllc3RhV3U=?= Windows XP Security 0 11th Jul 2007 07:20 AM
Button to change the prop. setting to allow edits or not =?Utf-8?B?TWFyazEwMTAxMDEw?= Microsoft Access Forms 3 17th Feb 2006 06:32 PM
how can i change the processor name in my com.prop.general tab? =?Utf-8?B?am9u?= Windows XP General 2 1st May 2005 02:26 PM
How can I change a list of names in Excel from upper case to prop. =?Utf-8?B?TWFudWVs?= Microsoft Excel Crashes 1 17th Sep 2004 02:04 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 09:37 AM.