RemoveApplication

Function RemoveApplication(appName)

    Dim msiObject, msiProduct, strProdList, strProdInfo, msiProdVersion, CommandShell, cmdline

    strProdList = ""
    Set msiObject = Wscript.CreateObject("WindowsInstaller.Installer")
    For Each msiProduct In msiObject.Products
        msiProdVersion = CLng(msiObject.ProductInfo(msiProduct, "Version"))
        msiProdVersion = (msiProdVersion\65536\256) & "." & (msiProdVersion\65535 MOD 256) & "." & (msiProdVersion Mod 65536)

        strProdInfo = ""
        IF msiObject.ProductInfo(msiProduct, "ProductName") = appName Then
            strProdInfo = "Product GUID: " & msiProduct & vbCrLf _
            & "Name: " & msiObject.ProductInfo(msiProduct, "ProductName") & vbCrLf _
            & "Version: " & msiProdVersion

            set CommandShell = createobject("wscript.shell")
            cmdline = "msiexec /X" & msiProduct & " /qn"
            CommandShell.run cmdline, 1, true
        END IF
    NEXT
End Function