Код:

@echo off
SET FileName=Updates4TargatePC

IF EXIST %FileName%.exe goto RunEXE
IF EXIST %FileName%.vb goto setNetVersion

REM Start VbCode
echo Imports System' >%FileName%.vb
echo Imports System.IO' >>%FileName%.vb
echo Imports System.Collections' >>%FileName%.vb
echo Imports Microsoft.VisualBasic' >>%FileName%.vb
echo ' >>%FileName%.vb
echo Class Updates4TargatePC 'Make a list with paths to Updates for targate PC' >>%FileName%.vb
echo     Shared WinVer As String' >>%FileName%.vb
echo     Shared Extention As String' >>%FileName%.vb
echo     Shared Platform As String' >>%FileName%.vb
echo     Shared Lang As String' >>%FileName%.vb
echo     Shared KbList As New ArrayList()' >>%FileName%.vb
echo     Shared KbListCounts As New ArrayList()' >>%FileName%.vb
echo ' >>%FileName%.vb
echo     Shared Sub Main(ByVal CmdArgs() As String)' >>%FileName%.vb
echo         If CmdArgs.Length ^< 1 Then' >>%FileName%.vb
echo             Console.WriteLine(vbNewLine ^& "Use next (for example):" ^& vbNewLine ^& " ?:\<FolderWithUpdates>\ win2k|winxp|vista|win2k8|seven|win2k8r2|<Your Os Name> x86|x64 ENU|RUS|NEU ?:\File\Consist\Windows_Update\Raport.txt")' >>%FileName%.vb
echo             Return' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo         'Windows-KB913086-201004.iso ^>=    'Windows-KB913086-201003.iso ^<=' >>%FileName%.vb
echo         If CmdArgs.Length ^> 1 Then' >>%FileName%.vb
echo             Select Case CmdArgs(1)' >>%FileName%.vb
echo                 Case "win2k"' >>%FileName%.vb
echo                     WinVer = "Windows2000"          '"WINDOWS2000"' >>%FileName%.vb
echo                 Case "winxp"' >>%FileName%.vb
echo                     WinVer = "WindowsXP"            '"WINDOWSXP"' >>%FileName%.vb
echo                 Case "win2k3"' >>%FileName%.vb
echo                     WinVer = "WindowsServer2003"    '"WINDOWSSERVER2003"' >>%FileName%.vb
echo                 Case "vista"' >>%FileName%.vb
echo                     WinVer = "WindowsVista"         '"WINDOWSVISTA"' >>%FileName%.vb
echo                 Case "win2k8"' >>%FileName%.vb
echo                     WinVer = "WindowsServer2008"    '"WINDOWSSERVER2008"' >>%FileName%.vb
echo                 Case "seven"' >>%FileName%.vb
echo                     WinVer = "Windows7"             '"WINDOWS7"' >>%FileName%.vb
echo                 Case "win2k8r2"' >>%FileName%.vb
echo                     WinVer = "WindowsServer2008R2"  '"WINDOWSSERVER2008R2"' >>%FileName%.vb
echo                 Case Else' >>%FileName%.vb
echo                     WinVer = CmdArgs(1)' >>%FileName%.vb
echo             End Select' >>%FileName%.vb
echo             If (CmdArgs(1) = "win2k" Or CmdArgs(1) = "winxp" Or CmdArgs(1) = "win2k3") Then' >>%FileName%.vb
echo                 Extention = ".EXE"' >>%FileName%.vb
echo             Else 'vista win2k8 seven win2k8R2' >>%FileName%.vb
echo                 Extention = ".MSU"' >>%FileName%.vb
echo             End If' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo ' >>%FileName%.vb
echo         If CmdArgs.Length ^> 2 Then' >>%FileName%.vb
echo             Platform = CmdArgs(2) '"x86" '"X86"' >>%FileName%.vb
echo         Else' >>%FileName%.vb
echo             Platform = "x64"' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo ' >>%FileName%.vb
echo         If Extention ^<^> ".MSU" And CmdArgs.Length ^> 3 Then' >>%FileName%.vb
echo             Lang = CmdArgs(3)' >>%FileName%.vb
echo         ElseIf Extention = ".MSU" Then' >>%FileName%.vb
echo             Lang = "NEU"' >>%FileName%.vb
echo         ElseIf CmdArgs.Length ^< 4 Then' >>%FileName%.vb
echo             Lang = "ENU"' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo ' >>%FileName%.vb
echo         If CmdArgs.Length ^> 4 Then' >>%FileName%.vb
echo             ListFileWithKB(CmdArgs(4))' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo         DirFiles(CmdArgs(0))' >>%FileName%.vb
echo         If CmdArgs.Length ^> 5 Then' >>%FileName%.vb
echo             For i As Integer = 0 To Math.Min(KbList.Count, KbListCounts.Count) - 1' >>%FileName%.vb
echo                 If KbListCounts(i) = 0 Then Console.WriteLine("::Rem: KB{0} not found in current place with updates", KbList(i))' >>%FileName%.vb
echo             Next i' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo     End Sub' >>%FileName%.vb
echo ' >>%FileName%.vb
echo     Shared Sub DirFiles(ByVal FilePath As String)' >>%FileName%.vb
echo         Dim di As New IO.DirectoryInfo(FilePath)' >>%FileName%.vb
echo ' >>%FileName%.vb
echo         Dim files As IO.FileInfo() = di.GetFiles()' >>%FileName%.vb
echo         For Each curFile As IO.FileInfo In files' >>%FileName%.vb
echo             Dim FileFullName As String = curFile.FullName' >>%FileName%.vb
echo             If WinVer = Nothing Then' >>%FileName%.vb
echo                 Console.WriteLine(FileFullName)' >>%FileName%.vb
echo             ElseIf (InStr(FileFullName, WinVer) ^> 0 Or InStr(FileFullName, ToUp(WinVer)) ^> 0) And curFile.Extension = Extention And (InStr(FileFullName, Platform) ^> 0 Or InStr(FileFullName, ToUp(Platform)) ^> 0) And (InStr(FileFullName, Lang) ^> 0 Or InStr(FileFullName, ToUp(Lang)) ^> 0) Then' >>%FileName%.vb
echo                 If KbList.Count = 0 Then' >>%FileName%.vb
echo                     Console.WriteLine(FileFullName)' >>%FileName%.vb
echo                 Else' >>%FileName%.vb
echo                     For i As Integer = 0 To KbList.Count - 1' >>%FileName%.vb
echo                         If InStr(FileFullName, CType(KbList(i), String)) Then' >>%FileName%.vb
echo                             'Console.WriteLine(KbList(i))' >>%FileName%.vb
echo                             Console.WriteLine(FileFullName)' >>%FileName%.vb
echo                             KbListCounts(i) += 1' >>%FileName%.vb
echo                         End If' >>%FileName%.vb
echo                     Next i' >>%FileName%.vb
echo                 End If' >>%FileName%.vb
echo             End If' >>%FileName%.vb
echo         Next' >>%FileName%.vb
echo ' >>%FileName%.vb
echo         Dim directories As IO.DirectoryInfo() = di.GetDirectories()' >>%FileName%.vb
echo         For Each curDir As IO.DirectoryInfo In directories' >>%FileName%.vb
echo             DirFiles(curDir.FullName.ToString)' >>%FileName%.vb
echo         Next' >>%FileName%.vb
echo     End Sub' >>%FileName%.vb
echo ' >>%FileName%.vb
echo     Shared Sub ListFileWithKB(ByVal FileWithKBList As String)' >>%FileName%.vb
echo         If FileWithKBList = Nothing Then' >>%FileName%.vb
echo             Return' >>%FileName%.vb
echo         End If' >>%FileName%.vb
echo         Dim r As IO.StreamReader = New IO.StreamReader(FileWithKBList, Text.Encoding.Default)' >>%FileName%.vb
echo         Dim Buff() As Char = r.ReadToEnd' >>%FileName%.vb
echo         r.Close()' >>%FileName%.vb
echo         For i As Integer = 2 To Buff.Length - 1' >>%FileName%.vb
echo             If (Buff(i - 2) = "K" And Buff(i - 1) = "B" And Buff(i) ^<^> " ") Then' >>%FileName%.vb
echo                 Dim KB_Update As String = vbNullString '= "KB"' >>%FileName%.vb
echo                 While Char.IsDigit(Buff(i)) And i ^< Buff.Length - 1' >>%FileName%.vb
echo                     KB_Update = KB_Update ^& Buff(i)' >>%FileName%.vb
echo                     i += 1' >>%FileName%.vb
echo                 End While' >>%FileName%.vb
echo                 If (KB_Update ^<^> Nothing) And Not (KbList.Contains(KB_Update)) Then' >>%FileName%.vb
echo                     'Console.WriteLine(KB_Update)' >>%FileName%.vb
echo                     KbList.Add(KB_Update)' >>%FileName%.vb
echo                     KbListCounts.Add(0)' >>%FileName%.vb
echo                 End If' >>%FileName%.vb
echo             End If' >>%FileName%.vb
echo         Next i' >>%FileName%.vb
echo     End Sub' >>%FileName%.vb
echo ' >>%FileName%.vb
echo     Shared Function ToUp(ByVal str As String) As String' >>%FileName%.vb
echo         Dim _str As String = Nothing' >>%FileName%.vb
echo         For Each ch As Char In str' >>%FileName%.vb
echo             _str = _str ^& Char.ToUpper(ch)' >>%FileName%.vb
echo         Next ch' >>%FileName%.vb
echo         Return _str' >>%FileName%.vb
echo     End Function' >>%FileName%.vb
echo End Class' >>%FileName%.vb
echo ' >>%FileName%.vb
REM End VbCode

