Lista de Programas Instalados na Maquina Local. O Artigo Original de onde retirei a ideia está aqui em C#
Public Sub GetInstalled()
Dim uninstallKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(uninstallKey)
For Each skName As String In rk.GetSubKeyNames
Dim sk As Microsoft.Win32.RegistryKey = rk.OpenSubKey(skName)
My.Computer.FileSystem.WriteAllText("C:\Log.txt", sk.GetValue("DisplayName") & Chr(13), True)
Next
End Sub
posted on Saturday, September 02, 2006 8:24 PM