Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement