deploiement GPO flash player avec script

Marsh Posté le 22-03-2016 à 16:25:24

Bonjour à tous,

Je viens solliciter vos lumières concernant les scripts. En effet je souhaites créer un script (En batch ou en vbscript ?) qui me permettra de déployer à travers une GPO ordinateur le plugin ainsi que l'activeX flash player. J'ai trouvé plusieurs script mais qui ne me convienne pas totalement. Je souhaiterais en effet que ce script n'installe flash uniquement que s'il n'est pas à jour.
Dans mon esprit ce script doit d'abord vérifier l'architecture du processeur 64 ou bit 32 (ce qui détermine les différents chemins ou placer certains fichiers). Ensuite vérifier la version du plugin et activeX installé (en allant vérifier dans la base de regsitre HKLM\software\windows\currentversion\uninstall\"version" ). Si la version actuelle du poste correspond a la version à installer alors on fini le script sinon on procède à la désinstallation de flash et réinstallation de la bonne version (.msi) et pour terminer on copie un fichier mms.cfg qui désactive la mise a jour auto de flash (chemin dépendant de l'architecture OS 32 ou 64).
Voila je pense avoir été clair. Je tiens aussi à préciser que je ne connais que très peu les langages en question. Je pense que le process est bon mais je ne connais pas les paramètres permettant de réaliser cela.
Donc je souhaiterais savoir lequel des deux langages (vbscript ou batch) est le plus approprié pour réaliser cela. Et ensuite quels sont les outils, objet ou sources permettant de réaliser cela ?
Merci d'avance pour votre aide

Marsh Posté le 22-03-2016 à 16:25:24

Marsh Posté le 23-03-2016 à 11:23:18

Après diverses recherches sur le net j'ai trouvé un script (ci dessous) en .vbs que je voudrais adapter à ma situation.
J'ai rajouté une constante InstallFlashVersion = "21.0.0.197"
et je pense que dans la partie uninstall il faudrait que je rajoute une condition qui vérifie dans la base de registre si la version installé est la même que celle indiquée dans la constante
La clé de registre varie selon l'architecture 64 ou 32.
Je pense que cela devrait se situer dans la partie "uninstalloldflash" si la version est égale à "InstallFlashVersion" alors on passe à "GlobalVariableCleanup()" sinon on continue la désinstallation de la version flash et puis on continue.
Si vous avez des suggestions concernant la syntaxe pour réaliser cela ou d'autres idées

Code :

'*******************************************************************************
' Program: InstallFlash.vbs
' Author: Mick Pletcher
' Date: 11 April 2012
' Modified:
'
' Publisher: Adobe
' Program: Flash
' Version: 21.x
' Description: Adobe Flash Installation
' 1) Define Relative Installation Path
' 2) Determine Architecture
' 3) Create Logs Folder
' 4) Uninstall all old versions of Flash
' 5) Install Flash
' 6) Copy MMS File'
' 7) Cleanup Global Variables
' 8) Exit Installation
'*******************************************************************************
Option Explicit
REM Define Constants
CONST TempFolder = "c:\temp\"
CONST LogFolderName = "AdobeFlash"
CONST InstallFlashVersion = "21.0.0.197"
REM Define Global Variables
DIM Architecture : Set Architecture = Nothing
DIM LogFolder : LogFolder = TempFolder & LogFolderName & "\"
DIM RelativePath : Set RelativePath = Nothing
REM Define Relative Installation Path
DefineRelativePath()
REM Determine Architecture
DetermineArchitecture()
REM Create Logs Folder
CreateLogFolder()
REM Uninstall Old Version of Flash
UninstallOldFlash()
REM Install Flash
InstallFlash()
REM Copy MMS File
CopyMMS()
REM Cleanup Global Variables
GlobalVariableCleanup()
'*******************************************************************************
'*******************************************************************************
Sub DefineRelativePath()
REM Get File Name with full relative path
RelativePath = WScript.ScriptFullName
REM Remove file name, leaving relative path only
RelativePath = Left(RelativePath, InStrRev(RelativePath, "\" ))
End Sub
'*******************************************************************************
Sub DetermineArchitecture()
REM Define Local Objects
DIM WshShell : Set WshShell = CreateObject("WScript.Shell" )
REM Define Local Variables
DIM OsType : OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE" )
If OsType = "x86" then
Architecture = "x86"
elseif OsType = "AMD64" then
Architecture = "x64"
end if
REM Cleanup Local Variables
Set WshShell = Nothing
Set OsType = Nothing
End Sub
'*******************************************************************************
Sub CreateLogFolder()
REM Define Local Objects
DIM FSO : Set FSO = CreateObject("Scripting.FileSystemObject" )
If NOT FSO.FolderExists(TempFolder) then
FSO.CreateFolder(TempFolder)
End If
If NOT FSO.FolderExists(LogFolder) then
FSO.CreateFolder(LogFolder)
End If
REM Cleanup Local Objects & Variables
Set FSO = Nothing
End Sub
'*******************************************************************************
Sub UninstallOldFlash()
REM Define Local Objects
DIM FSO : SET FSO = CreateObject("Scripting.FileSystemObject" )
DIM oShell : SET oShell = CreateObject("Wscript.Shell" )
REM Define Local Variables
DIM oAPPDATA : oAPPDATA = oShell.ExpandEnvironmentStrings("%APPDATA%" )
DIM Parameters : Parameters = Chr(32) & "-uninstall activex"
DIM Uninstallx86 : Uninstallx86 = RelativePath & "uninstall_flash_player_32bit.exe" & Parameters
DIM Uninstallx64 : Uninstallx64 = RelativePath & "uninstall_flash_player_64bit.exe" & Parameters
If Architecture = "x86" then
oShell.Run Uninstallx86, 1, True
Else
oShell.Run Uninstallx64, 1, True
End If
If FSO.FolderExists("C:\Windows\system32\Macromed\Flash\" ) then
FSO.DeleteFile "C:\Windows\system32\Macromed\Flash\*.*", True
FSO.DeleteFolder "C:\Windows\system32\Macromed\Flash", True
End If
If FSO.FolderExists("C:\Windows\SysWOW64\Macromed\Flash\" ) then
FSO.DeleteFile("C:\Windows\SysWOW64\Macromed\Flash\*.*" )
FSO.DeleteFolder "C:\Windows\system32\Macromed\Flash", True
End If
If FSO.FolderExists(oAPPDATA & "\Adobe\Flash Player\" ) then
FSO.DeleteFile(oAPPDATA & "\Adobe\Flash Player\*.*" )
FSO.DeleteFolder oAPPDATA & "\Adobe\Flash Player", True
End If
If FSO.FolderExists(oAPPDATA & "\Macromedia\Flash Player\" ) then
FSO.DeleteFile(oAPPDATA & "\Macromedia\Flash Player\*.*" )
FSO.DeleteFolder oAPPDATA & "\Macromedia\Flash Player", True
End If
REM Cleanup Local Objects & Variables
Set FSO = Nothing
Set oShell = Nothing
Set Parameters = Nothing
Set Uninstallx86 = Nothing
Set Uninstallx64 = Nothing
End Sub
'*******************************************************************************
Sub InstallFlash()
REM Define Local Objects
DIM oShell : SET oShell = CreateObject("Wscript.Shell" )
REM Define Local Variables
DIM Filex86 : Filex86 = Chr(32) & RelativePath & "install_flash_player_11_active_x_32bit.msi"
DIM Filex64 : Filex64 = Chr(32) & RelativePath & "install_flash_player_11_active_x_64bit.msi"
DIM LogFilex86 : LogFilex86 = Chr(32) & "/lvx" & Chr(32) & LogFolder & "Flash11x86.log"
DIM LogFilex64 : LogFilex64 = Chr(32) & "/lvx" & Chr(32) & LogFolder & "Flash11x64.log"
DIM Parameters : Parameters = Chr(32) & "/qb- /norestart"
DIM Install32 : Install32 = "msiexec.exe /i" & Filex86 & LogFilex86 & Parameters
DIM Install64 : Install64 = "msiexec.exe /i" & Filex64 & LogFilex64 & Parameters
oShell.Run Install32, 1, True
If Architecture = "x64" Then
oShell.Run Install64, 1, True
End If
REM Cleanup Local Variables
Set Filex86 = Nothing
Set Filex64 = Nothing
Set LogFilex86 = Nothing
Set LogFilex64 = Nothing
Set oShell = Nothing
Set Parameters = Nothing
Set Install32 = Nothing
Set Install64 = Nothing
End Sub
'*******************************************************************************
Sub CopyMMS()
REM Define Local Objects
DIM FSO : SET FSO = CreateObject("Scripting.FileSystemObject" )
If Architecture = "x86" then
If FSO.FileExists("C:\Windows\system32\Macromed\Flash" ) then
FSO.DeleteFile "C:\Windows\system32\Macromed\Flash\mms.cfg", True
End If
FSO.CopyFile RelativePath & "mms.cfg", "C:\Windows\system32\Macromed\Flash\", True
Else
If FSO.FileExists("C:\Windows\SysWow64\Macromed\Flash" ) then
FSO.DeleteFile "C:\Windows\SysWow64\Macromed\Flash\mms.cfg", True
End If
FSO.CopyFile RelativePath & "mms.cfg", "C:\Windows\SysWow64\Macromed\Flash\", True
End If
REM Cleanup Local Objects
Set FSO = Nothing
End Sub
'*******************************************************************************
Sub GlobalVariableCleanup()
Set Architecture = Nothing
Set LogFolder = Nothing
Set RelativePath = Nothing
End Sub

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *