Yulia Цитата: в принципе нашла выход - обновляю flash player с помощью psexec
Это не выход, а обходное решение. Обновлять Adobe Reader и Flash Player очень важно, ибо дыры. Если есть понимание VBS, посмотрите мой [more=скрипт, для применения на компьютер через GPO.]'Скрипт для установки Adobe Acrobat 9, с mst-пакетом, вносящим спец. настройки (отключение автообновления, убраны ярлыки и т.п.)
'Bonus установка/обновление Adobe Flash Player 10
'Разработчик: ______________ aka FL0od
'Версия 1.14 (reinstall AR to 9.3.0 + upd 9.3.2 + upd 9.3.3, reinstall FP to 10.1.82.76)
'Только x86
Dim strR_Adobe_Reader_Key, strF_Adobe_Reader_Distr, AR_Ver, strR_Adobe_FlashPlayer_Key, strF_Adobe_FlashPlayer_Distr, AFP_Ver
strR_Adobe_Reader_Key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-7AD7-1049-7B44-A93000000001}\DisplayVersion"
strF_Adobe_Reader_Distr = "\\xxxxx.loc\DFS\CorpSoft\AcrobatReader"
strR_Adobe_FlashPlayer_Key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Flash Player ActiveX\DisplayVersion"
strF_Adobe_FlashPlayer_Distr = "\\xxxxx.loc\DFS\CorpSoft\FlashPlayer"
set WSHShell = WScript.CreateObject("WScript.Shell")
Dim Check64bit
Check64bit="HKLM\SOFTWARE\Wow6432Node\Classes\"
If keyExist(Check64bit)="TRUE" then wscript.quit
If keyExist(strR_Adobe_Reader_Key) = "FALSE" Then ' Устанавливаем Adobe Reader.
Install_Adobe_Reader
End if
If keyExist(strR_Adobe_FlashPlayer_Key) = "FALSE" Then ' Устанавливаем Adobe Flash Player.
Install_FlashPlayer
'''''''wscript.echo "NEW!"
Else
AFP_Ver=WSHShell.RegRead(strR_Adobe_FlashPlayer_Key)
If AFP_Ver<>"10.1.82.76" then
Install_FlashPlayer
'wscript.echo "UPDATE!"
End if
End if
AR_Ver = WSHShell.RegRead(strR_Adobe_Reader_Key)
If AR_Ver="9.3.0" or AR_Ver="9.3.1" Then
'wscript.echo "Update!"
Update_Adobe_Reader_9_3_2
End If
If AR_Ver="9.3.2" Then
'wscript.echo "Update!"
Update_Adobe_Reader_9_3_3
End If
'AR_Ver = WSHShell.RegRead(strR_Adobe_Reader_Key)
'If AR_Ver="9.1.0" Then
' Update_Adobe_Reader_9_1_2
'ElseIf AR_Ver="9.1.2" Then
' Update_Adobe_Reader_9_1_3
'End If
'-------------------------------------------------------
set WSHShell = Nothing
'''''''''''''''''''''''''''''''''''''''''''''' Функции и процедуры
Sub Install_FlashPlayer
On Error Resume Next
Dim InstallSTR
InstallSTR=strF_Adobe_FlashPlayer_Distr & "\install_flash_player_ax.exe -install"
WshShell.Run InstallSTR, 1, true
''wscript.echo InstallSTR
End sub
Sub Install_Adobe_Reader
On Error Resume Next
Dim InstallSTR
InstallSTR=strF_Adobe_Reader_Distr & "\930\Setup.exe"
WshShell.Run InstallSTR, 1, true
''wscript.echo InstallSTR
End sub
Sub Update_Adobe_Reader_9_3_2
On Error Resume Next
Dim InstallSTR
InstallSTR="msiexec /passive /norestart /update " & strF_Adobe_Reader_Distr & "\Upd932\AdbeRdrUpd932_all_incr.msp"
WshShell.Run InstallSTR, 1, true
End Sub
Sub Update_Adobe_Reader_9_3_3
On Error Resume Next
Dim InstallSTR
InstallSTR="msiexec /passive /norestart /update " & strF_Adobe_Reader_Distr & "\Upd933\AdbeRdrUpd933_all_incr.msp"
WshShell.Run InstallSTR, 1, true
End Sub
Function keyExist(strRegKey)
dim oShell, strOldName
set oShell = CreateObject("Wscript.Shell")
On Error Resume Next
strOldName = OShell.RegRead(strRegKey)
If Err.number = 0 Then
keyExist = "TRUE"
Else
keyExist = "FALSE"
End If
On Error Goto 0
Set oShell = Nothing
End function[/more]
P.S. Автоустановка (mst-файл) Adobe Reader настраивается через "Adobe Customization Wizard 9".
