First commit

README.md

@@ -0,0 +1,2 @@
+Run `update.bat` as administrator. Based on: [https://superuser.com/a/893915](https://superuser.com/a/893915) ([http://msdn.microsoft.com/en-us/library/aa387102%28VS.85%29.aspx](http://msdn.microsoft.com/en-us/library/aa387102%28VS.85%29.aspx), [https://docs.microsoft.com/en-us/windows/win32/wua_sdk/searching--downloading--and-installing-updates](https://docs.microsoft.com/en-us/windows/win32/wua_sdk/searching--downloading--and-installing-updates))   
+No license.

update.bat

@@ -0,0 +1,5 @@
+@echo off
+setlocal
+cd /d "%~dp0"
+cscript //NoLogo update.vbs
+pause

update.vbs

@@ -0,0 +1,108 @@
+Set updateSession = CreateObject("Microsoft.Update.Session")
+'updateSession.ClientApplicationID = "MSDN Sample Script"
+Set updateSearcher = updateSession.CreateUpdateSearcher()
+WScript.Echo "Searching for updates..." & vbCRLF
+Set searchResult = _
+updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")
+
+If searchResult.Updates.Count = 0 Then
+	WScript.Echo "There are no applicable updates."
+	WScript.Quit
+End If
+
+Set userUpdatesToApply = CreateObject("System.Collections.ArrayList")
+Do While True
+	WScript.Echo "List of applicable items on the machine:"
+	For I = 0 To searchResult.Updates.Count-1
+		Set update = searchResult.Updates.Item(I)
+		WScript.Echo "> " & I & ": " & update.Title
+	Next
+
+	WScript.Echo ""
+	WScript.StdOut.Write "List of items to apply on the machine: "
+	For I = 0 to userUpdatesToApply.Count-1
+		WScript.StdOut.Write userUpdatesToApply.Item(I) & ", "
+	Next
+	WScript.Echo ""
+	WScript.Echo ""
+	WScript.Echo "Enter a number and press RETURN to add an update to the queue."
+	WScript.Echo "Enter OK (capitalized) and press RETURN to start updating."
+	userInputUpdate = WScript.StdIn.Readline
+	If userInputUpdate = "OK" Then
+		Exit Do
+	End If
+	userUpdatesToApply.Add CInt(userInputUpdate)
+	WScript.Echo ""
+	WScript.Echo ""
+Loop
+
+WScript.Echo ""
+
+WScript.Echo vbCRLF & "Creating collection of updates to download:"
+Set updatesToDownload = CreateObject("Microsoft.Update.UpdateColl")
+
+For I = 0 to userUpdatesToApply.Count-1
+	Set update = searchResult.Updates.Item(userUpdatesToApply.Item(I))
+	addThisUpdate = false
+	If update.EulaAccepted = false Then
+		update.AcceptEula()
+		addThisUpdate = true
+	Else
+		addThisUpdate = true
+	End If
+	
+	If addThisUpdate = true Then
+		WScript.Echo I + 1 & "> adding: " & update.Title 
+		updatesToDownload.Add(update)
+	End If
+Next
+
+If updatesToDownload.Count = 0 Then
+	WScript.Echo "All applicable updates were skipped."
+	WScript.Quit
+End If
+
+WScript.Echo vbCRLF & "Downloading updates..."
+Set downloader = updateSession.CreateUpdateDownloader() 
+downloader.Updates = updatesToDownload
+downloader.Download()
+Set updatesToInstall = CreateObject("Microsoft.Update.UpdateColl")
+rebootMayBeRequired = false
+WScript.Echo vbCRLF & "Successfully downloaded updates:"
+For I = 0 To searchResult.Updates.Count-1
+	set update = searchResult.Updates.Item(I)
+	If update.IsDownloaded = true Then
+		WScript.Echo I + 1 & "> " & update.Title 
+		updatesToInstall.Add(update) 
+		If update.InstallationBehavior.RebootBehavior > 0 Then
+			rebootMayBeRequired = true
+		End If
+	End If
+Next
+
+If updatesToInstall.Count = 0 Then
+	WScript.Echo "No updates were successfully downloaded."
+	WScript.Quit
+End If
+
+If rebootMayBeRequired = true Then
+	WScript.Echo vbCRLF & "These updates may require a reboot."
+End If
+
+WScript.Echo ""
+WScript.Echo "Installing updates..."
+Set installer = updateSession.CreateUpdateInstaller()
+installer.Updates = updatesToInstall
+Set installationResult = installer.Install()
+'Output results of install
+WScript.Echo "Installation Result: " & _
+installationResult.ResultCode 
+WScript.Echo "Reboot Required: " & _ 
+installationResult.RebootRequired & vbCRLF 
+WScript.Echo "Listing of updates installed " & _
+"and individual installation results:" 
+For I = 0 to updatesToInstall.Count - 1
+	WScript.Echo I + 1 & "> " & _
+	updatesToInstall.Item(i).Title & _
+	": " & installationResult.GetUpdateResult(i).ResultCode   
+Next