We can only notify, but under no circumstances can we force a reboot on end nodes. We can only notify when patching has completed. And even then the user must click either a poppup with a reboot button action or manually reboot from the Start button. We must have a completion notice. We just can't let it timeout and force a reboot. Did these options change?

If I use Prompt User, Force or Reboot, it will eventually reboot even if the user doesn't want it to.

How can I deploy patches so users get no prompts until patching completes and will not be auto rebooted?
Thanks! 

obT897.png
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Answers

0
Note - this one was specifically written for our POSReady7 Players since we were unable to control our patching due to the lack of support.

Option Explicit
'On Error Resume Next

Dim oShell, oOSVersion, oUpdateSession, oUpdateSearcher, oSearchResult, oUpdatesToInstall, oUpdate, oFileSystem, oRunLog, oPatchLog, oDownloader, oDownloaderResult, oInstaller, oInstallResult
Dim objWMIService, colProcesses, oProcess
Dim iUpdateCount, idx, iScriptCnt
Dim strVersion, strFileName, strLoggingPath, strLogFileAndPath, strPatchLogName, strPatchLogFileAndPath, strExecuteCommandLine
Dim bCurrentlyRunning

'Get Version Number of OS
Set oShell = CreateObject("WScript.Shell")
Set oOSVersion = oShell.exec("%comspec% /c ver")
strVersion = oOSVersion.stdout.readall

'Create file system object 
Set oFileSystem = CreateObject("Scripting.FileSystemObject")

'Create file path and name constants
strLoggingPath = "C:\Logs\"
strFileName = "POSReady7Updates.log"
strPatchLogName = "POSReady7NeededUpdates.log"
strLogFileAndPath = strLoggingPath & strFileName
strPatchLogFileAndPath = strLoggingPath & strPatchLogName

'initialize variables
bCurrentlyRunning = False
iScriptCnt = 0

'check to see if script is already running and then skip if it is
Set objWMIService = GetObject ("WinMgmts:Root\Cimv2") 
Set colProcesses = objWMIService.ExecQuery( "Select * From Win32_Process where name = 'wscript.exe'" ) 
For Each oProcess In colProcesses
    strExecuteCommandLine = oProcess.CommandLine
If (InStr(strExecuteCommandLine, "POSReady7Updates.vbs") > 0) Then
iScriptCnt = iScriptCnt + 1
If (iScriptCnt = 2) Then
bCurrentlyRunning = True
End If
End If
Next

