Enable/Disable Desktop Icons

Hi friends !

With help of this script, we can enable or desable Desktop Icons.

Swith Between Show or Hide Desktop Icons.

* Open notepad and save the quoted text as.. filename.vbs

'Enable or Disable Desktop Icons King Of Hearts

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

* Run this script to switch between show and hide Desktop icons

enabledisabledesktopicons.rar