WUSA and AutoIt

[JHager]

Hi Folks,

Trying to get wusa to runwait with .msu patches. I have been using a script for XP machines that works flawlessly. However, as you all know, with WIN7 they introduced wusa.exe for the msu packages. I have seen very little regarding this issue so, I thought I would throw this out there. I know this is a long string of code, but I would dearly appreciate any help that you may recommend. Thanks in advance. This is my script for XP:

expandcollapse popup

#include <array.au3>
; 1) $debug=1 for on screen status, $debug=0 for silent
$debug=0
; path for scan32
$scan32="F:DATASharedAuditWizScanscanscan32.exe"
; 2) $logPath = path for patch install status. don't forget the trailing slash
;    if patch is good, log will have extension of .ook - if any failed, will have extension of .bad
$logPath="c:"
; 3) $patchPath for full path to executables ***remember to include trailing slash*** 
$patchPath="F:WINAPPSMSupdateWinXPUpPostSP32-14-12"
; 4) enter only the patch name, not the extention - ie. kb666 not kb666.exe 
;    remember to change the Dim $aPatches[x] statement to reflect the total number of patches
Dim $aPatches[2]
$aPatches[0]="KB2660465"
$aPatches[1]="KB2661637"
; $aPatches[2]=""
; $aPatches[3]=""
If $debug Then
  _ArrayDisplay ($aPatches,"$aPatches")
  EndIf
; 5) enter the runtime options for the patches. if necessary, run the patch from a cmd prompt - ie. kb666 /?
;    remember to change the Dim $aOptions[x] statement to reflect the total number of patches
Dim $aOptions[2]
$aOptions[0]=" /quiet /norestart /overwriteoem"
$aOptions[1]=" /quiet /norestart /overwriteoem"
; $aOptions[2]=""
; $aOptions[3]=""
If $debug Then
  _ArrayDisplay ($aOptions,"$aOptions")
  EndIf
$logFile=StringTrimRight(@ScriptName, 4)
$logFileExtension=".ook" 
$audit=1 ; if it changes to 1 then scan32.exe will run afterwards
If $debug Then
  MsgBox(0,"log file",$logPath & $logFile & $logFileExtension)
  EndIf
$file = FileOpen($logPath & $logFile & $logFileExtension,1)
FileWriteLine($file, "Patch Program: " & @ScriptName & @CRLF & _ 
    "Patch Path: " & $patchPath & @CRLF & _
                     "Computer Name: " & @ComputerName & @CRLF & _ 
"Date: " & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF)
For $x = 0 to Ubound ($aPatches,1)-1
  If Not RegRead("HKEY_LOCAL_MACHINESOFTWAREUDAF",$aPatches[$x]) Then 
If $debug Then
 MsgBox(0,"","Installing " & $patchPath & $aPatches[$x] & $aOptions[$x])
      EndIf
$status = RunWait($patchPath & $aPatches[$x] & $aOptions[$x],"",@SW_HIDE)
$audit=1
    If $debug Then
 MsgBox(0,$aPatches[$x],"status: " & $status)
      EndIf
    If $status=0 or $status=3010 Then
      RegWrite("HKEY_LOCAL_MACHINESOFTWAREUDAF",$aPatches[$x], "REG_DWORD", "00000001")
      Else 
        $logFileExtension=".bad"
      EndIf
    FileWriteLine($file,$aPatches[$x] & " status:" & $status & @CRLF)
    Else 
    FileWriteLine($file,$aPatches[$x] & " was already installed" & @CRLF)
    If $debug Then
 MsgBox(0,"",$aPatches[$x] & " was already installed")
      EndIf
  EndIf
Next
FileWriteLine($file,"Finished" & @CRLF & @CRLF)
FileClose($file)
If $logFileExtension <> ".ook" Then
FileMove($logPath & $logFile & ".ook",$logPath & $logFile & $logFileExtension,1)
EndIf
If $audit Then
 Run($scan32,"",@SW_MINIMIZE)
EndIf

Now, below I have pasted what I have tried, incorporating wusa, resulting in various errors. Mainly, I receive, "Error: unable to execute external program". There are two scripts, using two different methods, neither seems to work. The WIN 7 scripts are truncated without all the other code that is inconsequential. Please see below:

First WIN7 script:

expandcollapse popup

