Solved

Need a script to uninstall multiple versions of same software execpt one

Posted on 2009-03-30
4
375 Views
Last Modified: 2012-06-27
I have an application with multiple versions I need to uninstall but leave the correct version intact. I need a script that checks for the appp name and app version and unintalls all but the correct version.

tx!
0
Comment
Question by:geewizzz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
4 Comments
 
LVL 14

Accepted Solution

by:
rejoinder earned 500 total points
ID: 24025842
Modify the script below to match your files name and version number.
I recomend you uncomment the echo command in the loop and comment out the uninstallByGuid line so you can double check that all the right files are being targeted.
To tweak, the select statement will have to be modified a little.
strComputer = "."
strSoftName = "Adobe Acrobat"
strVersion  = "9.0"
 
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Product Where Name like '" & strSoftName & "%' AND Version <> '" & strVersion & "'")
For Each objItem in colItems
    'WScript.Echo objItem.IdentifyingNumber
    WScript.Echo UninstallByGuid(objItem.IdentifyingNumber) 
Next
 
Function UninstallByGUID(sGUID)   
    Set oWMIroot = SWBemlocator.ConnectServer(strComputer,"root\CIMV2") 
    Set oWMIColl = oWMIroot.ExecQuery("Select * FROM Win32_Product Where IdentifyingNumber = '" & sGUID & "'") 
    For Each oWMIval In oWMIColl
        oWMIval.Uninstall() 
        UninstallByGUID = "Removal of " & oWMIval.Name & " complete (" & err.number & ")"
    Next 
    If UninstallByGUID = "" Then
        UninstallByGUID = "Application GUID not found."
    end if
End Function
 
msgbox ("All done")

Open in new window

0
 

Author Comment

by:geewizzz
ID: 24028979
Fantastic, tx for the quick response!
Nice script, very clean. I had figured it out last night but yours way better!
One issue I am having with it is some apps installs(Java) dont have 'Version' info. This uninstalled all versions of Java except the one I entered PLUS the one that doesnt have version info. I assume we would incorporate another line, something like ....
If Version = ""
then....

Any ideas?

FYI, I also have another question open - looking for a script that will delete a locked file???  500 pts and no one has solved it. I figure if a tool like 'Unlocker' can do it- why not a script???
0
 
LVL 14

Expert Comment

by:rejoinder
ID: 24054247
Thanks very much.
I will see what can be done about the version number issue.  I will get back to you soon.
Can you post the link to the other question and I will check it out.
0
 
LVL 14

Expert Comment

by:rejoinder
ID: 24054430
That might work.  The block of code would look like this...
For Each objItem in colItems
    if objItem.Version <> "" then
        'WScript.Echo objItem.IdentifyingNumber
        WScript.Echo UninstallByGuid(objItem.IdentifyingNumber)
    end if
Next
It would need testing at your end to see if it is giving you the desired results.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

687 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question