VBscript to deploy AutoCAD 2006 SP1 or the like

Here is a snippet of a VBScript that I used to install AutoCAD 2006 SP1:

on error resume next
Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Acad2006="HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:409\"
PN=""
PN = WshShell.RegRead(Acad2006 & "ProductName")
If fso.FolderExists("C:\Program Files\AutoCAD 2006") and PN="AutoCAD 2006" Then
  Release=""
  Release = WshShell.RegRead(Acad2006 & "Release")
  If Release="16.2.54.10" Then
    WshShell.Run """\\it.local\Acad2006\AutoCAD2006SP1.exe"" /q",1,true
  End if
End if