Групповые политики (Group Policy, GPO): документация, ссылки - [1364] :: В помощь системному администратору

'Скрипт для установки 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

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению