'Remove Common Task from Desktop
'© Doug Knox - 02/04/2002
'downloaded from www.dougknox.com

p1="HKEY_CLASSES_ROOT\CLSID\{00021400-0000-0000-C000-000000000046}\shellex\ExtShellFolderViews\{5984FFE0-28D4-11CF-AE66-08002B2E1262}\PersistMoniker"
p2="file://%userappdata%\Microsoft\Internet Explorer\Desktop.htt"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite p1, p2, "REG_EXPAND_SZ"

X = MsgBox("Log off/log on or Reboot for the change to take effect.", 4096,"Finished")

Set WshShell = Nothing