'RepairThumbnailView.vbs
'© Doug Knox - dbknox@mediaone.net - rev 02/18/2000
'This code may be freely distributed/modified

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

MsgBox "Thumbnail View File Associations" & vbCR & "have been restored.", 4096, "Confirmation"

Set WSHShell = Nothing