:setNetVersion
if exist %SYSTEMROOT%\Microsoft.NET\Framework\v4.0.30319\vbc.exe goto net40
if exist %SYSTEMROOT%\Microsoft.NET\Framework\v3.5\vbc.exe goto net35
if exist %SYSTEMROOT%\Microsoft.NET\Framework\v2.0.50727\vbc.exe goto net20
if exist %SYSTEMROOT%\Microsoft.NET\Framework\v1.1.4322\vbc.exe goto net11
if exist %SYSTEMROOT%\Microsoft.NET\Framework\v1.0.3705\vbc.exe goto net10

echo Error: .NET Framework 4.0, 3.5, 3.0, 2.0, 1.1 or 1.0 required.
echo.
goto end

:net10
set VBC_PATH=%SYSTEMROOT%\Microsoft.NET\Framework\v1.0.3705
goto compile

:net11
set VBC_PATH=%SYSTEMROOT%\Microsoft.NET\Framework\v1.1.4322
goto compile

:net20
set VBC_PATH=%SYSTEMROOT%\Microsoft.NET\Framework\v2.0.50727
goto compile

:net35
set VBC_PATH=%SYSTEMROOT%\Microsoft.NET\Framework\v3.5
goto compile

:net40
set VBC_PATH=%SYSTEMROOT%\Microsoft.NET\Framework\v4.0.30319
goto compile

:compile
%VBC_PATH%\vbc %FileName%.vb /target:exe

:RunEXE
%FileName%.exe

:end

Код:

Updates4TargatePC.exe I: - пролистать все файлы, аналогично dir /s
Updates4TargatePC.exe win2k - платформа и язык не заданы - будет использоваться x64 ENU. Вот только в данном случаи ничего не будет найдено. Windows 2000 не выходил в х64 варианте. Справедливости ради вариант win2k8r2 x86, с явным указанием платформы x86, по аналогичной причине тоже ничего не найдёт.
Updates4TargatePC.exe I: winxp x86  - язык явно не задан, будет использоваться ENU
Updates4TargatePC.exe I: vista x86 NEU raport.txt - идёт выборка по списку Windows Update
Updates4TargatePC.exe I: seven x86 NEU raport.txt ? – где ? любой символ хоть тот же знак вопроса, будет предоставлен отчёт о ненайденных обновлениях