VB.NET中调用MSI卸载软件的2个方法

最近在折腾组里面的那个破Lab,要自己写程序每天安装最新版本的build。而今天手头上没有任何任务,所以把用到的一些东西记下来以供今后参考。这篇日志来记录如何在.NET中卸载别的软件。

一、直接使用MSI安装包

  如果你知道MSI安装程序的路径,那么显然可以直接使用即可:

代码如下:

msiexec /x "C:Table Manager Clients.msi" /quiet /qn

/quiet参数表示自动卸载,/qn表示 显示任何UI。

  这个方法很简单,推荐使用。但是如果软件的版本不对,或者安装程序做得有问题(比如我们这做的一个奇葩安装程序),那么就不行了。

代码如下:

msiexec /Option <Required Parameter> [Optional Parameter]
   
Install Options
    </package | /i> <Product.msi>
        Installs or configures a product

 但是这个序列号是不定的,对于相同程序的不同版本,序列号也不一定相同(可能会生成一个新的序列号)。为了得到需要产品的序列号,就只能去查注册表了。

二、使用产品序列号卸载程序

  所有用MSI安装的程序都会记录在HKEY_LOCAL_MACHINE的SOFTWAREMicrosoftWindowsCurrentVersionInstallerUserDataS-1-5-18Products子健下。S-1-5-18是系统通用的用户,可能有其他的用户目录(比如我这有S-1-5-21-2109753547-707883502-1543859470-98763),应该是对应的在安装时不共享的那些程序。

 如上图,在Products键下有一大堆十六进制的数字。在数字下可能有InstallProperties子键(注意不是每一个都有),然后有DisplayName用于标识产品的名称,DisplayVersion用于显示版本号等等。我们只需要关注会用到的就行了,这里就只关注产品名称吧。

在左侧显示的数字并不是用于msi卸载的产品序列号。我们注意到有一个UninstallString属性,这个属性就是卸载这个程序的命令及参数:

代码如下:

MsiExec.exe /X{4B9E6EB0-0EED-4E74-9479-F982C3254F71}

那么,我们要做的很显然是搜索这些键,查找哪一个才是我们要卸载的产品,然后用UninstallString把它卸掉就行了。另外我们需要在参数上加上/quiet和/qn参数,这样就能实现自动卸载了。

代码如下:

Private Sub UninstallMsi(productName As String)
    Dim reg_path As String = "SOFTWAREMicrosoftWindowsCurrentVersionInstallerUserDataS-1-5-18Products"
 
    Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey(reg_path)
 
    For Each temp_key_name As String In key.GetSubKeyNames()
        Dim temp_key As RegistryKey = key.OpenSubKey(temp_key_name & "InstallProperties")
 
        If temp_key IsNot Nothing Then
            If temp_key.GetValue("DisplayName").ToString.Trim.ToLower = productName.Trim.ToLower Then
 
                Dim uninstall_string As String = temp_key.GetValue("UninstallString").ToString
 
                uninstall_string = uninstall_string.ToLower.Replace("msiexec.exe", "").Replace("msiexec", "").ToUpper
 
                uninstall_string = uninstall_string.Replace("/I", "/x")
                uninstall_string = uninstall_string.Replace("/i", "/x")
 
                uninstall_string &= " /quiet /qn"
 
                Console.WriteLine("Uninstalling product " & uninstall_string)
                LogDataAccess.InsertApplicationLog(TMConfigrationManager.GetConfig("ServerType"), _
                                                 "Uninstalling " & productName & """" & uninstall_string & """ ...")
 
                Dim proc_start_info As New ProcessStartInfo("msiexec", uninstall_string)
 
                Dim proc As Process = Process.Start(proc_start_info)
 
                If (proc IsNot Nothing) Then proc.WaitForExit()
                If proc.ExitCode <> 0 Then
                    Dim err_message As String = "Uninstall " & productName & " failed."
 
                    LogDataAccess.InsertApplicationLog(TMConfigrationManager.GetConfig("ServerType"), err_message)
                    Console.WriteLine(err_message)
                End If
 
                LogDataAccess.InsertApplicationLog(TMConfigrationManager.GetConfig("ServerType"), "Uninstall previous version of " & productName & " successful.")
 
                Exit Sub
            End If
        End If
    Next
 
    Dim message As String = "Cannot find " & productName & " registry entries. Do not need to uninstall."
 
    LogDataAccess.InsertApplicationLog(TMConfigrationManager.GetConfig("ServerType"), message)
    Console.WriteLine(message)
End Sub

.NET中访问注册表的类封装在Microsoft.Win32命名空间下,直接使用即可(主要使用RegistryKey类,RegisitryKey类似树形结构)。

  这就是实现自动卸载的代码(里面有一些与输出日志相关的代码,可以不用管它)。

  程序首先在Products键下搜索所有的产品,如果有InstallProperties子键,就匹配DisplayName是否与要卸载的程序相同,如果相同,就生成一个卸载的命令并启动一个新的进程进行卸载。

  如果卸载失败,msiexec会返回一个不为0的数值,此时我们将错误信息输出。(注意:还有两个数值表示卸载成功但是需要重启,请自行查找相关手册。)

(0)

相关推荐

  • VB.NET中调用MSI卸载软件的2个方法

    最近在折腾组里面的那个破Lab,要自己写程序每天安装最新版本的build.而今天手头上没有任何任务,所以把用到的一些东西记下来以供今后参考.这篇日志来记录如何在.NET中卸载别的软件. 一.直接使用MSI安装包 如果你知道MSI安装程序的路径,那么显然可以直接使用即可: 复制代码 代码如下: msiexec /x "C:Table Manager Clients.msi" /quiet /qn /quiet参数表示自动卸载,/qn表示 显示任何UI. 这个方法很简单,推荐使用.但是如果

  • 一个Js文件函数中调用另一个Js文件函数的方法演示

    我们知道,在html中,利用<script language="javascript" type="text/javascript" src="./script.js"></script>引入的两个js是不可以相互调用的.那么该如何解决呢?当然,你可以将代码通通copy过来,也许你并不喜欢这样. 例如有这样一个html,里面有一个按钮,当按下时调用b.js文件中的方法b().而b()中又要调用a.js文件中的方法a().若

  • python 在某.py文件中调用其他.py内的函数的方法

    假设名为A.py的文件需要调用B.py文件内的C(x,y)函数 假如在同一目录下,则只需 import B if __name__ == "__main__": B.C(x,y) 若只需调用单个函数,也可以 from B import C if __name__ == "__main__": C(x,y) 若A.py和B.py位于不同的目录下,可以用以下方法 (假设B.py位于D盘的根目录下) 1.引用所在路径 import sys sys.path.append(

  • 在多线程中调用winform窗体控件的实现方法

    本文实例讲述了在C#中实现多线程中调用winform窗体控件的方法,对于C#程序设计的学习有着很好的借鉴参考价值.具体方法如下: 首先,由于Windows窗体控件本质上不是线程安全的.因此如果有两个或多个线程适度操作某一控件的状态(set value),则可能会迫使该控件进入一种不一致的状态.还可能出现其他与线程相关的 bug,包括争用和死锁的情况.于是在调试器中运行应用程序时,如果创建某控件的线程之外的其他线程试图调用该控件,则调试器会引发一个 InvalidOperationExceptio

  • Node.js项目中调用JavaScript的EJS模板库的方法

    作为外部模块,调用的方法和mysql模块是相同的,不再赘述. ejs的render函数有两个参数 第一个是字符串,第二个是可选的对象,和其他javascript模版一样需要渲染的数据也是包含在option对象中的 ejs.render(str,option); // 渲染字符串 str 一般是通过nodejs文件系统的readfile方法读取 ejs.render(str,{ data : user_data // 需要渲染的数据 }); 当str字符串中没有包含 include 标签时,渲染数

  • Ruby中调用执行shell命令的6种方法

    碰到需要调用操作系统shell命令的时候,Ruby为我们提供了六种完成任务的方法: 1.Exec方法: Kernel#exec方法通过调用指定的命令取代当前进程例子: 复制代码 代码如下: $ irb       >> exec 'echo "hello $HOSTNAME"'          hello nate.local       $ 值得注意的是,exec方法用echo命令来取代了irb进程从而退出了irb.主要的缺点是,你无法从你的ruby脚本里知道这个命令是

  • linux ubuntu中安装、卸载和删除python-igraph的方法教程

    前言 最近在学习python-igraph,发现其实学习一种全新的语言看官方的文档是真的很有帮助,这次我的大部分python代码的完成都是靠着igraph官方的API文档. 官方API:http://pythonhosted.org/python-igraph/igraph.Graph-class.html 本文将给大家详细介绍关于在linux ubuntu安装.卸载和删除python-igraph的相关内容,分享出来供大家参考学习,下面话不多说了,来一起看看详细的介绍吧. 一.如何在Ubunt

  • C#中调用SAPI实现语音合成的2种方法

    我们都知道现在的语音合成TTS是可以通过微软的SAPI实现的,好处我就不多说了,方便而已,因为在微软的操作系统里面就自带了这个玩意,主要的方式有两种: 1.使用COM组件技术,不管是C++,C#,Delphi都能玩的转,开发出来的东西在XP和WIN7都能跑.(要引入SpeechLib,好像在项目上点引用,然后选到系统COM吧,好久没弄,记不清楚了) 2.使用WIN7的windows api,其实最终还是调用了SAPI,所以开发出来的东西就只能在WIN7上面跑. 其实不管是哪一种,都是调用SAPI

  • django小技巧之html模板中调用对象属性或对象的方法

    环境:依赖最初test2数据库 python3版本            多python版本环境 进入,python3虚拟环境,新建项目test4: ]# cd py3/django-test1/ ]# django-admin startproject test4 创建应用bookshop: ]# cd test4 ]# python manage.py startapp bookshop 修改settings.py主配置文件: ]# vim test4/settings.py ... #数据

  • python中快速进行多个字符替换的方法小结

    先给出结论: 要替换的字符数量不多时,可以直接链式replace()方法进行替换,效率非常高: 如果要替换的字符数量较多,则推荐在 for 循环中调用 replace() 进行替换. 可行的方法: 1. 链式replace() string.replace().replace() 1.x 在for循环中调用replace() 「在要替换的字符较多时」 2. 使用string.maketrans 3. 先 re.compile 然后 re.sub -- def a(text): chars = "

随机推荐