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