'fixpix.vbs
'© Doug Knox - rev 02/18/2000
'This code may be freely distributed/modified
'Based on original work by Alex Nichol and other MS-MVP's
'Downloaded from www.dougknox.com

Option Explicit

'Declare variables
Dim WSHShell, p1, p2, p3
Set WSHShell = WScript.CreateObject("WScript.Shell")
p2 = "\CLSID\"
p3 = "{25336920-03F9-11cf-8FD0-00AA00686F13}"

'This code suggested by Bill James
For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".tif",".tiff",".wmf")
   WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next

p2 = "\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\"
p3 = "{7376D660-C583-11d0-A3A5-00C04FD706EC}"

'This code suggested by Bill James
For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf")
  WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next

p1 = ".tif"
p3 = "{1AEB1360-5AFC-11d0-B806-00C04FD706EC}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".tiff"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".htm"
p3 = "{EAB841A0-9550-11cf-8C16-00805F1408F3}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".html"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3

MsgBox "Thumbnails and Image Preview" & vbCR & "have been restored.", 4096, "Confirmation"

Set WSHShell = Nothing