Regolare WSHShell = CreateObject (“WScript.Shell„)
RegKey = “HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ ufficio \ 12.0 \ MOC„
Sul riassunto di errore dopo 'la chiave di registrazione non esiste
rKeyWord = WSHShell.RegRead (RegKey & “ProductName„) 'ma se lo legga
Se rKeyWord = “pacchetto di compatibilità per il sistema 2007 di ufficio„ allora
MsgBox “pacchetto di compatibilità per il sistema 2007 di ufficio - installato„
Altrimenti
MsgBox “pacchetto di compatibilità per il sistema 2007 di ufficio - non installato„
WSHShell.Run (“c:\Windows\System32\notepad.exe ")
Concluder se
|