Hello folks,

I am looking for a VB script that checks for certain applications through the registry and if it finds them, removes them...

Your help would be greatly appreciated...

Regards,
RePackman
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0
http://itninja.com/question/distribution-message556
That might be along the lines of what you seek.
Answered 08/15/2011 by: cblake
Red Belt

Please log in to comment
0
Here's what I am doing:

I am installing 5 applications with revisions...What I want to do is have the script uninstall using the GUID then reinstall the same apps with the revisions in them...I have the revision install working through the script...What I want is the script to check for the said apps installed and if it finds them, uninstalls them, and if it doesn't find them, then just move on to install them...
Answered 08/15/2011 by: Repackman
Purple Belt

Please log in to comment
0
You not thought of using the Upgrade table to achieve this?
Answered 08/16/2011 by: captain_planet
Third Degree Brown Belt

Please log in to comment
0
What am I missing here? It uninstalls previous versions just fine but pisses out when reinstalling...Am I missing something here?

Sub Main()
' Get current location Path
Dim strCurrentPath : strCurrentPath = GetCurrentFolder()

Dim blnReturn : blnReturn = CheckProductInstallState(strOldProductCode)
If blnReturn Then
strcode = UnInstallProductWithPrductCode(strOldProductCode) : CheckErrorLogEvent strcode , "UnInstall: " & strOldProductName
End If

blnReturn = ""
blnReturn = CheckProductInstallState(strDistillrProductCode)
If blnReturn Then
strcode = UnInstallProductWithPrductCode(strDistillrProductCode) : CheckErrorLogEvent strcode , "UnInstall: " & strDistillrProductName
End If

blnReturn = ""
blnReturn = CheckProductInstallState(strPPCMgrProductCode)
If blnReturn Then
strcode = UnInstallProductWithPrductCode(strPPCMgrProductCode) : CheckErrorLogEvent strcode , "UnInstall: " & strPPCMgrProductName
End If

blnReturn = ""
blnReturn = CheckProductInstallState(strNSEXSetupProductCode)
If blnReturn Then
strcode = UnInstallProductWithPrductCode(strNSEXSetupProductCode) : CheckErrorLogEvent strcode , "UnInstall: " & strNSEXProductName
End If


' Install 503920_w01.msi
strcode = InstallProductWithTransform(strCurrentPath & Chr(92) & strNewProductMSI, strNewProductMST) : CheckErrorLogEvent strcode , "Install: 503920_w01.msi"

' Install Distillr.msi
strcode = InstallProductWithTransform(strCurrentPath & Chr(92) & strDistillrMSI, strDistillrMST) : CheckErrorLogEvent strcode , "Install: Distillr.msi"

' Install ProductPointClientManager.msi
strcode = InstallProductWithTransform(strCurrentPath & Chr(92) & strPPCMgrMSI, strPPCMgrMST) : CheckErrorLogEvent strcode , "Install: ProductPointClientManager.msi"

' Install NSEXSetup.msi
strcode = InstallProductWithTransform(strCurrentPath & Chr(92) & strNSEXSetupMSI, strNSEXSetupMST) : CheckErrorLogEvent strcode , "Install: NSEXSetup.msi"

' Install exceladdin_en-us.msi
strcode = InstallProductWithTransform(strCurrentPath & Chr(92) & strexceladdinMSI, strexceladdinMST) : CheckErrorLogEvent strcode , "Install: exceladdin_en-us.msi"
End Sub
Answered 08/16/2011 by: Repackman
Purple Belt

Please log in to comment
0
Through my crystal ball, I see..............bugger! Nothing!

It's no good. You're going to have to tell us: does the 'InstallProductWithTransform' function include verbose logging in its command line? If it doesn't, no-one will have the first clue as to what failed. If it does, fancy sharing the relevant part of the log with us?
Answered 08/16/2011 by: VBScab
Red Belt

Please log in to comment
0
It's done...I was missing a very minor thing...An Argument of all things...

Thanks for your replies guys...Appreciate it...
Answered 08/17/2011 by: Repackman
Purple Belt

Please log in to comment
Answer this question or Comment on this question for clarity