Adding file type association using vbScript

fext = "fcz"
prgid = "FCZ File"
des = "FCZ File"
extanm = "c:\Program files\TestApps\AppStart.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"