AutoDesk 2013 Uninstall Suite

AutoDesk 2013 Uninstall Routine

Step 1

AutoDesk has published an uninstall tool to scrub the system clean of any Autodesk entries. If you copy the folder from the location below, it is possible to run this program across the network and uninstall all of the AutoDesk products.

"...\AdminImage\x64\en-us\support\SuiteUninstaller\Program Files\Autodesk\Factory Design Suite 2013\Suite Uninstaller"

Place this in a network location that is easily accessible on the network. In my situation, I created an a shortcut to the program and gave it a name of "1 - Uninstall 2013 Suite Uninstaller" to indicate that it's step 1.

Step 2

Download the ADSUninstallTool.exe from AutoDesk to remove any additional components of AutoDesk that might still be installed on the system.

http://knowledge.autodesk.com/support/autocad-design-suite/troubleshooting/caas/sfdcarticles/sfdcarticles/How-to-perform-an-automated-uninstall-of-the-AutoCAD-Design-Suite-2013-family-of-products-s.html

Place this in a network location that is easily accessible on the network. In my situation, I created an a shortcut to the program and gave it a name of "2 - Uninstall 2013 Autodesk Design tool" to indicate that it's step 2.

Step 3 

I wrote a VB.Net 2012 program to go out and remove any folders and registry entries that were left behind that the uninstall tool failed to remove.

[CODE BEGIN]
Private Sub btnCleanFolders_Click(sender As Object, e As EventArgs) Handles btnCleanFolders.Click
        'REMOVE AUTODESK DIRECTORIES
        'HAD TO USE SHELL with cmd.exe /c since VB.NET directorydelete function had trouble with hidden and system folders
        'MsgBox("Ensure All AutoDesk Programs have been Uninstalled through Add/Remove Programs First")
        Dim shellpath As String

        If Directory.Exists("C:\Program Files\Autodesk\") Then
            'deleteWindowsDirectory("C:\Program Files\Autodesk\")
            'My.Computer.FileSystem.DeleteDirectory("C:\Program Files\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
            shellpath = "cmd.exe /c rd /s /q ""C:\Program Files\Autodesk\"" "
            Shell(shellpath)
        End If

        'If Directory.Exists("C:\ProgramData\Autodesk\") Then
        '    'deleteWindowsDirectory("C:\ProgramData\Autodesk\")
        '    'My.Computer.FileSystem.DeleteDirectory("C:\ProgramData\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
        Shell("cmd.exe /c rd /s /q ""C:\ProgramData\Autodesk\"" ")

        'End If

        'If Directory.Exists("C:\Program Files (x86)\Autodesk\") Then
        '    'deleteWindowsDirectory("C:\Program Files (x86)\Autodesk\")
        '    'My.Computer.FileSystem.DeleteDirectory("C:\Program Files (x86)\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
        Shell("cmd.exe rd /s /q ""c:\program files (x86)\autodesk\"" ")
        'End If

        'If Directory.Exists("C:\Users\All Users\Autodesk\") Then
        '    'deleteWindowsDirectory("C:\Users\All Users\Autodesk\")
        '    'My.Computer.FileSystem.DeleteDirectory("C:\Users\All Users\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
        Shell("cmd.exe /c rd /s /q ""C:\Users\All Users\Autodesk\"" ")
        'End If

        'If Directory.Exists("C:\Users\%username%\AppData\Roaming\Autodesk\") Then
        '    'deleteWindowsDirectory("C:\Users\%username%\AppData\Roaming\Autodesk\")
        '    'My.Computer.FileSystem.DeleteDirectory("C:\Users\%username%\AppData\Roaming\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
        Shell("cmd.exe /c rd /s /q ""C:\Users\%username%\AppData\Roaming\Autodesk\"" ")
        'End If

        'If Directory.Exists("C:\Users\%username%\AppData\Local\Autodesk\") Then
        '    'DeleteAllFilesInFolder("C:\Users\%username%\AppData\Local\Autodesk\")
        Shell("cmd.exe /c rd /s /q ""C:\Users\%username%\AppData\Local\Autodesk\"" ")
        'End If

        'If Directory.Exists("C:\Users\Public\Public Documents\Autodesk") Then
        '    'deleteWindowsDirectory("C:\Users\Public\Public Documents\Autodesk")
        '    'My.Computer.FileSystem.DeleteDirectory("C:\Users\All Users\Autodesk\", FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.DeletePermanently)
        Shell("cmd.exe rd /s /q ""C:\Users\Public\Public Documents\Autodesk"" ")

        'End If

        txtRemoveFolders.BackColor = Color.LightGreen
        txtRemoveFolders.Text = "Done"
    End Sub

rivate Sub btnCleanRegistry_Click(sender As Object, e As EventArgs) Handles btnCleanRegistry.Click

        If Registry.LocalMachine.OpenSubKey("Software\Autodesk", True) Is Nothing Then
            'Registry Key does not exist
        Else
            'Registry Key does exist
            'Delete the Registry Key
            Registry.LocalMachine.DeleteSubKeyTree("Software\Autodesk")
        End If

        If Registry.CurrentUser.OpenSubKey("Software\Autodesk", True) Is Nothing Then

        Else
            Registry.CurrentUser.DeleteSubKeyTree("Software\Autodesk")
        End If

        If Registry.LocalMachine.OpenSubKey("Software\Wow6432Node\Autodesk", True) Is Nothing Then

        Else
            Registry.LocalMachine.DeleteSubKeyTree("Software\Wow6432Node\Autodesk")
        End If

        If Registry.LocalMachine.OpenSubKey("Software\Autodesk, Inc.", True) Is Nothing Then
        Else
            Registry.LocalMachine.DeleteSubKeyTree("Software\Autodesk, Inc.")
        End If

        If Registry.CurrentUser.OpenSubKey("Software\Autodesk, Inc.", True) Is Nothing Then

        Else
            Registry.CurrentUser.DeleteSubKeyTree("Software\Autodesk, Inc.")
        End If

        txtCleanRegistry.BackColor = Color.LightGreen
        txtCleanRegistry.Text = "Done"

    End Sub

[CODE END]