VB.netでwindowsインストールソフトウェア取得

Dim wkRegKey As Microsoft.Win32.RegistryKey
Dim wkKeyName As String
Dim strKeyNames() As String
Dim strKeyName As String
Dim rKey As Microsoft.Win32.RegistryKey
Dim displayName As String

wkKeyName = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
wkRegKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(wkKeyName, False)

strKeyNames = wkRegKey.GetSubKeyNames()

For Each strKeyName In strKeyNames
    rKey = wkRegKey.OpenSubKey(strKeyName)
    'インストールソフトウェア名取得
    If Not rKey.GetValue(“DisplayName”) Is Nothing Then
        displayName = rKey.GetValue(“DisplayName”).ToString()

        'アンインストール実行ファイル取得
        If Not rKey.GetValue(“UninstallString”) Is Nothing Then
            unInstaller = rKey.GetValue(“UninstallString”)
        End If
    End If
Next