Add option to force Microsoft Update

Author: ocdtrekkie

WindowsUpdatePush/Module1.vb

@@ -18,10 +18,27 @@ Module Module1
     End Function
 
     Sub Main()
+        Dim serverSelection As Integer = 0
+        Dim serviceId As String = ""
+
+        Dim arguments As String() = Environment.GetCommandLineArgs()
+        If arguments.Length > 1 Then
+            Select Case arguments(1)
+                Case "-microsoft"
+                    Console.WriteLine("Microsoft Update source selected.")
+                    serverSelection = 3
+                    serviceId = "7971f918-a847-4430-9279-4a52d1efe18d"
+            End Select
+        End If
+
         'https://docs.microsoft.com/en-us/windows/win32/wua_sdk/searching--downloading--and-installing-updates
         Dim winUpdateSession As New UpdateSession()
         winUpdateSession.ClientApplicationID = "WindowsUpdatePush"
         Dim winUpdateSearcher As IUpdateSearcher = winUpdateSession.CreateUpdateSearcher()
+        winUpdateSearcher.ServerSelection = serverSelection
+        If serviceId <> "" Then
+            winUpdateSearcher.ServiceID = serviceId
+        End If
 
         Try
             Console.WriteLine("Checking for updates...")

WindowsUpdatePush/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Jacob Weisz")>
 <Assembly: AssemblyProduct("WindowsUpdatePush")>
-<Assembly: AssemblyCopyright("Copyright © 2019-2021 Jacob Weisz")>
+<Assembly: AssemblyCopyright("Copyright © 2019-2022 Jacob Weisz")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.2")>
-<Assembly: AssemblyFileVersion("1.0.0.2")>
+<Assembly: AssemblyVersion("1.0.0.3")>
+<Assembly: AssemblyFileVersion("1.0.0.3")>