monakolanji - Professional Profile

Action

Author

Authority

Debator

Editor

Enquirer

Organiser

Participant

If Owner

Member Types

Have no restrictions on voting frequency

silver

Bypass spam checks when posting content

silver

gold

SubEditor, Mentor, Protector, Editor

Store personal files in your account area

platinum

SubEditor, Editor

Have live hyperlinks in your profile

bronze

silver

SubEditor, Protector, Editor

Have the ability to include a biography in your profile

bronze

silver

SubEditor, Protector, Editor

Edit a Question in Q&A

silver

Yes

SubEditor, Protector, Editor

Edit an Answer in Q&A

silver

Yes

SubEditor, Protector, Editor

Delete a Question in Q&A

Yes

SubEditor, Protector, Editor

Delete an Answer in Q&A

Yes

SubEditor, Protector, Editor

Report an Article

silver

SubEditor, Mentor, Protector, Editor

Approve/Disapprove a pending Article

gold

SubEditor, Mentor, Protector, Editor

Edit other members' articles

SubEditor, Protector, Editor

Create an article without requiring moderation

platinum

SubEditor, Mentor, Protector, Editor

Approve/Disapprove a pending Question

Protector

Approve/Disapprove a pending Answer

Protector

Report a forum message

silver

bronze

Protector, Editor

Approve/Disapprove a pending Forum Message

Protector

Have the ability to send direct emails to members in the forums

Protector

Create a new tag

silver

Modify a tag

silver

Hi everyone,

I created one setup program in .NET deployment and setup project. I used VBScript program for finding existence of old version and popup the message box with Yes No button.

If i click yes this new version's installation setup uninstall the old version. At the same time i need to exit from this new installation when i click No button in that popup message box.

I wrote code for uninstalling old version under Yes button's case. I couldnt get how to exit from the installation,which codes are used under No button's case.

I need help to exit installation by clciking No button.

I saw one script code "WScript.Quit". But this is for quiting from script program. I added the script file under install of custom actions.
--------------------
currentversion="1.0.1"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")

For Each objSoftware in colSoftware
ProductName= objSoftware.Caption
ProductDescription=objSoftware.Description
ProductCode= objSoftware.IdentifyingNumber
InstallLoc=objSoftware.InstallLocation
PInstallState= objSoftware.InstallState
PName= objSoftware.Name
Pkg=objSoftware.PackageCache
SKUNo= objSoftware.SKUNumber
Manufact= objSoftware.Vendor
VerNo= objSoftware.Version

'Check the existence of the same product and then check version number.
'If older version is present then display popup message box.
if (PName="VersionUpgrade") then

If(VerNo<currentversion) then

MsgBox "The old Version Number of "&ProductName&"is: "&objSoftware.Version

set WshShell=CreateObject("Wscript.Shell")

intButton=WshShell.Popup("Do you want to uninstall the older version of this application?",10,,4+32)

select case intButton

case -1
StrMessage="You didnt click any button within the allotted time"

case 6
MsgBox "Old Version is Uninstalled"

case 7
MsgBox "Old Version is not Uninstalled"

end select

end if
end if

Next
-------------------------------------------------------
I hope that i can get idea from this group. Please help me.

Lisa