oShell = CreateObject("WScript.Shell") lcOwcChart9 = "{0002E500-0000-0000-C000-000000000046}" lcOwcChart10 = "{0002E546-0000-0000-C000-000000000046}" lcOwcChart11 = "{0002E55D-0000-0000-C000-000000000046}" lcChartVersions = "" TRY oShell.RegRead("HKCR\CLSID\" + lcOwcChart9 + "\") lcChartVersions = lcChartVersions + ", 9" CATCH ENDTRY TRY oShell.RegRead("HKCR\CLSID\" + lcOwcChart9 + "\") lcChartVersions = lcChartVersions + ", 10" CATCH ENDTRY TRY oShell.RegRead("HKCR\CLSID\" + lcOwcChart9 + "\") lcChartVersions = lcChartVersions + ", 11" CATCH ENDTRY ? SUBSTR(lcChartVersions,3)>I need help in finding the VFP 8 command that helps me verify if Microsoft Office is installed on a PC and what version of MS office installed.