$patchPath="WinAppsMSupdateWIN72-14-12"
; 4) enter only the patch name, not the extention - ie. kb666 not kb666.exe 
;    remember to change the Dim $aPatches[x] statement to reflect the total number of patches
Dim $aPatches[1]
$aPatches[0]="KB2645640"
; $aPatches[1]=""
; $aPatches[2]=""
; $aPatches[3]=""
If $debug Then
  _ArrayDisplay ($aPatches,"$aPatches")
  EndIf
; 5) enter the runtime options for the patches. if necessary, run the patch from a cmd prompt - ie. kb666 /?
;    remember to change the Dim $aOptions[x] statement to reflect the total number of patches
Dim $aOptions[1]
$aOptions[0]=" /quiet /norestart"
; $aOptions[1]=""
; $aOptions[2]=""
; $aOptions[3]=""
If $debug Then
  _ArrayDisplay ($aOptions,"$aOptions")
  EndIf
$logFile=StringTrimRight(@ScriptName, 4)
$logFileExtension=".ook" 
If $debug Then
  MsgBox(0,"log file",$logPath & $logFile & $logFileExtension)
  EndIf
$file = FileOpen($logPath & $logFile & $logFileExtension,1)
FileWriteLine($file, "Patch Program: " & @ScriptName & @CRLF & _ 
    "Patch Path: " & $patchPath & @CRLF & _
                     "Computer Name: " & @ComputerName & @CRLF & _ 
"Date: " & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF)
For $x = 0 to Ubound ($aPatches,1)-1
  If Not RegRead("HKEY_LOCAL_MACHINESOFTWAREUDAF",$aPatches[$x]) Then 
If $debug Then
 MsgBox(0,"","Installing " & $patchPath & $aPatches[$x] & $aOptions[$x])
      EndIf
$wusa = @SystemDir & "wusa.exe"
$status = RunWait($wusa & $patchPath & $aPatches[$x] & $aOptions[$x],"",@SW_HIDE)


Second WIN7 script:


$patchPath="F:WINAPPSMSupdateWinXPUpPostSP32-14-12"
; 4) enter only the patch name, not the extention - ie. kb666 not kb666.exe 
;    remember to change the Dim $aPatches[x] statement to reflect the total number of patches
Dim $aPatches[1]
$aPatches[0]="KB2645640"
; $aPatches[1]="KB2661637"
; $aPatches[2]=""
; $aPatches[3]=""
If $debug Then
  _ArrayDisplay ($aPatches,"$aPatches")
  EndIf
; 5) enter the runtime options for the patches. if necessary, run the patch from a cmd prompt - ie. kb666 /?
;    remember to change the Dim $aOptions[x] statement to reflect the total number of patches
; Dim $aOptions[2]
;$aOptions[0]=" /quiet /norestart /overwriteoem"
; $aOptions[1]=" /quiet /norestart /overwriteoem"
; $aOptions[2]=""
; $aOptions[3]=""
If $debug Then
  _ArrayDisplay ($aOptions,"$aOptions")
  EndIf
$logFile=StringTrimRight(@ScriptName, 4)
$logFileExtension=".ook" 
If $debug Then
  MsgBox(0,"log file",$logPath & $logFile & $logFileExtension)
  EndIf
$file = FileOpen($logPath & $logFile & $logFileExtension,1)
FileWriteLine($file, "Patch Program: " & @ScriptName & @CRLF & _ 
    "Patch Path: " & $patchPath & @CRLF & _
                     "Computer Name: " & @ComputerName & @CRLF & _ 
"Date: " & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF)
For $x = 0 to Ubound ($aPatches,1)-1
  If Not RegRead("HKEY_LOCAL_MACHINESOFTWAREUDAF",$aPatches[$x]) Then 
If $debug Then
 MsgBox(0,"","Installing " & $patchPath & $aPatches[$x] & $aOptions[$x])
      EndIf
$wusa = @SystemDir & "wusa.exe"
$status = RunWait($wusa & " " & $patchPath & $aPatches[$x] & " /quiet /norestart")

Edited March 13, 2012 by Melba23
Added code tags

[Melba23]

JHager,

Welcome to the AutoIt forum.

I cannot help you with the question - but I can with the formatting. When you post code all you have to do to get the pretty boxes (like the ones I have set for you above) is to use Code tags - put [autoit] before and [/autoit] after your posted code.

M23

[DesktopMasters]

5+ Years later.. still funny.

[JLogan3o13]

@DesktopMasters please do not resurrect old threads, especially when you're adding nothing to the discussion.