;
; AutoCAD 2005

; Made up serial number used for example, you will need a bona fida serial. 
; This only installs AutoCAD 2005, it will still need activating after 30 days
; Shameless use of the VMWare AutoIT file and au3Recorder were used in parts of this file
; 

; User Var's
$SF_1 = "setup.exe"				;		  Setup File Name
$UR_1 = "111"					;		  User Registration Code Part 1
$UR_2 = "22222222"				;		  User Registration Code Part 2
$UR_3 = "Dipsy"					;		  User Registration Name
$UR_4 = "Clementine"			;		  User Registration Surname
$UR_5 = "Org"					;		  User Registration Organization
$UR_6 = "AutoDesk"				;		  User Registration Supplier
$UR_7 = "01132 2356 974"		;		  User Registration Phone No.


Run($SF_1)

; Welcome
WinWaitActive	( "AutoCAD 2005 Setup","will be prosecuted to the maximum extent possible under law" )
ControlClick	( "AutoCAD 2005 Setup","", "Button1" )

; License
WinWait("AutoCAD 2005 Setup","Country or region:")
WinWaitActive("AutoCAD 2005 Setup","Country or region:")
Sleep ( 5000 )
Send("{TAB}{TAB}{UP}{ENTER}")

; Serial
WinWait("AutoCAD 2005 Setup","If you have already ")
WinWaitActive("AutoCAD 2005 Setup","If you have already ")
Sleep		( 1550 )
SEND		( $UR_1 )
Sleep		( 250 )
SEND		( $UR_2 )
ControlClick	( "AutoCAD 2005 Setup", "", "Button1" )

; User Information
WinWait("AutoCAD 2005 Setup","Enter your personal ")
WinWaitActive("AutoCAD 2005 Setup","Enter your personal ")
Sleep		( 1250 )
SEND		( $UR_3  )
SEND		("{TAB}")
SEND		( $UR_4  )
SEND		("{TAB}")
SEND		( $UR_5  )
SEND		("{TAB}")
SEND		( $UR_6  )
SEND		("{TAB}")
SEND		( $UR_7  )
SEND		("{TAB}")

ControlClick	( "AutoCAD 2005 Setup", "", "Button4" )

; Installaton Type
WinWait("AutoCAD 2005 Setup","Use default settings")
WinWaitActive("AutoCAD 2005 Setup","Use default settings")
Send("{ENTER}")

; Destination Folder
WinWait("AutoCAD 2005 Setup","Select the destinati")
WinWaitActive("AutoCAD 2005 Setup","Select the destinati")
Send("{ENTER}")

; Options
WinWait("Options","Choose a default tex")
WinWaitActive("Options","Choose a default tex")
Send("{ENTER}")

; Install
WinWait("AutoCAD 2005 Setup","Are you ready to beg")
WinWaitActive("AutoCAD 2005 Setup","Are you ready to beg")
Send("{ENTER}")

; Install Ends
WinWait("AutoCAD 2005 Setup","&Yes, I want to view")
WinWaitActive("AutoCAD 2005 Setup","&Yes, I want to view")
ControlClick	( "AutoCAD 2005 Setup", "", "Button1" )
Sleep(1000)
Send("{ENTER}" ) 

Exit


