locked
Problème D'installation Logiciel GPO RRS feed

  • Question

  • Bonjour à tous,

    voici mon problème:

    je déploie par GPO le logiciel Adobe flashplayer ActiveX sur des postes en windows 7 et XP.

    Et sur certains d'entre eux cela ne fonctionne pas.En regardant les log j'obtiens toujours le même message d'erreur

    quand j'essaie de l'installer à la main en allant directement chercher le MSI sur nos serveurs ,c'est le même message d'erreur.

    La seule façon de l'installer et d'aller sur un site utilisant l'Adobe flashplayer ActiveX et de l'installer via la demande du site.

    Impossible de trouver une autre solution en cherchant sur le net.

    Quelqu'un aurait-il une idée?

    Merci d'avance.

    mercredi 10 juillet 2013 12:29

Réponses

  • Oui justement c'est ce que je me dis.Le problème vient à chaque fois du poste.

    Mais quel paramètre(s) ?

    Sinon je viens de tester avec la nouvelle version sur un poste qui pose problème et la cela fonctionne!!

    Bizarre....

    Je pense donc passer en version 11.8 sur tous mes postes (environ 550)  :)

    jeudi 11 juillet 2013 10:06

Toutes les réponses

  • ^Merci de votre réponse.

    Pour le 1er lien je suis déja tombé dessus et pour le second, je ne suis pas très fort en anglais, mais il n'a pas l'air de correspondre à on problème.

    Cdlt

    mercredi 10 juillet 2013 14:18
  • BOnjour,

    étonnant que ca ne le fasse que sur certains postes .. Un lien sur ces postes ( version d'OS, architectures CPU ...) ?

    Récupères tu le MSI ici : http://www.adobe.com/fr/products/flashplayer/distribution3.html

    Je vois que ce doit être la version 11.5 que tu essaies d'installer, alors que la version 11.8 est dispo ... Les postes qui te posent soucis ne sont pas dans une version plus récente ?

    Cdlt.

    mercredi 10 juillet 2013 14:55
  • Bonjour!

    oui c'est étonnant , et vu que je ne trouve vraiment pas de solution , je poste ici.

    oui c'est la version 11.5, plus précisément les versions 11.5.502.110 et 146 ne fonctionnent pas sur certains postes.En test sur un poste reformaté , nickel.c'est pour cela que je suis passé en Prod.

    je n'ai pas testé la nouvelle version.Je peux essayer de faire un test.....

    Et oui je vais sur le site http://www.adobe.com/fr/products/flashplayer/distribution3.html

    ça le fait aléatoirement, sur des postes XP 32bits et Seven 32Bits.Mais plus particulièrement sur les XP 32bits.

    jeudi 11 juillet 2013 09:10
  • bonjour

    si ça fonctionne sur certain pc et d'autre non , donc le souci est sur les machines

    a verifier

    -Parefeu;Horloge system; Service wmi; L’espace disque ;Ping ok , dns ok

    mise a jours des patchs

    aussi les pc a redemarrer pour mieux appliquer la gpo

    slts


    Partager c'est avancer : Votez!SVP

    jeudi 11 juillet 2013 09:18
  • Oui justement c'est ce que je me dis.Le problème vient à chaque fois du poste.

    Mais quel paramètre(s) ?

    Sinon je viens de tester avec la nouvelle version sur un poste qui pose problème et la cela fonctionne!!

    Bizarre....

    Je pense donc passer en version 11.8 sur tous mes postes (environ 550)  :)

    jeudi 11 juillet 2013 10:06
  • Bonjour

    ok ben bon courage, le pb avec les gpo's si qu'il n y a pas de rapport :(

    il faut penser au sccm en cas ou ou autre outils de deploiments :)

    http://community.spiceworks.com/scripts/show/585-computer-management-utility

    slts


    Partager c'est avancer : Votez!SVP

    jeudi 11 juillet 2013 10:22
  • Merci!

    oui mais SCCM est payant, pour ce que l'on déploie , je ne pense pas que ma demande d'achat soit acceptée lol

    Cdlt

    jeudi 11 juillet 2013 10:58
  • Je vous
    promets rien mais j’ai un collègue qui utilise un outils de déploiement
    free, il rentre dimanche  je vais essayer de vous l’envoyer ;)

    notre off est le vendredi et samedi

    mes salutations


    Partager c'est avancer : Votez!SVP

    jeudi 11 juillet 2013 11:02
  • Ouch, de ma petite expérience ... On ne déploie pas 550 postes via GPO ...

    Les GPO ca dépanne éventuellement mais tu risque d'avoir des surprises et des ralentissement à la mise en prod.

    Il existe des outils de déploiement gratuit ( Ocsinventory par exemple) et payant ( SCCM)  qui optimiseront ces installations.

    Cdlt.

    jeudi 11 juillet 2013 12:07
  • Bonjour tech

    copier ce script en .hta

     exemple MSI.hta dans un dossier avec le psexec a l'interieur et essayer le deploiment par msi

    =========================================================

    <html>
    <head>
    <!--
    *******************************************************************************
    *  INFO                                                                       *
    *                                                                             *
    *******************************************************************************
    -->
      <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
      <title> Remote MSI Deploy 1.1 -  (06/30/2013)</title>
      <HTA:application
      applicationName="MSIDeploy"
      version="1.1"
      maximizebutton="yes"
      showintaskbar="yes"
      singleinstance="yes"
      scroll="no"
      sysmenu="yes"
      />
      <style type="text/css">
      /* <![CDATA[ */
      BODY {
        background-color: rgb(0,0,0);
        color: white;
        margin: 10px 10px 10px 10px;
        font: 14px Verdana; 
      }
      #status_bar {
      box-shadow:rgb(136, 136, 136) 0px 5px 5px;
      background-color:#F7F7F7;
      border:1px solid #A5A5A5;
      font-color: #A5A5A5;
      font-size: 70%;
      border-bottom:0px;
      bottom:0px;
      height:25px;
      margin:auto;
      padding:5px 5px 5px 5px;
      ;
      width:100%;
      z-index:500;
       
    }
    .texta { 
      font-size: 14px; 
      background-color: white; 
      border: 1px solid #666666; 
      }
     
      /* ]]> */
      </style>


    <script language="vbscript">


    On Error Resume Next
    Const ForReading = 1
    Const ForWriting = 2
    Const sPSEXECDownload = "http://live.sysinternals.com/psexec.exe"

    Dim sLogFolder, sPSEXEC, MSISwitches, PSEXECSwitches
    Dim sDebugInfo, bDebug, sLastComputer

    bDebug = true

    Set objfso = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("WScript.Shell")
    currentpath = objShell.CurrentDirectory & "\"
    sPSEXEC = currentPath & "psexec.exe"


    Sub Window_onLoad
        txtComputerName.focus()
        window.resizeTo 560,730
     If not ReportFileStatus(sPSEXEC) then
      sResult = msgbox("You must have a copy of PSExec.exe in the same folder as this HTA (" & currentpath & ")." & vbcrlf & vbcrlf & "Would you like to download PSEXEC.exe now from live.sysinternals.com?",52,"PSExec not found!")
      if sResult = 6 then HTTPDownload sPSEXECDownload, currentpath & "psexec.exe"
     End If

    End Sub

    on error resume next

    MSISwitches = objShell.RegRead("HKCU\Software\RDScripts\RemoteMSI\MSISwitches")
    sPSEXECSwitches = objShell.RegRead("HKCU\Software\RDScripts\RemoteMSI\PSEXECSwitches")

    If MSISwitches = "" then
      MSISwitches = "/passive "
    End If

    If PSEXECSwitches = "" then
      sPSEXECSWITCHES = "-s -i"
    End If

    on error goto 0

    sPSEXECUSER = ""

    'Call RunProcess(sPSEXEC & sPSEXECUSER & " \\" & txtComputerName.value & sPSEXECSWITCHES & " " & chr(34) & MSIFile & chr(34) & " /qb"
    </script>
    </head>

    <script language="VBSCRIPT">
    Dim successlog, failurelog, unreachablelog, sLogFolder

    Function removefromlist(svalue)
      For each objOption in lstMSI.Options
        If objOption.selected then objOption.removenode
      Next
    End Function 'removefromlist

    Function addtolist(sValue)
      If sValue <> "" then
        if not ReportFileStatus(sValue) then msgbox "Cannot verify this path (" & sValue & ")",16,"Could not verify path"
        For Each objOption in lstMSI.Options
          if sValue = objOption.value then exit function
        Next
      
        Set objOption = Document.createElement("OPTION")
        objOption.Text = sValue
        objOption.Value =  sValue
       
        lstMSI.Add(objOption)
        set objOption = nothing
      End If
    End Function 'addtolist

    Function About()
      Msgbox "This utility was written by nabil CHIHANI." & vbcrlf & vbcrlf & " ",32,"About"
    End Function 'About

     

    ' ---------------------------------------------------------------------
    '* @info Generate a folder tree from the path
    '*
    '* @param (String) Path
    '* @return (Boolean) Folder Exists: Recursion continues (Y/N)
    ' ---------------------------------------------------------------------
    Function GeneratePath(pFolderPath)
     GeneratePath = False
     'msgbox pFolderPath
     If Not objFSO.FolderExists(pFolderPath) Then
      If GeneratePath(objFSO.GetParentFolderName(pFolderPath)) Then
       GeneratePath = True
       Call objFSO.CreateFolder(pFolderPath)
      End If
     Else
      GeneratePath = True
     End If
    End Function

    '------- END CODE

     


    'Function PrepareFolder(sFldr)
    '  If ReportFolderStatus(sFldr) then

    '  Else
    '      Set f = objfso.CreateFolder(sFldr)
    '      CreateFolderDemo = f.Path
    '  End If

    'End Function 'PrepareFolder

    Function BrowseForFile()
      hiddenInput.click
      strFilePath = hiddenInput.value
      If right(lcase(strFilePath),3) <> "msi" and right(lcase(strFilePath),3) <> "msp" then
        msgbox "Please choose an MSI/MSP file.",64,"No MSI/MSP file chosen"
      Else
        txtMSIPath.value = strFilePath
        divProductName.innerhtml = GetMSIProductCode(txtMSIPath.value)
        Call addtolist(txtMSIPath.value)
      End If
    End function

    Sub ValidateFields(sID)
      If sID = "txtComputerName" then
        If trim(txtComputerName.value) = "" then
          txtComputerListing.disabled = false
          document.getElementByID("txtComputerListing").style.backgroundColor = "white"
        Else
          txtComputerListing.disabled = true
          txtComputerListing.value = ""
          document.getElementByID("txtComputerListing").style.backgroundColor = "gainsboro"
        End If
      ElseIf sID = "txtComputerListing" then
        If trim(txtComputerListing.value) = "" then
          txtComputerName.disabled = false
          document.getElementByID("txtComputerName").style.backgroundColor = "white"
        Else
          txtComputerName.disabled = true
          txtComputerName.value = ""
          document.getElementByID("txtComputerName").style.backgroundColor = "gainsboro"
        End If
      ElseIf sID = "btnReset" then
          document.getElementByID("txtComputerName").style.backgroundColor = "white"
          document.getElementByID("txtComputerListing").style.backgroundColor = "white"
          txtComputerName.value = ""
          txtComputerListing.value = ""
          txtFailure.value = ""
          txtSuccess.value = ""
          txtComputerName.disabled = false
          txtComputerListing.disabled = false
         
          For Each objOption in lstMSI.Options
            objOption.RemoveNode
          Next

           
      End if
     
    End Sub


    '==========================================================================
    ' The following function will test if a machine is reachable via a ping
    ' using WMI and the Win32_PingStatus Class
    '==========================================================================
     
    Function Reachable(strComputer)
    '     On Error Resume Next
     
      Dim wmiQuery, objWMIService, objPing, objStatus
     
      wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'"
     
      Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
      Set objPing = objWMIService.ExecQuery(wmiQuery)
     
      For Each objStatus in objPing
          If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
              Reachable = False 'if computer is unreacable, return false
              'msgbox "FALSE"
          Else
              Reachable = True 'if computer is reachable, return true
              'msgbox "TRUE"
          End If
       
      Next
     End Function

    Function ReportFileStatus(filespec)
       If (objfso.FileExists(filespec)) Then
          ReportFileStatus = true
       Else
          ReportFileStatus = false
       End If

    End Function


    Function ReportFolderStatus(fldr)
       Dim msg
       If (objfso.FolderExists(fldr)) Then
          msg = true
       Else
          msg = false
       End If
       ReportFolderStatus = msg
    End Function

    Sub SetOptions(sWhichOne)  
      Select Case sWhichOne
        Case "psexec"
          sPSEXECSwitches = InputBox("Set PSEXEC switches","PSEXEC Command-line switch setup","-s -i")
        Case "msi"
          MSISwitches = InputBox("Set MSI switches","MSI Command-line switch setup","/passive")
      End Select
    End Sub ' SetOptions


    Sub ProcessComputer
      If txtComputerListing.value = "" and txtComputerName.value = "" then
        msgbox "You must specify a computer or list to install an MSI.",64,"No computers specified"
        Exit Sub
      End If
      If (right(lcase(txtMSIPath.value),3) <> "msi" and right(lcase(txtMSIPath.value),3) <> "msp") or trim(txtMSIPath.value) = "" then
        msgbox "You must specify a MSI file to install.",64,"No MSI file specified"
        Exit Sub
      End If
      on error goto 0
      objShell.RegWrite "HKCU\Software\RDScripts\RemoteMSI\LastComputer",txtComputerName.value,"REG_SZ"
     
      If not ReportFileStatus(sPSEXEC) then
        sResult = msgbox("You must have a copy of PSExec.exe in the same folder as this HTA (" & currentpath & ").  Download it from " & sPSEXECDownload,36,"PSExec not found!")
     
     if sResult = 6 then HTTPDownload sPSEXECDownload, currentpath & "psexec.exe"
     
        Exit Sub
      End If

        txtFailure.value = ""
        txtSuccess.value = ""   
       
        sFileName = replace(lcase(right(txtMSIPath.value,len(txtMSIPath.value) - InstrRev(txtMSIPath.value, "\", -1, 1))),".msi","")
        sFileName = replace(lcase(sFileName),".msp","")
       
        sLogFolder = currentpath & "\logs\" & sFileName
       
        'If GeneratePath(".\logs\" & sLogFolder) then
        sSuffix = "_" & Year(Now) & Month(now) & Day(Now) & "-" & Hour(Now) & Minute(Now) & Second(Now)  
        'sLogFolder = sLogFolder & "_" & Year(Now) & Month(now) & Day(Now) & "-" & Hour(Now) & Minute(Now) & Second(Now)
        'End If
     
        GeneratePath(sLogFolder)
     
        Set successlog = objFSO.OpenTextFile (sLogFolder & "\success" & sSuffix & ".log", ForWriting, True)
        Set failurelog = objFSO.OpenTextFile (sLogFolder & "\failure" & sSuffix & ".log", ForWriting, True)
        Set unreachablelog = objFSO.OpenTextFile (sLogFolder & "\unreachable" & sSuffix & ".log", ForWriting, True)

      If trim(txtComputerName.value) = "" then
        'Process the listing of computers
        aComputers = split(txtComputerListing.value,vbcrlf)
       
        For i = 0 to ubound(aComputers)
          'msgbox aComputers(i)
            For Each objOption in lstMSI.Options
              If trim(aComputers(i)) <> "" then Call InstallMSI(aComputers(i),objOption.value)
            Next

        Next
      
      Else
        'Process the single computer in the input field
            For Each objOption in lstMSI.Options
              Call InstallMSI(txtComputerName.value,objOption.value)
            Next
      End If
     
      successlog.close
      failurelog.close
      unreachablelog.close
     
      Set failurelogread = objFSO.OpenTextFile(sLogFolder & "\failure" & sSuffix & ".log", ForReading)
      Set successlogread = objFSO.OpenTextFile(sLogFolder & "\success" & sSuffix & ".log", ForReading)

     
      If objFSO.GetFile(sLogFolder & "\failure" & sSuffix & ".log").Size > 0 Then
        txtFailure.value = failurelogread.ReadAll
      End If
      If objFSO.GetFile(sLogFolder & "\success" & sSuffix & ".log").Size > 0 Then
        txtSuccess.value = successlogread.ReadAll
      End If


      successlogread.close
      failurelogread.close

      objShell.RegWrite "HKCU\Software\RDScripts\RemoteMSI\PSEXECSwitches", sPSEXECSwitches, "REG_SZ"
      objShell.RegWrite "HKCU\Software\RDScripts\RemoteMSI\MSISwitches", MSISwitches, "REG_SZ"   

      End Sub 'ProcessComputer


    Function InstallMSI(strComputer,MSIFile)

      If Reachable(strComputer) Then
      
        on error goto 0
        sCmd = sPSEXEC & sPSEXECUSER & " \\" & strComputer & " " & sPSEXECSWITCHES & " msiexec.exe " & MSISwitches & " /i " & chr(34) & MSIFile & chr(34) & " /qb"
       
        divStatus.innerhtml = "Preview: " & sCMD
        'msgbox sCMD
      on error goto 0
        Call RunProcess(sCmd,false,strComputer)
      Else
        unreachablelog.writeline(strComputer)
        failurelog.writeline(strComputer)
        exit Function 
      End If

    End Function

    '------------------------------------------------------------------------------'
    ' Subroutine RunProcess - Runs a specified executable or script.
    '
    ' Correct input is RunProcess("c:\process.exe",false)
    '
    ' If you want the process to wait until completion before going on, set the
    ' second argument to 'true'
    '##############################################################################'
    Sub RunProcess(sProcessName,blnWait,strComputer)
     on error goto 0
     
     
    ' Return = objShell.Run(sProcessName, 1, true)
     'Set Return = objShell.Exec(sProcessName)


     
      'Set oExec = objShell.Exec(sProcessName)

     If err.number <> 0 then
      If err.number = -2147024894 then
       'Call WriteLog("Could not locate " & sProcessName)
      End If
      if bDebug = true then sDebugInfo = " " & err.description & " (" & err.number & ")"
        failurelog.writeline(strComputer & sDebugInfo)
     Else
      successlog.writeline(strComputer)
     End if
     
     err.clear
    End Sub 'RunProcess

    'This code was plundered from http://leereid.wordpress.com
    Function GetMSIProductCode(msi) ' Return the Product Code from a given msi
     On Error Resume Next
     GetMSIProductCode=""
     If msi = "" Then Exit Function End If
     
     Dim FS, TS, WI, DB, View, Rec
     Set WI = CreateObject("WindowsInstaller.Installer")
     Set DB = WI.OpenDatabase(msi,2)
     If Err.number Then Exit Function End If
     
     Set View = DB.OpenView("Select `Value` From Property WHERE `Property` ='ProductName'")
     View.Execute
     Set Rec = View.Fetch
     If Not Rec Is Nothing Then
      GetMSIProductCode=Rec.StringData(1)
     End If
    End Function


    'Sub HTTPDownload( strFileURL, strHDLocation )
    function fDownloadManually(sFileURL)
     dim ie
     set ie = createobject("internetexplorer.application")
     ie.visible = false
     ie.navigate(sFileURL)
      
     do while ie.busy = true
     
     loop
     'ie.document.execwb "saveas",2,sLocation
     'SendKeys "%S"
     ie.quit
    End function

    Function HTTPDownload(strUrl, strFile)

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Const ForWriting = 2
    Dim web, varByteArray, strData, strBuffer, lngCounter, ado
        on error goto 0
     
     'On Error Resume Next
        'Download the file with any available object
        Err.Clear
        Set web = Nothing
        Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
        If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest")
        If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP")
        If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP")

     web.Open "GET", strURL, False
        web.Send
     
        If Err.Number <> 0 Then
            SaveWebBinary = False
            Set web = Nothing
            Exit Function
        End If

        If web.Status <> "200" Then
            SaveWebBinary = False
            Set web = Nothing
            Exit Function
        End If

        varByteArray = web.ResponseBody

        Set web = Nothing

        'Now save the file with any available method
        On Error Resume Next
        Set ado = Nothing
        Set ado = CreateObject("ADODB.Stream")
        If ado Is Nothing Then
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set ts = fs.OpenTextFile(strFile, ForWriting, True)
            strData = ""
            strBuffer = ""
            For lngCounter = 0 to UBound(varByteArray)
                ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1, 1)))
            Next
            ts.Close
        Else
      ado.Type = adTypeBinary
            ado.Open
            ado.Write varByteArray
           
      ado.SaveToFile strFile, adSaveCreateOverWrite
            ado.Close
      if err.number = 3716 then
       sResult = msgbox("Error while trying to download file from an untrusted domain.  Try copying the entire MSIDeploy folder to a local drive and re-downloading the file again automatically." _
        & vbcrlf & vbcrlf & "Alternatively, would you like to manually download this file?  You will need to save psexec.exe to '" & objshell.CurrentDirectory & "'",52,"Download file manually?")
       if sResult = 6 then fDownloadManually(sPSEXECDownload)
      End If
      
      'msgbox err.number & err.description
        End If
        HTTPDownload = True

    End Function
     
    'End Sub

    </script>

     

    <body>
        <div style="; visibility:'hidden';">
          <input type="file" ID="hiddenInput" class="texta">
        </div>
    <table>
      <tr>
        <td>
          <span style="padding-left:8px;font-size:70%">Computer name:</span>
        </td>
        <td>
          <INPUT TYPE=TEXT TABINDEX="2" class="texta" size='30' NAME="txtComputerName" id="txtComputerName" onChange="validatefields('txtComputerName')">
        </td>
        <td>
        </td>
      </tr>
      <tr>
        <td>
          <span style="padding-left:8px;font-size:70%">Installation file (MSI):</span>
        </td>
        <td>
          <INPUT TYPE=TEXT TABINDEX="3" size='30' class="texta" NAME="txtMSIPath">
          &nbsp<BUTTON NAME=submit VALUE=Browse ACCESSKEY=B onclick='BrowseForFile()'>...</BUTTON>
          &nbsp<BUTTON NAME=btnAdd VALUE="add" onclick='addtolist(txtMSIPath.value)'>&nbsp;+&nbsp; </BUTTON>
          &nbsp<BUTTON NAME=btnremove VALUE="remove" onclick='removefromlist(txtMSIPath.value)'>&nbsp;-&nbsp; </BUTTON>
        </td>
        <td>
        </td>
      </tr>
      <tr>
        <td colspan="3" style="padding-left:8px;padding-top:5px;font-size:70%">
          Product name: <span id="divProductName"></span>         
        </td>
        <td>
        </td>
        <td>
        </td>
      </tr>
    </table>
    <table>
      <tr>
        <td style="padding:8px;" colspan="3">
            <select id="lstMSI" style="border:1px solid #666666;width:500px;color:blue" multiple="multiple" size="6">
            </select>
        </td>
      </tr> 
      <tr>
        <td>
          <span style="padding-left:8px;font-size:70%">Computer list:</span>
        </td>
        <td>
          <span style="padding-left:8px;font-size:70%">Success:</span>
        </td>
        <td>
          <span style="padding-left:8px;font-size:70%">Failure:</span>
        </td>
      </tr>

      <tr>
        <td style="padding:8px"><textarea style="border:1px solid #666666;" title="Type a listing of computers to run this command against, one per line."  onchange="validatefields('txtComputerListing')" ID="txtComputerListing" rows="18" cols="16"></textarea>
        </td>
        <td style="padding:8px;"><textarea  style="border:1px solid #666666;" title="Success is based on whether or not the PSExec process can start and there is a successful WMI ping connection to the remote PC" style="color:blue;background-color:whitesmoke" disabled=true ID="txtSuccess" rows="18" cols="16"></textarea>
        </td>
        <td style="padding:8px;"><textarea  style="border:1px solid #666666;" title="Failure is determined if PSExec cannot execute or if there is not a successful WMI ping to the remote computer." style="color:red;background-color:whitesmoke" disabled=true ID="txtFailure" rows="18" cols="16"></textarea>
        </td>
      </tr>
    </table>
    <br>
    &nbsp;&nbsp;<BUTTON NAME="execute" VALUE="Install" onclick='ProcessComputer()'>Install MSI</BUTTON>&nbsp;&nbsp;<BUTTON NAME="execute" VALUE="Install" id="btnReset" onclick="Validatefields('btnReset')">Reset fields</BUTTON>
    <br>
    <div style="padding-left:8px;padding-top:10px;font-family:courier;font-size:70%" id="divStatus"></div>
    <div id="status_bar" style="padding-top:5px;">

      <span title="Configure PSEXEC switches" style="text-decoration:underline;color:blue;cursor:pointer" onclick="SetOptions('psexec')">
      PSExec
      </span>&nbsp;
      <span title="Configure MSI switches" style="text-decoration:underline;color:blue;cursor:pointer" onclick="SetOptions('msi')">
      MSI
      </span>
      <span title="About the HTA MSI Deploy tool" style="padding-left:420px;text-decoration:underline;color:blue;cursor:pointer" onclick="About()">?</span>
    </div>
    </body>

    <script language="VBScript">
    on error resume next
    sLastComputer = objShell.RegRead("HKCU\Software\RDScripts\RemoteMSI\LastComputer")
    If sLastComputer = "" then
     txtComputerName.value = sLastComputer
    End If
    </script>

    </HTmL>


    Partager c'est avancer : Votez!SVP

    dimanche 14 juillet 2013 10:18
  • Bonjour TechExploit,

    Est-ce que le correctif KB943729 est installé ?

    Êtes-vous décidé d’installer la version 11.8 finalement?

    Merci de consulter aussi le tuto suivant: Deploying Adobe Flash Player 11.2 with auto-updating in an enterprise.

    Merci de nous tenir au courant sur la suite de vos démarches.

    Cordialement

    Dan


    Dan BAJENARU, MSFT Votez! Appel à la contribution
    Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    lundi 15 juillet 2013 08:18
  • bonjour TechExploit

    avez vous essayer le script ?

    merci


    Partager c'est avancer : Votez!SVP

    mardi 23 juillet 2013 13:57
  • Bonjour Tech

    http://batchpatch.com/

    slts


    Partager c'est avancer : Votez!SVP

    mercredi 24 juillet 2013 09:08