Dim WSHShell, RegKey, rKeyWord, Resultat
WSHShell = CreateObject („WScript.Shell“) einstellen
RegKey = „HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Büro \ 12.0 \ MOC“
Von der Störungs-Zusammenfassung zunächst 'der Registerschlüssel existiert nicht
rKeyWord = WSHShell.RegRead (RegKey u. „ProductName“) 'aber, wenn es es liest
Wenn rKeyWord = „Kompatibilitäts-Satz für das Bürosystem 2007“ dann
MsgBox „Kompatibilitäts-Satz für das Bürosystem 2007 - angebracht“
Sonst
MsgBox „Kompatibilitäts-Satz für das Bürosystem 2007 - NICHT angebracht“
Beenden wenn
|