Знаете как часто бывает вот чего нибудь не то сделаешь а потом мучаешься. Вот и я пару дней назад "сделал вещь" и потерял всю сисему свою на компе со всеми обновлениями итд, или еще ситуация надо системку обновить, а она не лицензионная а охота, а сайтик не пускает на страницу загрузки или надо установить обновления на много компов а траффик ограничен, тогда Вам пригодится програмка
Windows Update Downloader
Работает она просто - как грабли качаем с оф сайта
http://wud.jcarle.com/ саму прогу(150kb) и нахордите на том же листе список программ и на каком она языке. качаем этот файл списка (рядом с файлом списка дата его создания, что очень удобно- вы всегда в курсе всех новых обновлений). Запускаем этот файлик списка программой Windows Update Downloader и вуаля списки всех обновлений у вас перед глазами осталось только отметить галочкой нужные и нажать на Download и все процесс пошел когда он закончится на диске C в папке Dowloads образуются папочки с обновлениями - каждому типу прог своя папка. они все у вас всегда под руками и их можно перенести на какой угодно диск и использовать где угодно. Далее можно конечно тупо запускать подрят каждую из прог обновлений(а их около 100) и перегружать комп, но можно сделать по другому:
Создаем текстовый файл любой
и впихиваем туда следующий код:
читать дальшеDim WshShell
Dim FSO, F, F1, FC
Dim keys
KBV = "1.20"
Set WshShell = Wsсriрt.CreateObject("Wsсriрt.Shell")
Set FSO = CreateObject("sсriрting.FileSystemObject")
Set F = FSO.GetFolder(WshShell.CurrentDirectory)
Set FC = F.Files
' Get Updates List
Dim i
i=0
For Each F1 in FC
If UCase(left(F1.Name,12))="WINDOWSXP-KB" and UCase(right(F1.Name,12))="-X86-RUS.EXE" then
ReDim Preserve Updates(i)
Updates(i)=F1.Name
i=i+1
End IF
Next
Set F = Nothing
Set FC = Nothing
Set F1 = Nothing
BubbleSort Updates, False
if MsgBox("Вы действительно хотите установить" & Chr(13) & " Windows XP Pre Service Pack 3 Russian?", 292, "Windows XP PreSP3 RUS")=6 then
keys = " /passive /norestart"
If MsgBox("Сохранять файлы, необходимые для отмены установки?", 36, "Windows XP PreSP3 RUS")=7 then keys = keys & " /n"
If FSO.FileExists("Windows-KB890830-V" & KBV & ".exe") then WSHShell.Run "Windows-KB890830-V" & KBV & ".exe /Q", 1, True
InstallUpdates keys
else
if MsgBox("Вы хотите интегрировать Windows XP PreSP3 RUS в дистрибутив?", 292, "Интеграция Windows XP PreSP3 RUS")=6 then
i386 = InputBox("Введите полный путь к дистрибутиву Windows XP Service Pack 2 Russian, в который хотите произвести интеграцию обновлений PreSP3:", "Путь к дистрибутиву")
if Right(i386,1)<>"\" then i386 = i386 & "\"
if FSO.FileExists(i386 & "win51ip.sp2") then
keys = " /passive /integrate:" & i386
IntegrateUpdates keys
MsgBox "Интеграция обновлений PreSP3 в дистрибутив закончена.", 64, "Интеграция"
else
MsgBox "Указанный путь не является дистрибутивом Windows XP Service Pack 2.", 16, "Ошибка"
end if
else
if MsgBox("Вы хотите УДАЛИТЬ обновления" & Chr(13) & " Windows XP Pre Service Pack 3 Russian?", 292, "Деинсталяция Windows XP PreSP3 RUS")=6 then
keys = " /passive /norestart /uninstall"
UninstallUpdates keys
end if
end if
end if
'Установка обновлений
Sub InstallUpdates(keys)
For i=0 to Ubound(Updates)
WshShell.Run Updates(i) & keys, 1, True
Next
WSHShell.Run "qchain.exe", 0, True
if MsgBox("Установка Windows XP Pre Service Pack 3 Russian завершена, " & chr(13) & "необходима презагрузка. Выполнить перезагрузку сейчас?", 292, "Windows XP PreSP3 RUS")=6 then
WSHShell.Run "shutdown.exe -r -f -t 00", 0
end if
End Sub
'Интеграция обновлений
Sub IntegrateUpdates (keys)
Dim svcpack, HFINT, FixesInstalled, Branches, Fixes
FixesInstalled="[FixesInstalled]" & Chr(13) & Chr(10)
Branches= "[BRANCHES]" & Chr(13) & Chr(10)
svcpack=Mid(UCase(keys),InStr(UCase(keys),":")+1,InStrRev(UCase(keys),":")-1) & "\i386\SVCPACK"
svcpack=Replace(svcpack,"\\","\")
if FSO.FileExists(svcpack & "\HFINT.DAT") then
if MsgBox("Программа установки обнаружила, что некоторые обновления уже интегрированы в дистрибутив. Если среди них есть обновления, не вошедшие в текущий Windows XP Pre Service Pack 3 Russian, то они будут потеряны, и вам придется произвести интеграцию этих обновлений вновь самостоятельно. Желаете продолжить интеграцию?", 292, "Windows XP PreSP3 RUS")=6 then
FSO.DeleteFile svcpack & "\HFINT.DAT"
end if
end if
Set F = FSO.GetFolder(WshShell.CurrentDirectory)
Set FC = F.Files
For i=0 to Ubound(Updates)
WshShell.Run Updates(i) & keys, 1, True
FSO.MoveFile svcpack & "\HFINT.DAT", svcpack & "\" & Left(Updates(i),Len(Updates(i))-4) & ".HFINT"
Next
Set F = FSO.GetFolder(svcpack)
Set FC = F.Files
For Each F1 in FC
If UCase(left(F1.Name,12))="WINDOWSXP-KB" and UCase(right(F1.Name,6))=".HFINT" then
Set HFINT = F1.OpenAsTextStream
if not HFINT.AtEndOfStream then buff = HFINT.Readline
if buff = "[FixesInstalled]" and not HFINT.AtEndOfStream then
FixesInstalled = FixesInstalled & HFINT.ReadLine & Chr(13) & Chr(10)
end if
if not HFINT.AtEndOfStream then buff = HFINT.Readline
if buff = "[BRANCHES]" and not HFINT.AtEndOfStream then
Branches = Branches & HFINT.ReadLine & Chr(13) & Chr(10)
end if
if not HFINT.AtEndOfStream then Fixes = Fixes & HFINT.ReadAll
HFINT.Close
Set HFINT = Nothing
F1.Delete
End IF
Next
Set HFINT = FSO.OpenTextFile(svcpack & "\HFINT.DAT",2,True)
HFINT.Write FixesInstalled
HFINT.Write Branches
HFINT.Write Fixes
HFINT.Close
Set HFINT = Nothing
Set F = Nothing
Set FC = Nothing
Set F1 = Nothing
End Sub
'Деинсталяция обновлений
Sub UninstallUpdates(keys)
For i=0 to UBound(Updates)
WshShell.Run Updates(i) & keys, 1, True
Next
if MsgBox("Деинсталяция Windows XP Pre Service Pack 3 Russian завершена, " & chr(13) & "необходима презагрузка. Выполнить перезагрузку сейчас?", 292, "Деинсталяция завершена")=6 then
WSHShell.Run "shutdown.exe -r -f -t 00", 0
End if
End Sub
Sub BubbleSort(ByRef x, ByVal t)
for i=0 to Ubound(x)-1
for j=Ubound(x) to i+1 step -1
if (x(j-1)>x(j) and t) or (x(j-1)<x(j) and not t) then
g = x(j-1)
x(j-1)= x(j)
x(j) = g
end if
next
next
End Sub
все элементарно просто далее сохраняем текстовик. Потом переименовываем его в тотал командере(или где еще) в setup.vbs (или еще как нить но чтобы расширение было VBS).
потом качаем у меня
этот архивчик. Распаковываем его в каждую папку с обновлениями вместе с выше созданным setup.vbs файлом. Потом просто запускаем setup.vbs жмем ДА и идем пить чай минут на 20 пока обновления установятся. Потом перегружаем комп. И после перезагрузки получаем обновленную ось.