Dim sh, exe
on error resume next
set sh=WScript.CreateObject("WScript.Shell")
sh.regWrite "HKCR\.cpt\","CorelPHOTOPAINT.Image.13"
sh.RegDelete "HKCR\CLSID\{8968DB6F-A75E-44b7-8300-DF282E81CA87}\AutoConvertTo\"
exe=sh.RegRead("HKCR\CLSID\" & sh.RegRead("HKCR\CorelDRAW.Application.13\CLSID\") & "\LocalServer32\")
sh.Run """" & replace(left(exe,instrrev(exe,".exe",-1,vbTextCompare)+3),"""","") & """"
Dim sh, exe
on error resume next
set sh=WScript.CreateObject("WScript.Shell")
sh.regWrite "HKCR\.cpt\","CorelPHOTOPAINT.Image.14"
exe=sh.RegRead("HKCR\CLSID\" & sh.RegRead("HKCR\CorelDRAW.Application.14\CLSID\") & "\LocalServer32\")
sh.Run """" & replace(left(exe,instrrev(exe,".exe",-1,vbTextCompare)+3),"""","") & """"