Uninstall applications through the registry

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("UninstallAppList.tsv", True)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

objTextFile.WriteLine "DisplayName" & vbtab & _
    "InstallDate" & vbtab & "ProdId" & vbtab & _
    "Publisher" & vbtab & "Version" & vbtab & "32/64Bits"

'add a where clause
Set colSoftware = objWMIService.ExecQuery("Select * from Win32Reg_AddRemovePrograms")
For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.DisplayName & vbtab & _
        objSoftware.InstallDate & vbtab & _
        objSoftware.ProdId & vbtab & _
        objSoftware.Publisher & vbtab & _
        objSoftware.Version & vbtab & _
        "32"
Next

Set colSoftware = objWMIService.ExecQuery("Select * from Win32Reg_AddRemovePrograms64")
For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.DisplayName & vbtab & _
        objSoftware.InstallDate & vbtab & _
        objSoftware.ProdId & vbtab & _
        objSoftware.Publisher & vbtab & _
        objSoftware.Version & vbtab & _
        "64"
Next


objTextFile.Close

'Use this code to uninstall the application
'Set objShell = CreateObject("Wscript.Shell")
'For Each objSoftware in colSoftware
'    objShell.Run objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & objSoftware.ProdId & "\UninstallString"), 1, true
'Next