Uninstall software through VB scrips

Trying to uninstall a software with it instead of reaching out to add and
remove programs.

joseomjr
Fri Jul 07 14:15:12 CDT 2006

Was the software you're trying to remove installed via an MSI package
or some other?

Blenjar wrote:
> Trying to uninstall a software with it instead of reaching out to add and
> remove programs.

marci
Wed Jul 12 10:38:30 CDT 2006

I also have a need for an unistall script. My applications were
installed via a MSI and they do show in the Add/Remove programs list as
well as the Uninstall location in the registry. I wrote this but it
doesn't seem to work...so any help would be appreciated.

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

regUninstallString =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1912F734-6580-4620-EAFD-ECCCEA19CDE2}\UninstallString"
strUninstallString = WshShell.RegRead ( regUninstallString )

Dim objRun
Set objRun = WSHShell.Run( strUninstallString & " /SILENT /NORESTART",
1, true )

WScript.Quit


Thanks!

marci
Wed Jul 12 10:39:08 CDT 2006

I also have a need for an unistall script. My applications were
installed via a MSI and they do show in the Add/Remove programs list as
well as the Uninstall location in the registry. I wrote this but it
doesn't seem to work...so any help would be appreciated.

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

regUninstallString =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1912F734-6580-4620-EAFD-ECCCEA19CDE2}\UninstallString"
strUninstallString = WshShell.RegRead ( regUninstallString )

Dim objRun
Set objRun = WSHShell.Run( strUninstallString & " /SILENT /NORESTART",
1, true )

WScript.Quit


Thanks!

marci
Wed Jul 12 10:43:52 CDT 2006

I also have a need to remove software with a script. I have this
script but it doesn't seem to work. Applications were installed as
MSI.

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

regUninstallString =
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MsiExec.exe
/I{1912F734-6580-4620-8AFD-ECCCEA19CDE2}\UninstallString"
strUninstallString = WshShell.RegRead ( regUninstallString )

Dim objRun
Set objRun = WSHShell.Run( strUninstallString & " /SILENT /NORESTART",
1, true )

WScript.Quit

Any help would be appreciated!

joseomjr
Wed Jul 12 12:43:15 CDT 2006

marci,

in your case it would be something like this.

Dim objShell

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "msiexec.exe /x {1912F734-6580-4620-8AFD-ECCCEA19CDE2}
/quiet"

marci.smith@bmgch.com wrote:
> I also have a need to remove software with a script. I have this
> script but it doesn't seem to work. Applications were installed as
> MSI.
>
> Dim WSHShell
> Set WSHShell = WScript.CreateObject("WScript.Shell")
>
> On Error Resume Next
>
> regUninstallString =
> "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MsiExec.exe
> /I{1912F734-6580-4620-8AFD-ECCCEA19CDE2}\UninstallString"
> strUninstallString = WshShell.RegRead ( regUninstallString )
>
> Dim objRun
> Set objRun = WSHShell.Run( strUninstallString & " /SILENT /NORESTART",
> 1, true )
>
> WScript.Quit
>
> Any help would be appreciated!

marci
Thu Jul 13 11:12:43 CDT 2006

Thank you - that works perfectly!

joseomjr@gmail.com wrote:
> marci,
>
> in your case it would be something like this.
>
> Dim objShell
>
> Set objShell = WScript.CreateObject("WScript.Shell")
>
> objShell.Run "msiexec.exe /x {1912F734-6580-4620-8AFD-ECCCEA19CDE2}
> /quiet"
>
> marci.smith@bmgch.com wrote:
> > I also have a need to remove software with a script. I have this
> > script but it doesn't seem to work. Applications were installed as
> > MSI.
> >
> > Dim WSHShell
> > Set WSHShell = WScript.CreateObject("WScript.Shell")
> >
> > On Error Resume Next
> >
> > regUninstallString =
> > "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MsiExec.exe
> > /I{1912F734-6580-4620-8AFD-ECCCEA19CDE2}\UninstallString"
> > strUninstallString = WshShell.RegRead ( regUninstallString )
> >
> > Dim objRun
> > Set objRun = WSHShell.Run( strUninstallString & " /SILENT /NORESTART",
> > 1, true )
> >
> > WScript.Quit
> >
> > Any help would be appreciated!