'Run script only if its not already running
if (NOT (bCurrentlyRunning = -1)) Then
'Only run the script if this is a POSReady 7 player
If (InStr(strVersion, "Version 6.1") > 1) Then
'Create Log Directory if it does not exist
If (NOT oFileSystem.FolderExists(strLoggingPath)) Then
oFileSystem.CreateFolder(strLoggingPath)
End If
'Delete the logging files if they exists
If (oFileSystem.FileExists(strLogFileAndPath)) Then
oFileSystem.DeleteFile(strLogFileAndPath)
End If
If (oFileSystem.FileExists(strPatchLogFileAndPath)) Then
oFileSystem.DeleteFile(strPatchLogFileAndPath)
End If
'Create file objects
Set oRunLog = oFileSystem.OpenTextFile(strLogFileAndPath, 8, True)
Set oPatchLog = oFileSystem.OpenTextFile(strPatchLogFileAndPath, 8, True)
'Echo update information
WScript.Echo "Starting POSReady 7 Windows Updates..."
oRunLog.WriteLine Now() & "-" & "Starting POSReady 7 Windows Updates..."
'Create a windows update agent session object
Set oUpdateSession = CreateObject("Microsoft.Update.Session")
'Give the update session an ID
oUpdateSession.ClientApplicationID = "POSReady 7 Update Script"
'Create an update searcher object to search for updates as defined in the Search method
Set oUpdateSearcher = oUpdateSession.CreateUpdateSearcher()
'Search for all software updates that are intended for deployment by Automatic Updates as dependant on the other search parameters (not hidden, not installed and are not drivers)
Set oSearchResult = oUpdateSearcher.Search("IsAssigned=1 and IsHidden=0 and IsInstalled=0 and Type='Software'")
'Create Update Collection object to hold all updates requiring download
Set oUpdatesToInstall = CreateObject("Microsoft.Update.UpdateColl")
'Update Count increment
iUpdateCount = 0
'Cycle through search results to look for the update title listed in CASE statement below to determine if any
'of the patches are already on the player.  If the patch is not on the player then add the patch to the Updates
'collection object.
For idx = 0 To oSearchResult.Updates.Count-1
  Set oUpdate = oSearchResult.Updates.Item(idx)
  'Update in list of applicable updates 
  'Determine if it is already installed or not
   If (oUpdate.IsInstalled = False) Then
   If (oUpdate.InstallationBehavior.CanRequestUserInput = False) Then
   If((oUpdate.EulaAccepted = False) OR (oUpdate.EulaAccepted = True)) Then
   If (oUpdate.EulaAccepted = False) then
   oUpdate.AcceptEula()
   End If
   Select Case UCASE(oUpdate.Title)
   Case UCASE("Cumulative Security Update for ActiveX KillBits for Windows Embedded Standard 7 (KB2900986)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2936068)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2832414)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2833946)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2840631)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2844286)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2861191)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2861698)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2863240)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2898857)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2901112)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2911501)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2803821)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2834886)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2835364)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2845187)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2847311)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2847927)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2849470)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2855844)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2859537)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2861855)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2862152)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2862335)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2862966)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2862973)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2864058)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2864202)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2868038)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2868623)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2868626)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2868725)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
    ' Case UCASE("Security Update for Windows Embedded Standard 7 (KB2872339)")
    ' oUpdatesToInstall.Add(oUpdate)
    ' iUpdateCount = iUpdateCount + 1
    ' WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
    ' oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2876284)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2876331)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2884256)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2887069)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2892074)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2893294)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2909210)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2916036)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2922229)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2929961)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2930275)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 USB Boot system (KB2862330)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Update for Windows Embedded Standard 7 (KB2904266)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2913602)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   'Added 3/4/2014
   Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2909921)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2479943)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2506212)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2511455)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2491683)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2510531)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2509553)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2544893)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2503665)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2536275)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Update for Windows Embedded Standard 7 (KB2552343)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2532531)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2536276)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2560656)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2564958)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2620704)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2570947)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2584146)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2631813)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2585542)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2654428)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2621440)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2653956)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2676562)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2690533)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Update for Windows Embedded Standard 7 (KB2718704)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2685939)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2667402)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2698365)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2691442)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2655992)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2719985)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2712808)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2743555)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2705219)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2727528)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2719033)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2716513)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2770660)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2758857)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2757638)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2785220)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2789645)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2807986)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Update for Windows Embedded Standard 7 (KB2533552)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2813347)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2840149)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2813430)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Security Update for Windows Embedded Standard 7 (KB2839894)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
   Case UCASE("Update for Windows Embedded Standard 7 (KB2808679)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
'************************************
    '* Added 7/2/2014 - HMT
    '************************************
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2957689)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2931356)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2871997)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2926765)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2939576)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2957189)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2957503)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2957509)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2965788)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Update for Windows Embedded Standard 7 (KB2834140)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Update for Windows Embedded Standard 7 (KB2882822)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
'************************************
    '* Added 8/15/2014 - HMT
    '************************************
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2962872)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2961072)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2971850)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2972280)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2973201)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2973351)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
'************************************
    '* Added 10/7/2014 - HMT
    '************************************
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2976627)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2937610)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2943357)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2918614)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2976897)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2978668)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Update for Windows Embedded Standard 7 (KB2981580)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
'************************************
    '* Added 10/28/2014 - HMT
    '************************************
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2993651)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2972211)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2973112)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2968294)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2972100)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2977292)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2979570)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2984972)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB2987107)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3000061)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3000869)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."

'************************************
    '* Added 2/16/2015 - HMT
    '************************************
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2894844)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2992611)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2991963)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3005607)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3006226)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3010788)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3002885)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB2978120)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3003743)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB2993958)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3011780)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB3003057)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3013126)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB3008923)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3012176)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3019978)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3022777)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3019215)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3021674)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3031432)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3004375)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB3021952)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3013455)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3023562)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3004361)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3029944)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
'************************************
    '* Added 6/11/2015 - HMT
    '************************************
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3033929)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3033889)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3039066)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3032323)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3035132)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3030377)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3035126)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3035017)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3042553)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3046269)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3045999)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3045685)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3046482)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB3037574)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3046306)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3046002)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3045171)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3061518)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB3048070)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3055642)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB3023215)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Microsoft .NET Framework 3.5.1 on Windows 7 SP1 x86 (KB3032655)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3063858)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3033890)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3057839)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Security Update for Windows Embedded Standard 7 (KB3059317)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."
Case UCASE("Cumulative Security Update for Internet Explorer 8 for Windows Embedded Standard 7 (KB3058515)")
   oUpdatesToInstall.Add(oUpdate)
   iUpdateCount = iUpdateCount + 1
   WScript.Echo vbCRLF & oUpdate.Title & " Added for install."
   oRunLog.WriteLine oUpdate.Title & " Added for install."

   Case Else
   oPatchLog.WriteLine oUpdate.Title
   End Select
   End If
   End If
   Else 
   'Update is installed so notify user and quit
   WScript.Echo vbCRLF & oUpdate.Title & " Update applicable, already installed."
   End If
