Ottenere Versione e Path del client di Navision installato

Queste informazioni sono reperibili tramite la seguente chiave di registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Navision\Microsoft Business Solutions-Navision

Questa chiave ha una sottochiave che rappresenta la versione installata (xes W1 4.00) che a sua volta contiene un valore Path che rapprasenta il percorso in cui è stato installato il client di Navision

Di seguito il codice per ottenere le informazioni in VB.Net:

    Public Shared Function GetNavisionVersion() As String
        Dim value As String = String.Empty

        Try
            Dim key As Microsoft.Win32.RegistryKey
            key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
                          “SOFTWARE\Navision\Microsoft Business Solutions-Navision”, False)

            value = key.GetSubKeyNames()(0)
        Catch ex As Exception
            Throw New System.ApplicationException(“Navision Client is not installed.”, ex)
        End Try

        Return value
    End Function

    Public Shared Function GetNavisionClientPath() As String
        Dim value As String = String.Empty

        Try
            Dim key As Microsoft.Win32.RegistryKey
            key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
                          “SOFTWARE\Navision\Microsoft Business Solutions-Navision\” & _
                GetNavisionVersion(), False)

            value = key.GetValue(“Path”).ToString()
        Catch ex As Exception
            Throw New System.ApplicationException(“Navision Client is not installed.”, ex)
        End Try

        Return value
    End Function