Option Explicit Dim WSHShell, n, MyBox, p, itemtype, Title Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\" p = p & "NoRun" itemtype = "REG_DWORD" n = 1 WSHShell.RegWrite p, n, itemtype Title = "Cleanup Wizard is now Disabled." & vbCR Title = Title & "You may need to log off/log on" & vbCR Title = Title & "For the change to take effect." MyBox = MsgBox(Title,4096,"Finished")