Fastställda WSHShell = CreateObject (”WScript.Shell”)
RegKey = ”HKEY_LOCAL_MACHINE \ PROGRAMVARA \ Microsoft \ kontor \ 12.0 \ MOC”,
På felmeritförteckning därefter 'den nyckel- registreringen finns inte
rKeyWord = WSHShell.RegRead (RegKey & ”ProductName”) 'men, om den läser den
Om rKeyWord = ”förenlighetpacke för kontorssystemet 2007” därefter
MsgBox ”förenlighetpacke för det installerade kontorssystemet 2007 -”,
Annars
MsgBox ”förenlighetpacke för det INTE-installerade kontorssystemet 2007 -”,
WSHShell.Run (”c:\Windows\System32\notepad.exe”)
Avsluta om
|