Checking SAP Business One installation programmatically

You can check SAP Business One installation using below code:

Public Function isSapBusinesOneClientInstalled() As Boolean
   Try
      SAP Business One Application
      Dim type As Type = Type.GetTypeFromCLSID(New Guid("632F4591-AA62-4219-8FB6-22BCF5F60088"))
      Dim obj As Object = Activator.CreateInstance(type)
      Marshal.ReleaseComObject(obj)
      Return True
         Catch ex As COMException
      Return False
   End Try
End Function