Automated uninstallation of AutoCAD with VBScript

This will completely remove AutoCAD 2011 and related plug-ins.

The VBScript will detect and uninstall 32-bit or 64-bit versions of English AutoCAD 2011 and language pack.  It will also provide the option to uninstall the following plug-ins (if found):

• AutoCAD 2011 Subscription Advantage Pack
• AutoCAD WS plug-in for AutoCAD 2011
• AutoCAD 2011 VBA Enabler

If you have multiple AutoCAD 2011-based products installed, these modules may be in use by more than just AutoCAD 2011.  Do not uninstall them if they could be in use elsewhere.

The VBScript will then remove folders and registry keys related to the uninstalled product and plug-ins.

See KB: TS16077500

'============================================================================
'  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 = "{5783F2D7-9001"
heroProductSuffix = "0060B0CE6BBA}"

' 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 & "-0102-" & 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 msiUILevelBasic = 3         '/qb
   Const msiUILevelHideCancel = 32   '/!
   Const msiInstallStateAbsent = 2

   On Error Resume Next 
   Err.Clear

   Set installer = CreateObject("WindowsInstaller.Installer")
   installer.UILevel = msiUILevelBasic + msiUILevelHideCancel

   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