' Voila le contenu du fichier Joint :
Set WShell = WScript.CreateObject("WScript.Shell") 

' DLL
WShell.RegWrite "HKCR\dllfile\shell\", "Enregistrer" 
WShell.RegWrite "HKCR\dllfile\shell\Enregistrer\Command\", "Regsvr32 %1" 
WShell.RegWrite "HKCR\dllfile\shell\Desenregistrer\Command\", "Regsvr32 -u %1"

' OCX
WShell.RegWrite "HKCR\ocxfile\shell\", "Enregistrer" 
WShell.RegWrite "HKCR\ocxfile\shell\Enregistrer\Command\", "Regsvr32 %1" 
WShell.RegWrite "HKCR\ocxfile\shell\Desenregistrer\Command\", "Regsvr32 -u %1" 

' EXE
WShell.RegWrite "HKCR\exefile\shell\", "Open" 
WShell.RegWrite "HKCR\exefile\shell\Enregistrer\Command\", "%1 /RegServer" 
WShell.RegWrite "HKCR\exefile\shell\Desenregistrer\Command\", "%1 /UnregServer" 

' TLB
WShell.RegWrite "HKCR\tlbfile\shell\", "Enregistrer" 
WShell.RegWrite "HKCR\tlbfile\shell\Enregistrer\Command\", "Regtlib %1" 
WShell.RegWrite "HKCR\tlbfile\shell\Desenregistrer\Command\", "Regtlib -u %1" 

' M97
WShell.RegWrite "HKCR\m97file\shell\", "Ouvrir M97" 
WShell.RegWrite "HKCR\m97file\shell\Ouvrir avec Access M97\Command\", "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE %1"