Назад | Перейти на главную страницу

Тихо удалите с помощью msiexec, не закрывая explorer.exe

Я пытаюсь использовать программу удаления msi для удаления Inventor 2011, но при этом незаметно для этого проводник закрывается, а не перезапускается. У меня есть сценарий VB от Autodesk, который будет работать, однако он не молчит даже после внесения в него соответствующих изменений. Я хотел бы получить тихую деинсталляцию, которая не закроет проводник и не дождется перезагрузки. Как я могу это сделать?

Ниже представлен сценарий VBScript от AutoDesk.

    '============================================================================
    '  Uninstall_ACAD_2011.vbs
    '  This script is designed to uninstall AutoCAD 2011 and remove installed plug-ins
    '
    '  Copyright © 2010 by Autodesk, Inc. All Rights Reserved.                            
    '
    '  You are hereby granted permission to use, copy and modify this    
    '  software without charge, provided you do so exclusively for       
    '  your own use or for use by others in your organization in the     
    '  performance of their normal duties, and provided further that     
    '  the above copyright notice appears in all copies and both that    
    '  copyright notice and the limited warranty and restricted rights   
    '  notice below appear in all supporting documentation.              
    '                                                                    
    '  Incorporation of any part of this software into other software,   
    '  except when such incorporation is exclusively for your own use    
    '  or for use by others in your organization in the performance of   
    '  their normal duties, is prohibited without the prior written      
    '  consent of Autodesk, Inc.                                         
    '                                                                    
    '  Copying, modification and distribution of this software or any    
    '  part thereof in any form except as expressly provided herein is   
    '  prohibited without the prior written consent of Autodesk, Inc.    
    '                                                                    
    '  AUTODESK PROVIDES THIS SOFTWARE "AS IS" AND WITH ALL FAULTS.      
    '  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF           
    '  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK,       
    '  INC. DOES NOT WARRANT THAT THE OPERATION OF THE SOFTWARE          
    '  WILL BE UNINTERRUPTED OR ERROR FREE.                              
    '                                                                    
    '  Restricted Rights for US Government Users.  This software         
    '  and Documentation are provided with RESTRICTED RIGHTS for US      
    '  US Government users.  Use, duplication, or disclosure by the      
    '  Government is subject to restrictions as set forth in FAR         
    '  12.212 (Commercial Computer Software-Restricted Rights) and       
    '  DFAR 227.7202 (Rights in Technical Data and Computer Software),   
    '  as applicable.  Manufacturer is Autodesk, Inc., 111 McInnis       
    '  Parkway, San Rafael, California 94903.                            
    '
    '============================================================================

    Option Explicit
    On Error Resume Next 

    dim bProdFound, b64bitOS, bRemovePlugins
    dim strInstallFolder, strProductName, strMainProductName
    dim strTitle, strMsg
    dim languageCode, languageAbbv
    dim heroProductPrefix, heroProductSuffix
    dim objShell
    dim intMsgRet

    dim x64products(4)
    dim x86products(4)

    const HKEY_CURRENT_USER = &H80000001
    const HKEY_LOCAL_MACHINE = &H80000002

    '============================================================================
    ' set the GUID prefix and suffix for the main product being uninstalled
    heroProductPrefix = "{7F4DD591-1564"
    heroProductSuffix = "7107D70F3DB4}"

    ' set the product language code and abbreviation
    ' English
    languageCode = "409"
    languageAbbv = "enu"

    '============================================================================
    ' initialize the arrays with the GUIDs and names for all products we may need to uninstall

    ' AutoCAD 2011 English (x64)
    x64products(0) = heroProductPrefix & "-0" & languageCode & "-0000-" & heroProductSuffix
    ' AutoCAD 2011 English language pack (x64)
    x64products(1) = heroProductPrefix & "-0" & languageCode & "-1102-" & heroProductSuffix
    ' AutoCAD 2011 Subscription Advantage Pack (x64)
    x64products(2) = "{ADF5CB42-ACFD-41EF-0133-871E54505C1D}"
    ' AutoCAD WS plug-in for AutoCAD 2011 (x64)
    x64products(3) = "{BF780694-C47E-4122-0196-B89B22F3387C}"
    ' AutoCAD 2011 VBA Enabler (x64)
    x64products(4) = "{68519E09-4927-46AE-01E2-8D60D0CF41BC}"

    ' AutoCAD 2011 English (x86)
    x86products(0) = heroProductPrefix & "-0" & languageCode & "-0002-" & heroProductSuffix
    ' AutoCAD 2011 English language pack (x86)
    x86products(1) = heroProductPrefix & "-0" & languageCode & "-1002-" & heroProductSuffix
    ' AutoCAD 2011 Subscription Advantage Pack (x86)
    x86products(2) = "{42E572CC-6D4C-4A3E-B937-7594D36B2B44}"
    ' AutoCAD WS plug-in for AutoCAD 2011 (x86)
    x86products(3) = "{B96F1390-23DD-4002-B183-EF0560D784E9}"
    ' AutoCAD 2011 VBA Enabler (x86)
    x86products(4) = "{ED7DFC69-2B9A-4A1F-9F50-8AB89B688EBA}"

    'initialize status variants
    bProdFound = False
    b64bitOS = False
    bRemovePlugins = False

    ' start by determing if we have a valid product installed
    Set objShell = CreateObject("Wscript.Shell")

    ' look for the x64 version first
    bProdFound = getProductInfo(x64products(0), False)
    b64bitOS = bProdFound
    ' if we didn't find it, look for the x86 version
    if bProdFound = False then
       bProdFound = getProductInfo(x86products(0), False)
    end if

    ' if we found an installed product, report it and get uninstall confirmation
    if bProdFound then
       strTitle = "AutoCAD 2011 Uninstall Script"
       strMainProductName = strProductName

       ' get approval to uninstall AutoCAD
       intMsgRet = uninstallACAD2011WarningMsg()
       ' if the user approved uninstall, proceed
       if intMsgRet = vbYes Then
          ' get approval to uninstall plugins
          intMsgRet = uninstallPluginsWarningMsg()

          ' if the user did not cancel the whole operation, proceed
          if intMsgRet <> vbCancel then
             if intMsgRet = vbYes Then
                bRemovePlugins = True
             end if

             if b64bitOS = True then
                uninstallProducts(x64products)
             else
                uninstallProducts(x86products)
             end if

             deleteProductFolders()    
             deleteProductRegKeys()

             strMsg = strMainProductName & " Uninstall Complete." & Vbcrlf & Vbcrlf & _
                      "We recommend restarting your system to help ensure complete cleanup."

             intMsgRet = msgbox(strMsg, vbOkonly+VBExclamation, strTitle)
          end if
       end  if
    Else
       strMsg = "No installation of AutoCAD 2011 was found."
       intMsgRet = msgbox(strMsg, vbOkonly+VBExclamation, strTitle)
    end if

    '============================================================================
    ' uninstall each product code it finds
    '============================================================================
    function uninstallProducts(aProductList)
       dim pos, retVal
       dim installer : Set installer = nothing
       dim strGUID, strModuleName 
       Const msiUILevelNone = 2         '/qn
       Const msiUILevelHideCancel = 32   '/!
       Const msiInstallStateAbsent = 2

       On Error Resume Next 
       Err.Clear

       Set installer = CreateObject("WindowsInstaller.Installer")
       installer.UILevel = msiUILevelNone

       for pos = 0 to UBound(aProductList)
          strGUID = aProductList(pos)
          retVal = getProductInfo(strGUID, True)
          if retVal = True then
             strModuleName = strProductName

             if installer.productstate (strGUID) > 0 Then
                ' if the user did not approve removal of plug-ins, bail
                if pos > 1 and bRemovePlugins = False then
                   Exit For
                end If

                'WScript.Echo "Uninstalling " & strGUID & Vbcrlf & Vbcrlf & strModuleName

                installer.ConfigureProduct strGUID, 65535, msiInstallStateAbsent

                if Err.Number <> 0 then
                   WScript.Echo "Error uninstalling " & strModuleName & Vbcrlf & Vbcrlf & _
                                "Error: " & Err.Number & " - " & Err.Description
                   Err.Clear
                Else
                   'WScript.Echo "Uninstalled " & strModuleName
                end if
             end if
          end if
       next

       set installer = Nothing
    end function

    '============================================================================
    ' delete folders
    '============================================================================
    function deleteProductFolders()    
       dim pos
       dim loopCtr
       dim sUsrProfile
       dim productFolders(6)
       dim objFileSys

       On Error Resume Next        

       Set objFileSys = CreateObject("Scripting.FileSystemObject")
       'Expand Environment
       sUsrProfile = objShell.ExpandEnvironmentStrings("%UserProfile%")

       ' actual installation location as retrieved from registry
       productFolders(0) = strInstallFolder
       ' windows vista/win7 related AutoCAD program paths
       productFolders(1) = "C:\ProgramData\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv
       productFolders(2) = sUsrProfile & "\AppData\Local\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv
       productFolders(3) = sUsrProfile & "\AppData\Roaming\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv
       ' windows XP related AutoCAD program paths
       productFolders(4) = sUsrProfile & "\Application Data\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv
       productFolders(5) = sUsrProfile & "\Local Settings\Application Data\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv
       productFolders(6) = "C:\Documents and Settings\All Users\Application Data\Autodesk\AutoCAD 2011\R18.1\" & languageAbbv

       Err.Clear

       for pos = 0 to UBound(productFolders)
          loopCtr = 0 
          ' delete the folder within a 30-second loop to account for system lock issues
          do While objFileSys.FolderExists(productFolders(pos)) And loopCtr < 6
             objFileSys.DeleteFolder productFolders(pos), True
             if Err.Number <> 0 then
                WScript.Echo "Folder not deleted: " & productFolders(pos) & Vbcrlf & Vbcrlf & _
                             "Error: " & Err.Number & " - " & Err.Description
                Err.Clear
                WScript.Sleep 5000 ' sleep 5 seconds
                loopCtr = loopCtr + 1 
             Else
                'WScript.Echo "Folder deleted: " & productFolders(pos)
             end if
          Loop 
       next

       Set objFileSys = Nothing
    end function

    '============================================================================
    ' delete registry keys for the specific installed product and language
    '============================================================================
    function deleteProductRegKeys()
       dim pos
       dim HKCURegKeys(3)
       dim HKLMRegKeys(3)

       HKCURegKeys(0) = "Software\Autodesk\AutoCAD\R18.1\ACAD-9001:" & languageCode
       HKCURegKeys(1) = "Software\Autodesk\AutoCAD\R18.1\AutoCAD 2011 Subscription Advantage Pack"
       HKCURegKeys(2) = "Software\Autodesk\AutoCAD\R18.1\AutoCAD 2011 VBA Enabler"
       HKCURegKeys(3) = "Software\Autodesk\AutoCAD\R18.1\AutoCAD WS plug-in for AutoCAD 2011"

       HKLMRegKeys(0) = "Software\Autodesk\AutoCAD\R18.1\ACAD-9001:" & languageCode
       ' the following modules are English-only so the language code is hard-coded
       HKLMRegKeys(1) = "Software\Autodesk\AutoCAD 2011 Subscription Advantage Pack:409"
       HKLMRegKeys(2) = "Software\Autodesk\AutoCAD 2011 VBA Enabler:409"
       HKLMRegKeys(3) = "Software\Autodesk\AutoCAD WS plug-in for AutoCAD 2011:409"

       ' delete the AutoCAD product reg keys
       deleteRegKey HKEY_CURRENT_USER, HKCURegKeys(0)
       deleteRegKey HKEY_LOCAL_MACHINE, HKLMRegKeys(0)
       ' delete the AutoCAD EULA reg key
       deleteRegKey HKEY_LOCAL_MACHINE, "Software\Autodesk\AutoCAD 2011 - English"

       if bRemovePlugins then
          for pos = 1 to UBound(HKCURegKeys)
             deleteRegKey HKEY_CURRENT_USER, HKCURegKeys(pos)
             deleteRegKey HKEY_LOCAL_MACHINE, HKLMRegKeys(pos)
          next
       end if
    end function

    '============================================================================
    ' delete registry key
    '============================================================================
    sub deleteRegKey(rootKey, delKey)
       dim strComputer, strRootKey
       dim objRegistry : set objRegistry = Nothing
       strComputer = "."

       On Error Resume Next 
       Err.Clear

       if rootKey = HKEY_CURRENT_USER then
          strRootKey = "HKCU\"
       else
          strRootKey = "HKLM\"
       end if

       Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
        strComputer & "\root\default:StdRegProv")

       if regKeyFound(strRootKey & delKey & "\") Then        
          objRegistry.DeleteKey rootKey, delKey
          if Err.Number <> 0 then
             WScript.Echo "DeleteKey failed: " & delKey & Vbcrlf & Vbcrlf & _
                          "Error: " & Err.Number & " - " & Err.Description
             Err.Clear
          else
             'Wscript.Echo "Deleted: " & strRootKey & delKey
          End If
       Else
          'WScript.Echo "Key not found: " & strRootKey & delKey    
       End If

       Set objRegistry = Nothing
    end sub

    '============================================================================
    ' search for installed product and get the installation folder and name
    '============================================================================
    function getProductInfo(prodCode, bNameOnly)
       dim strKeyPath, strValueName, strComputer
       dim objRegistry : set objRegistry = Nothing
       strComputer = "."

       Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
        strComputer & "\root\default:StdRegProv")

       strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & prodCode

       ' determine if the product is installed
       if regKeyFound("HKLM\" & strKeyPath & "\") Then        
          ' Get the name of the product being uninstalled
          strValueName = "DisplayName"
          objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strProductName

          if bNameOnly = False then
             strKeyPath = "SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:" & languageCode

             if regKeyFound("HKLM\" & strKeyPath & "\") Then        
                ' Get the actual installation location before uninstalling
                strValueName = "AcadLocation"
                objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strInstallFolder
             End If
          end if

          getProductInfo = True    
       Else
          getProductInfo = False
       End If

       Set objRegistry = Nothing
    end function

    '============================================================================
    ' returns true if a registry key exists
    '============================================================================
    function regKeyFound(regkey)
       Dim retVal
       On Error Resume Next    
       Err.Clear
       retVal = objShell.RegRead(regkey)    
       if Err.Number <> 0 then
          'WScript.Echo "Error reading key: " & regkey & Vbcrlf & Vbcrlf & _
          '             "Error: " & hex(Err.Number) & " - " & Err.Description
          Err.Clear
          regKeyFound = False
       else
          regKeyFound = True    
       End If
    end function

    '============================================================================
    ' display the initial warning message and get OK to continue
    '============================================================================
    function uninstallACAD2011WarningMsg()
       dim strMsg

       strMsg = "WARNING!" & Vbcrlf & Vbcrlf & _
                strMainProductName & " is currently installed at" & Vbcrlf & _
                strInstallFolder & Vbcrlf & Vbcrlf & _
                "This script will remove " & strMainProductName & " and related folders and registry keys from your computer." & Vbcrlf & Vbcrlf & _
                "This script should be run an as Administrator and we strongly recommend backing up any custom files before proceeding." & Vbcrlf & Vbcrlf & _
                "Do you want to continue?"

       uninstallACAD2011WarningMsg = msgbox(strMsg, vbYesNo+VBExclamation, strTitle)
    end function

    '============================================================================
    ' get the OK to uninstall plug-ins
    '============================================================================
    function uninstallPluginsWarningMsg()
       dim strMsg

       strMsg = "This script can also remove the VBA Enabler," & Vbcrlf & _
                "Subscription Advantage Pack, and WS Plug-in." & Vbcrlf & Vbcrlf & _
                "These modules should NOT be uninstalled if they" & Vbcrlf & _
                "are shared by another AutoCAD installation." & Vbcrlf & Vbcrlf & _
                "Do you want to uninstall these modules?"

       uninstallPluginsWarningMsg = msgbox(strMsg, vbYesNoCancel+VBExclamation, strTitle)
    end function

Этот сценарий кажется полным излишеством для удаления приложения. Для простого удаления (без довольно сомнительно выглядящих записей сценария очистки выше) вы просто удаляете из командной строки с помощью msiexec.exe (макет GUID, используемый ниже):

msiexec.exe /X {00000000-0000-0000-0000-000000000000} /QN

Или вы можете удалить с помощью нескольких другой механизм удаления (эта ссылка также покажет вам, как найти правильный GUID для удаления). Если explorer.exe закрывается в конце, вы можете просто запустить его снова через тот же командный файл?