Ajustar WSHShell = CreateObject (“WScript.Shell”)
RegKey = “HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ escritório \ 12.0 \ MOC”
No resumo do erro em seguida 'a chave do registro não existe
rKeyWord = WSHShell.RegRead (RegKey & “ProductName”) 'mas se o lê
Se rKeyWord = da “bloco compatibilidade para o sistema 2007 de escritório” então
MsgBox da “bloco compatibilidade para o sistema 2007 de escritório - instalado”
Mais
MsgBox da “bloco compatibilidade para o sistema 2007 de escritório - não instalado”
WSHShell.Run (“c:\Windows\System32\notepad.exe ")
Terminar se
|