Question : How to run the program from vbs script

Hello,
I need to consult a script that monitors whether you installed the program. It would add to the script, so if the installation program found that in addition to messages from a particular location of the installation began, for example, "\\srv01\data office\FileFormatConverters.exe"
Thanks for your help.

         
           
           
          Dim WSHShell, RegKey, rKeyWord, Result
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\MOC"
On Error Resume Next 'The registry key does not exist
rKeyWord = WSHShell.RegRead(RegKey & "ProductName") ' but if it does read it
If rKeyWord = "Compatibility Pack for the 2007 Office system" Then
MsgBox "Compatibility Pack for the 2007 Office system - installed"
Else
MsgBox "Compatibility Pack for the 2007 Office system - NOT installed"
End If

           
         

Answer : How to run the program from vbs script

Oops.. For some reason the new code didn't paste. Here it is.

HTH,
exx

                       
         
           
           
             Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\MOC"
On Error Resume Next 'The registry key does not exist
rKeyWord = WSHShell.RegRead(RegKey & "ProductName") ' but if it does read it
If rKeyWord = "Compatibility Pack for the 2007 Office system" Then
	MsgBox "Compatibility Pack for the 2007 Office system - installed"
Else
	MsgBox "Compatibility Pack for the 2007 Office system - NOT installed"
	WSHShell.Run("c:\Windows\System32\notepad.exe")
End If
           
         