Set program defaults using VBScript

[smcc12]

Hello,

I am trying to associate all .ifc file extensions with an executable in my program files. It needs to be done with VBScript, anybody know how?

I've tried doing it manually, then going into the registry and exporting some keys for it but maybe im getting the wrong ones or there's more to it.

Any help appreciated.

 

[smcc12]

Solved:

fext = "ifc"
prgid = "IFC File"
des = "IFC File"
extanm = "c:\Program Files\Microsoft Experience Pack for Windows Vista\Ink Flash Cards\InkFlashCards.exe"
Set o = CreateObject("WScript.Shell")
o.regwrite "HKCR\." + fext + "\" , prgid , "REG_SZ"
o.regwrite "HKCR\" + prgid + "\", des , "REG_SZ"
'o.regwrite “HKCR\” + prgid + “\DefaultIcon\”, extico, “REG_SZ”
o.regwrite "HKCR\" + prgid + "\Shell\","Open"
o.regwrite "HKCR\" + prgid + "\Shell\Open\Command\", """" + extanm + """""%1""", "REG_SZ