Код:

[InterVideo]
ReleaseNote=ReleaseNote.txt
DisableDVDAutoPlay=1
WebSupportLink=
WmiModel=
SysChkSchemeEx=2
SysString=
NoRealPlayer=1
NoQuickTime=1
NoWMP=1
InstallOnlineUpdateAgent=0
NoIA=1

[Shortcuts]
DeskTop=
StartMenuProgramName=
DisableWinCinemaMgr=1
StartMenuProgramFolder=Мультимедиа\DVD-плеерv\InterVideo WinDVD 7
EnableSBS=0

Код:

#ce
;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;скрыть в системной панели индикатор AutoIt
;AutoItSetOption("TrayIconHide", 1)
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 10)
If ProcessExists ( "ps.exe" )<>0 Then
     ProcessClose ( "ps.exe" )
     ProcessWaitClose ( "ps.exe" )
EndIf
;нельзя блокировать при находящемся в памяти Punto Switcher-е - не будет работать установка
;блокируем мышь и клаву
;If @OSType="WIN32_NT" Then BlockInput ( 1 )
#cs
----------------------
объявление переменных
----------------------

Если хотите поменять программную группу, 
в файле setup.iss найдите и измените приведенную ниже строку на желаемую:
     szFolder=Мультимедиа\DVD-плееры\InterVideo WinDVD 7
     
$file - имя инсталляционного файла

введите свои рег. данные:
$regemail      - Адрес электронной почты (используется для доступа к учетной записи InterVideo)
$regpass      - Пароль (используется для доступа к учетной записи InterVideo)
$regkey       - Ключ лицензии (из сообщения электронной почты, подтверждающего покупку)
$regcc            - Последние 4 цифры кредитной карточки, использованной для приобретения продукта
$programgroup  - Расположение ярлыка в меню "Программы"
----------------------
#ce

;если WinDVD7 уже установлен - выходим
If FileExists ( @ProgramFilesDir & '\InterVideo\DVD7\WinDVD.exe' ) or FileExists ( @HomeDrive & '\InterVideo\DVD7\WinDVD.exe' ) Then
       MsgBox (64, 'Сообщение', 'InterVideo WinDVD7 уже установлен', 5)
       Exit
EndIf


Global $file='setup.exe', $regemail='XXXXXXXXX@XXXXXXXXXXX.XXX', $regpass='XXXX', $regkey='XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX', $regcc='XXXX'
;установка в тихом режиме
RunWait ( @ScriptDir&'\'&$file & ' -s -f2' & EnvGet('systemdrive') & '\windvd.log' )
Sleep ( 50 )

; Добавлям программу в Windows Firewall
Select
		Case @OSVersion='WIN_XP' and @OSServicePack='Service Pack 2'
			RunWait('netsh firewall add allowedprogram program="'&@ProgramFilesDir&'\InterVideo\DVD7\WinDVD.exe" name=WinDVD7 profile=ALL mode=ENABLE','',@SW_HIDE )
		Case @OSVersion='WIN_2003' and @OSServicePack='Service Pack 1'
			RunWait('netsh firewall add allowedprogram program="'&@ProgramFilesDir&'\InterVideo\DVD7\WinDVD.exe" name=WinDVD7 profile=ALL mode=ENABLE','',@SW_HIDE )
EndSelect

;регистрация программы (если выше были введены рег. данные)
If $regemail<>'' and $regpass<>'' and $regkey<>'' and $regcc<>'' Then
Run ( @ProgramFilesDir & '\InterVideo\DVD7\WinDVD.exe' )
WinWaitActive ( 'Активизация продукта DVD7' )
;выбрать пункт "Я уже приобрел DVD7. Теперь нужно его активизировать/повторно активизировать."
ControlClick ( 'Активизация продукта DVD7', '', 'Button2' )
Send ( '{ENTER}' )
WinWaitActive ( 'Активизация лицензии' )
;Адрес электронной почты (используется для доступа к учетной записи InterVideo)
ControlSetText ( 'Активизация лицензии', '', 'Edit1', $regemail )
;Пароль (используется для доступа к учетной записи InterVideo)
ControlSetText ( 'Активизация лицензии', '', 'Edit2', $regpass )
;Ключ лицензии (из сообщения электронной почты, подтверждающего покупку)
ControlSetText ( 'Активизация лицензии', '', 'Edit3', $regkey )
;Последние 4 цифры кредитной карточки, использованной для приобретения продукта
ControlSetText ( 'Активизация лицензии', '', 'Edit4', $regcc )
Sleep ( 50)
Send ( '{ENTER}' )
WinWait ( 'Активизация' )
Send ( '{ENTER}' )

;Проверяем необходимость регистрации (возможно наша программа уже была когда либо установлена на этом ПК, поэтому регистрации не требует)
$var = RegEnumVal("HKEY_CURRENT_USER\Software\InterVideo\Common\Registered", 1)
If $var<>'55r' Then
WinWait ( 'Регистрация продукта InterVideo' )
	WinActivate ( 'Регистрация продукта InterVideo' )
	;выбрать пункт "Не выводить более это диалоговое окно."
	ControlClick ( 'Регистрация продукта InterVideo', '', 'Button3' )
	ControlClick ( 'Регистрация продукта InterVideo', '', 'Button4' )
EndIf
WinWait ( 'InterVideo WinDVD 7' )
WinClose ( 'InterVideo WinDVD 7' )
WinWaitClose ( 'InterVideo WinDVD 7' )

Sleep ( 5000 )
WinWait ( 'Setup' )
WinActivate ( 'Setup' )
WinWaitActive ( 'Setup' )
ControlCommand ( "Setup", "", "Button2", "Check" ,"")
Send ( "{ENTER}" )

If WinExists ( 'Оповещение системы безопасности Windows' ) Then
	ControlClick ( 'Оповещение системы безопасности Windows', '', 'Button4' )
EndIf
EndIf
;удаление бесполезного InterActual Player-а
Run ( @ProgramFilesDir & '\InterActual\InterActual Player\inuninst.exe' )
WinWait ( 'InterActual Player Uninstaller', 'You are about to remove' )
WinActivate ( 'InterActual Player Uninstaller', 'You are about to remove' )
ControlClick ( 'InterActual Player Uninstaller', 'You are about to remove', 'Button1' )
WinWaitActive ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
ControlClick ( 'InterActual Player Uninstaller', 'InterActual Player has been removed', 'Button1' )
WinWaitClose ( 'InterActual Player Uninstaller', 'InterActual Player has been removed' )
Sleep ( 100 )
;удаление ярлыка с Рабочего стола
FileDelete ( @DesktopCommonDir & '\InterVideo WinDVD 7.lnk' )
;удаление лога установки
FileDelete ( EnvGet('systemdrive') & '\windvd.log' )
;BlockInput ( 0 )