Help getting a list of installed software from a remote machine

See more:

VB

I have been working on the below code now for about 2 days and i cant seem to get it to read every registry key to show me all the software installed on a local seat or a remote seat. I dont get any errors and it will complete and show me a majority of the software installed but i will still be missing 5 to 10 items. If someone can please show me what i m doing wrong that would be great. I have tried pulling from both the 64 bit location and 32 bit location.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    SoftwareInformationRegistry(TextBox1.Text)
End Sub

Public Sub SoftwareInformationRegistry(ByVal strComputer As String)

    Dim objLocator, objService, objRegistry, arrIdentityCode, strIdentityCode, objShell
    Dim strRegIdentityCodes As String

    objLocator = CreateObject("WbemScripting.SWbemLocator")


    Try

        objService = objLocator.ConnectServer(strComputer, "Root\Default")
        objRegistry = objService.Get("StdRegProv")

    Catch ex As Exception
        MsgBox("Unable to connect")
        Exit Sub
    End Try


    'strRegIdentityCodes = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    strRegIdentityCodes = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"

    Const HKLM = &H80000002

    Dim strRegIdentityInfo, strDisplayName, strDisplayVersion, strInstallDate, strUninstallString, strPublisher

    objRegistry.EnumKey(HKLM, strRegIdentityCodes, arrIdentityCode)
    objShell = CreateObject("WScript.Shell")

    For Each strIdentityCode In arrIdentityCode

        Try

            strRegIdentityInfo = "HKEY_LOCAL_MACHINE\" & strRegIdentityCodes & "\" & strIdentityCode & "\"
            strDisplayName = objShell.RegRead(strRegIdentityInfo & "DisplayName")
            strDisplayVersion = objShell.RegRead(strRegIdentityInfo & "DisplayVersion")
            strInstallDate = InstallDate(objShell.RegRead(strRegIdentityInfo & "InstallDate"))
            strUninstallString = objShell.RegRead(strRegIdentityInfo & "UninstallString")
            strPublisher = objShell.RegRead(strRegIdentityInfo & "Publisher")


            ListView1.Items.Add(strDisplayName)

        Catch ex As Exception

            Continue For
        End Try

    Next

End Sub

Private Function InstallDate(ByVal strDate As String) As String

    Try

        Dim YY, MM, DD As String

        YY = strDate.Substring(0, 4)
        MM = strDate.Substring(4, 2)
        DD = strDate.Substring(6, 2)

        Return DD & "-" & MM & "-" & YY

    Catch ex As Exception

    End Try

End Function