'Disable Desktop Icons
On Error Resume Next
Dim WSHShell, p, itemtype, errnum
Set WSHShell = (" ")
p = "HKEY_USERS\S-1-5-21-1910448962-2318417300-129305233-1106\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"
itemtype = "REG_DWORD"
p, 1, itemtype
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name=' '")
(0)
Next
