Получить список установленных программ на удаленном ПК в сети

Dim uninstallKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
 
        Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey(uninstallKey)
 
            For Each skName As String In rk.GetSubKeyNames()
 
                Using sk As RegistryKey = rk.OpenSubKey(skName)
 
                    Try
                        Dim namepc = "ThisPC"
                        Dim dateinstal = sk.GetValue("InstallDate")
                        Dim displayName = sk.GetValue("DisplayName")
                        Dim size = sk.GetValue("EstimatedSize")
                        Dim dispver = sk.GetValue("DisplayVersion")
 
                        Dim item As ListViewItem
 
                        If displayName IsNot Nothing Then
 
                            If size IsNot Nothing Then
                                item = New ListViewItem(New String() {namepc, displayName.ToString(), dateinstal.ToString(), size.ToString(), dispver.ToString()})
                            Else
                                item = New ListViewItem(New String() {namepc, displayName.ToString()})
                            End If
 
                            ListView1.Items.Add(item)
                        End If
 
                    Catch ex As Exception
                    End Try
                End Using
            Next
 
        End Using

Sub GetOsVer(ByVal MachineName As String)
        ListView1.Items.Clear()
        Dim OsVer As Object = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, MachineName).OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\Environment", False).GetValue("PROCESSOR_ARCHITECTURE")
 
        If OsVer IsNot Nothing Then
            Select Case OsVer.ToString
                Case "x86"
                    GetRemoteInfo(MachineName, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
                Case "AMD64"
                    GetRemoteInfo(MachineName, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
                    GetRemoteInfo(MachineName, "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\")
            End Select
        End If
 
    End Sub
 
    Sub GetRemoteInfo(ByVal MachineName As String, ByVal path As String)
 
        Using environmentKey As RegistryKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, MachineName).OpenSubKey(path, False)
            For Each key As String In environmentKey.GetSubKeyNames()
                Using SbKey As RegistryKey = environmentKey.OpenSubKey(key)
 
                    Try
                        Dim namepc = MachineName
                        Dim dateinstal = SbKey.GetValue("InstallDate")
                        Dim displayName = SbKey.GetValue("DisplayName")
                        Dim size = SbKey.GetValue("EstimatedSize")
                        Dim dispver = SbKey.GetValue("DisplayVersion")
                        Dim Publ = SbKey.GetValue("Publisher")
 
                        Dim item As ListViewItem
 
                        If displayName IsNot Nothing Then
 
                            If size IsNot Nothing Then
                                item = New ListViewItem(New String() {namepc, displayName.ToString(), Publ, dateinstal.ToString(), size.ToString(), dispver.ToString()})
                            Else
                                item = New ListViewItem(New String() {namepc, displayName.ToString(), Publ})
                            End If
 
                            ListView1.Items.Add(item)
                        End If
 
                    Catch ex As Exception
                    End Try
                End Using
            Next
        End Using
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        GetOsVer(ListBox1.SelectedItem)
    End Sub

Dim OsVer As Object = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, MachineName).OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\Environment", False).GetValue("PROCESSOR_ARCHITECTURE")

Dim OsVer As Object = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, MachineName).OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\Environment", False).GetValue("PROCESSOR_ARCHITECTURE")

GetRemoteInfo(ListBox1.SelectedItem, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For i = 0 To ListBox1.Items.Count - 1
            GetOsVer(ListBox1.Items.Item(i))
        Next
 
    End Sub

 For Each elements As String In ListBox1.Items
            GetOsVer(elements)
        Next

 If displayName.contains("Update") Then
                            Continue For
                        End If