Plasma_Snake
Indidiot
I installed XP 64-bit today and since it was not giving me option to show or hide desktop icons in the Right-Click menu, I decided to get registry entries to do so. I got them from this link, *www.kellys-korner-xp.com/xp_tweaks.htm. The code is the actual contents of the registry file:
This was a vbscript.
This was a registry file.
Now there are no icons on desktop and nothing happens if I Right click on it. This happened after I ran the script file and after running the registry file, the "My Computer" is nowhere to be found and if the go to it by Windows Explorer, all I get is a blank window, it shows no drive nothing, although exploring further drives are accessible.
Tell me how to fix and clean this mess? Should I delete the Registry changes? I ran CCleaner and tried to fix registry but nothing worked. How to rectify the changes made by the script?
Code:
'Enable or Disable Desktop Icons
Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers
Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Desktop Icons are now "
t = "Confirmation"
Err.Clear
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If
Code:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}]
@="My Documents"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\ShellFolder]
"Attributes"=dword:41f05001
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum]
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoInternetIcon"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder]
"Attributes"=dword:41f05001
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{208D2C60-3AEA-1069-A2D7-08002B30309D}\ShellFolder]
"Attributes"=dword:41f05001Now there are no icons on desktop and nothing happens if I Right click on it. This happened after I ran the script file and after running the registry file, the "My Computer" is nowhere to be found and if the go to it by Windows Explorer, all I get is a blank window, it shows no drive nothing, although exploring further drives are accessible.
Tell me how to fix and clean this mess? Should I delete the Registry changes? I ran CCleaner and tried to fix registry but nothing worked. How to rectify the changes made by the script?
