Полный набор обновлений для Microsoft Windows и Office x86/x64 (17.09.21) [Multi/Ru]

Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Внимание! Раздача ведётся путём добавления обновлений; при каждом добавлении создаётся новый торрент. Чтобы начать докачку новой серии, пользователям необходимо сделать следующее:
(1) остановить скачивание,
(2) удалить старый торрент у себя из клиента (старые серии удалять не надо),
(3) скачать новый торрент и запустить его у себя в клиенте вместо старого, при этом указать клиенту путь в старую папку куда и должно происходить скачивание .
Ваш клиент при этом должен произвести хеширование (проверку) старой папки (если не производит сам - помогите ему сделать это), и будет докачивать только те серии которых у вас ещё нет. Старые серии при этом не удаляются, а продолжают раздаваться!

Совместимость с XP, Vista, server 2003, 7 ,8, 10(1803- ): нет
Совместимость с 8.1,10(1809 1909 2004 20h1 20h2): да
Все обновления, для русских и английских версий
8.1 (x86 и x64),10 (x86 и x64), 2012 Server R2, 2019 Server.
2013(x86 и x64),2016(x86 и x64).
Программа сама определяет каких обновлений не хватает в ОС и устанавливает их автоматически.

Доп. информация: При нехватке места или лимитном интернете можно не качать папки ненужных ОС
w63 -Windows 8.1 x86,
w63-x64 -Windows 8.1 x64, Windows server 2012 R2 x64
w100 -Windows 10 x86
w100-x64 -Windows 10 x64, Windows server 2019 x64
dotnet -Net Framework
o2k13 -Office 2013
o2k16 -Office 2016
Сервиспаки - сервиспаки для project , visio, sharepoint designer 2013 (устанавливаются вручную)--

УСТАНОВКА запускаете
UpdateInstaller.exe желательно от имени администратора. Выбираете галочками нужные компоненты в обоих окнах Updating и Essentials.Нажимаете Start и ждете пока завершится процесс. Если в конце будет предложено перезагрузить ПК, сделайте это и после перезагрузки запустите UpdateInstaller.exe снова и сразу нажимайте Start для продолжения установки обновлений. Таких манипуляций придется сделать несколько раз. Некоторые обновления всё равно будут устанавливаться онлайн с сервера обновлений Майкрософта, а не из этой базы обновлений. В процессе установки обновлений крайне нежелательно одновременно устанавливать какие-либо сторонние программы, будут "ругаться" друг на друга.-

Удаление_старых_обновлений_MS_Office.cmd не большой файлик удаляющий устаревшие обновления (при первом запуске у меня очистил около 10гб )