On Error Resume Next Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKCR\lnkfile\NeverShowExt" WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt" WshShell.RegDelete "HKCR\InternetShortcut\NeverShowExt" WshShell.RegDelete "HKCR\piffile\NeverShowExt" WshShell.RegDelete "HKCR\SHCmdFile\NeverShowExt" WshShell.RegDelete "HKCR\ShellScrap\NeverShowExt" Dim MyBox MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done")