Prodif

Updates necessary add to the DataStore.edb offline mode, how to do it correctly? We have a list of updates. p.s. just need to install 10 LTSB )

MarkJohnson Install clear win 7 sp1. Downloads kb3112343 ONLY, install & reboot. For the search updates .. Method №2 NTlite ...

Buenos, need help. The script works only with Internet, as correct to work without Internet ?? (from Win 7) ------------------------------------------------ Dim hideupdates(18) hideupdates(0) = "KB971033" hideupdates(1) = "KB2882822" hideupdates(2) = "KB2952664" hideupdates(3) = "KB2977759" hideupdates(4) = "KB2990214" hideupdates(5) = "KB3021917" hideupdates(6) = "KB3022345" hideupdates(7) = "KB3035583" hideupdates(8) = "KB3050265" hideupdates(9) = "KB3065987" hideupdates(10) = "KB3068708" hideupdates(11) = "KB3075249" hideupdates(12) = "KB3075851" hideupdates(13) = "KB3080149" hideupdates(14) = "KB3081954" hideupdates(15) = "KB3083324" hideupdates(16) = "KB3083710" hideupdates(17) = "KB3088195" hideupdates(18) = "KB3102810" Set WSHShell = CreateObject("WScript.Shell") Set updateSession = CreateObject("Microsoft.Update.Session") updateSession.ClientApplicationID = "MSDN Sample Script" Set updateSearcher = updateSession.CreateUpdateSearcher() Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0") Checkagain = "True" For K = 0 To 18 If Checkagain = "True" Then Checkagain = "False" CheckUpdates ParseUpdates End if Next Set objWshShell = nothing Set WSHShell = Nothing WScript.Quit Function ParseUpdates For I = 0 To searchResult.Updates.Count-1 Set update = searchResult.Updates.Item(I) strUpdateName = update.Title For j = 0 To UBound(hideupdates) if instr(1, strUpdateName, hideupdates(j), vbTextCompare) = 0 then Else strAllHidden = strAllHidden _ & vbcrlf & update.Title update.IsHidden = True' Checkagain = "True" end if Next Next End Function Function CheckUpdates Set updateSession = CreateObject("Microsoft.Update.Session") Set updateSearcher = updateSession.CreateUpdateSearcher() Set searchResult = _ updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0") End Function