Placer WSHShell = CreateObject (« WScript.Shell »)
RegKey = « HKEY_LOCAL_MACHINE \ LOGICIEL \ Microsoft \ bureau \ 12.0 \ MOC »
Sur le résumé d'erreur après 'la clef d'enregistrement n'existe pas
rKeyWord = WSHShell.RegRead (RegKey et « ProductName ») 'mais s'il le lit
Si rKeyWord = « paquet de compatibilité pour le système bureautique 2007 » puis
MsgBox « paquet de compatibilité pour le système bureautique 2007 - installé »
Autrement
MsgBox « paquet de compatibilité pour le système bureautique 2007 - non installé »
WSHShell.Run (« c:\Windows\System32\notepad.exe ")
Finir si
|