'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