'By Eric M. Bouse
'Tested on WinXP
'Problems on very very very slow machines

Option Explicit
Dim Shell, FSO, wdir
Set Shell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

wdir = Shell.ExpandEnvironmentStrings("%windir%")

FSO.CopyFile "N:\APPS\CARS\Quickmate 1.2H\qm1_2h.exe", "C:\"
FSO.CopyFolder "N:\APPS\New Software\Crt", "C:\"

Shell.Run "C:\qm1_2h.exe"
Wscript.Sleep 2000
Shell.AppActivate "QuickMate - Welcome"
Shell.SendKeys "~" 'Enter key

Wscript.Sleep 30000
Shell.AppActivate "Welcome"
Shell.SendKeys "~" 'Enter key
Shell.AppActivate "Setup Type"
Wscript.Sleep 2000
Shell.SendKeys "{DOWN}"
Shell.SendKeys "{DOWN}"
Shell.SendKeys "~" 'Enter key
Wscript.Sleep 2000
Shell.AppActivate "Choose Destination Location"
Shell.SendKeys "~" 'Enter key
Wscript.Sleep 2000
Shell.AppActivate "Select Program Folder"
Shell.SendKeys "~" 'Enter key
Wscript.Sleep 2000
Shell.AppActivate "Preserving Local Settings"
Shell.SendKeys "~" 'Enter key
Wscript.Sleep 2000
Shell.AppActivate "Start Copying Files"
Wscript.Sleep 2000
Shell.SendKeys "~" 'Enter key
Wscript.Sleep 15000
Shell.AppActivate "Setup Complete"
Shell.SendKeys "{TAB}"
Shell.SendKeys "%(A)"
Shell.SendKeys "{TAB}"
Wscript.Sleep 2000
Shell.SendKeys "~" 'Enter key

Wscript.Sleep 5000
Shell.AppActivate "QuickMate Configuration Wizard"
Shell.SendKeys "%(D)"
Shell.SendKeys "~" 'Enter key

Wscript.Sleep 2000
Shell.AppActivate "Configure Authorized Hosts"
Shell.SendKeys "%(C)"
Shell.SendKeys "172.16.1.2"
Shell.SendKeys "%(A)"
Shell.SendKeys "%(O)"
Shell.SendKeys "~" 'Enter key

Wscript.Sleep 2000
Shell.AppActivate "Configure Helper Applications"
Shell.SendKeys "%(C)"
Shell.SendKeys "%(L)"
Shell.SendKeys "{DOWN}"
Shell.SendKeys "C:\Crt\Crt.exe"
Shell.SendKeys "%(A)"
Shell.SendKeys "/S 172.16.1.2"
Shell.SendKeys "%(E)"
Shell.SendKeys "{DOWN}"
Shell.SendKeys "%(L)"
Shell.SendKeys "{DOWN}"
Shell.SendKeys wdir & "\notepad.exe"
Shell.SendKeys "%(O)"

Wscript.Sleep 2000
Shell.AppActivate "Configure Look and Feel Options"
Shell.SendKeys "~" 'Enter key

Wscript.Sleep 2000
Shell.AppActivate "Configure Path Locations"
Shell.SendKeys "%(N)"
Shell.SendKeys "%(N)"

Wscript.Sleep 2000
Shell.AppActivate "Configuration Finished"
Shell.SendKeys "%(E)"
Shell.SendKeys "%(F)"

Wscript.Sleep 2000
FSO.DeleteFile "C:\qm1_2h.exe"

FSO.CopyFile "C:\Documents and Settings\All Users\Start Menu\Programs\CIS EdVanta\Quickmate.lnk", _
"C:\Documents and Settings\All Users\Desktop\"

Wscript.Quit