"Clark" <Clark_throwaway RemoveThis @yahoo.com> wrote in message
news:65mui.17$NJ2.3@newsfe02.lga...
> Alasdair wrote:
>> "Clark" <Clark_throwaway RemoveThis @yahoo.com> wrote in message
>> news:lIiui.3$8%3.2@newsfe04.lga...
>>> Alasdair wrote:
>>>> gpedit.msc shows eveything under display as "Not configured" but I
>>>> get nothing but theme in Display Proerties
>>>> Windows XP Pro SP2 patched to date
>>>> Radeon 1300 256MB
>>>> Pentium4 HT
>>>
>>> This is your fix, I looked for hours and hours for this fix and it
>>> was the only one that works
>>>
>>> look down page under Attachments and you will see a Vbs file
>>> download and run it.
>>> http://www.winhelponline.com/articles/38/1/
>>>
>>> or copy this (below) and save it as a .vbs and 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
>>>
>>
>> thankyou very much - you have my everlasting goodly thoughts 
it
>> worked and I have control of my screen once more )
>> Alasdair
>
> I'm happy I could help, the real hero is Ramesh Srinivasan
>
> Clark
>
yup I left a message on his site
Alasdair
Microsoft Windows (other)