King-Of-Hearts Posted March 23, 2008 Share Posted March 23, 2008 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 HeartsMessage = "To work correctly, the script will close" & vbCRMessage = Message & "and restart the Windows Explorer shell." & vbCRMessage = Message & "This will not harm your system." & vbCR & vbCRMessage = Message & "Continue?"X = MsgBox(Message, vbYesNo, "Notice")If X = 6 ThenOn Error Resume NextDim WSHShell, n, MyBox, p, t, errnum, versDim itemtypeDim enab, disab, jobfuncSet 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.Clearn = WSHShell.RegRead (p)errnum = Err.Numberif errnum <> 0 then WSHShell.RegWrite p, 0, itemtypeEnd IfIf n = 0 Then n = 1WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & disab & vbCR, 4096, t)ElseIf n = 1 then n = 0WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & enab & vbCR, 4096, t)End IfSet WshShell = NothingOn Error GoTo 0For 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now