Fijar WSHShell = CreateObject (“WScript.Shell”)
RegKey = “HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ oficina \ 12.0 \ MOC”
En curriculum vitae del error después 'la llave del registro no existe
rKeyWord = WSHShell.RegRead (RegKey y “ProductName”) 'pero si lo lee
Si rKeyWord = “paquete de la compatibilidad para el sistema 2007 de oficina” entonces
MsgBox “paquete de la compatibilidad para el sistema 2007 de oficina - instalado”
MsgBox “paquete de la compatibilidad para el sistema 2007 de oficina - no instalado”
WSHShell.Run (“c:\Windows\System32\notepad.exe ")
Terminar si
|