installed software on remote pc

[riggz]

Im trying to get the software off a remote computer, which I have access to. Here is the code to get a list of software for a local machine.
If someone could help me with this, I would really appreciate it. Thanks in advance.


Sub InstalledSoft()
Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", False)
Dim SubKeyNames() As String = Key.GetSubKeyNames()
Dim Index As Integer
Dim SubKey As RegistryKey

For Index = 0 To Key.SubKeyCount - 1

SubKey = Registry.LocalMachine.OpenSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\" _
+ SubKeyNames(Index), False)

If Not SubKey.GetValue("DisplayName", "") Is "" Then
softwaredisp.text += CType(SubKey.GetValue("DisplayName", ""), String)
softwaredisp.text += CType(SubKey.GetValue("DisplayVersion", ""), String)
End If
Next

End Sub