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">
 <BUTTON NAME=submit VALUE=Browse ACCESSKEY=B onclick='BrowseForFile()'>...</BUTTON>
 <BUTTON NAME=btnAdd VALUE="add" onclick='addtolist(txtMSIPath.value)'> + </BUTTON>
 <BUTTON NAME=btnremove VALUE="remove" onclick='removefromlist(txtMSIPath.value)'> - </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>
<BUTTON NAME="execute" VALUE="Install" onclick='ProcessComputer()'>Install MSI</BUTTON> <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>
<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
Problème D'installation Logiciel GPO