Next
'If at least one update has been added to the update collection then attempt to download the update(s) in the update collection
'before starting the installation process.
If (iUpdateCount > 0) Then
WScript.Echo vbCRLF & "Preparing to download and install " & iUpdateCount & " updates..."
oRunLog.WriteLine Now() & "-" & "Preparing to download and install " & iUpdateCount & " updates..."
'Download updates
Set oDownloader = oUpdateSession.CreateUpdateDownloader()
WScript.Echo vbCRLF & "Preparing Downloading Updates..."
oRunLog.WriteLine Now() & "-" & " Preparing Downloading Updates..."
If (IsNull(oUpdatesToInstall)) Then
WScript.Echo vbCRLF & "Updates are NULL..."
End If
WScript.Echo vbCRLF & "Downloading Updates..."
oRunLog.WriteLine Now() & "-" & "Downloading Updates..."
oDownloader.Updates = oUpdatesToInstall
Set oDownloaderResult = oDownloader.Download()
If Err.Number <> 0 Then
oRunLog.WriteLine Now() & "Failed at downloading: " & Err.Number & "-" &  Err.Source & "-" &  Err.Description
End If
'Output the result of the download
WScript.Echo "Download Result: " & oDownloaderResult.ResultCode
Select Case oDownloaderResult.ResultCode
Case 2
oRunLog.WriteLine Now() & "-" & "Download Result: Success"
Case 1
oRunLog.WriteLine Now() & "-" & "Download Result: In Progress"
Case 3
oRunLog.WriteLine Now() & "-" & "Download Result: Complete with errors"
Case 4
oRunLog.WriteLine Now() & "-" & "Download Result: Failure"
Case 5
oRunLog.WriteLine Now() & "-" & "Download Result: Aborted"
End Select
'Install Updates
Set oInstaller = oUpdateSession.CreateUpdateInstaller()
WScript.Echo vbCRLF & "Installing..."
oRunLog.WriteLine Now() & "-" & "Installing..."
oInstaller.Updates = oUpdatesToInstall
Set oInstallResult = oInstaller.Install()
If Err.Number <> 0 Then
oRunLog.WriteLine Now() & "Failed at installing: " & Err.Number & "-" &  Err.Source & "-" &  Err.Description
End If

'Output the result of the installation
WScript.Echo "Installation Result: " & oInstallResult.ResultCode
Select Case oInstallResult.ResultCode
Case 2
oRunLog.WriteLine Now() & "-" & "Installation Result: Success"
Case 1
oRunLog.WriteLine Now() & "-" & "Installation Result: In Progress"
Case 3
oRunLog.WriteLine Now() & "-" & "Installation Result: Complete with errors"
Case 4
oRunLog.WriteLine Now() & "-" & "Installation Result: Failure"
Case 5
oRunLog.WriteLine Now() & "-" & "Installation Result: Aborted"
End Select
WScript.Echo "Reboot Required: " & oInstallResult.RebootRequired
oRunLog.WriteLine Now() & "-" & "Reboot Required: " & oInstallResult.RebootRequired

   'The Code below will execute a reboot of the player.  This code is currently commented out and will only be used when decided it is necessary.
   'The on going plan is to allow the player to reboot with the scheduled monthly reboot.
            If (oInstallResult.RebootRequired = -1) Then
                'WScript.Echo "Rebooting..."
       'oShell.Run "C:\Windows\System32\shutdown.exe -r -t 0"
            End If
Else
WScript.Echo "No updates found..."
oRunLog.WriteLine Now() & "-" & "No updates found..."
End If
Else
WScript.Echo "This script is designed to be run on a POSReady7 Player and will therefore not be executed."
oRunLog.WriteLine Now() & "-" & "This script is designed to be run on a POSReady7 Player and will therefore not be executed."
End If
Else
WScript.Echo "This script is already processing and will be skipped."
oRunLog.WriteLine Now() & "-" & "This script is already processing and will be skipped."
End If

'Close file handles
oRunLog.Close
oPatchLog.Close

Answered 07/27/2015 by: htomlinson
Purple Belt

Please log in to comment
0
Yes - those options changed at one point. The Reboot Later prompts have to be specified and can't be indefinite. We had to adjust to that but we set it really high and technically your patches aren't fully applied until a reboot anyway...
Answered 07/23/2015 by: jegolf
Red Belt

  • lol - You are preaching to the choir. We have a lot of research scientists who often run a report or test that can be busy for weeks or longer. The money lost by stopping one of those wins over the getting the machines rebooted. Yes, I've argued the possibility of losing it all due to vulnerabilities...

    That's a big mistake on Kace's part. They used to listen to us customers better (pre Dell and no, I'm not a Mac junky :-) ). I'm already trying to keep Kace and not move to Big Fix and stuff like this doesn't help.

    We'll have to kill the reboots altogether, and force our staff to click at least be annoyed by a prompt to let them know patching is happening in the background.

    Kace, please bring in an option to patch without forcing a reboot and only have one notification at patch completion. We don't need to tell them it started, it's progress and also that it's done. :-)
    • We use a vbscript to push out our updates and kill the reboot. This also give us the ability to control exactly what updates get installed. I can post an example if you are interested.
      • Sure. Always happy to dig into a script whether we end up using it or not. Never hurts to look.
Please log in to comment
Answer this question or Comment on this question for clarity