Поиск, скачивание и установка обновлений

Стал разбираться с windows 2008 core и понял что не могу установить обновления, графической оболочки то нет. Нашёл интересный скрипт на vbs (не вижу смысла заморачиваться с PoSh так как в core его всё равно нет ).

WUA_SearchDownloadInstall.vbs

Set updateSession = CreateObject(«Microsoft.Update.Session»)
Set updateSearcher = updateSession.CreateupdateSearcher()

WScript.Echo «Searching for updates…» & vbCRLF

Set searchResult = _
updateSearcher.Search(«IsInstalled=0 and Type=’Software’»)

WScript.Echo «List of applicable items on the machine:»

For I = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & «> » & update.Title
Next

If searchResult.Updates.Count = 0 Then
    WScript.Echo «There are no applicable updates.»
    WScript.Quit
End If

WScript.Echo vbCRLF & «Creating collection of updates to download:»

Set updatesToDownload = CreateObject(«Microsoft.Update.UpdateColl»)

For I = 0 to searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & «> adding: » & update.Title
    updatesToDownload.Add(update)
Next

WScript.Echo vbCRLF & «Downloading updates…»

Set downloader = updateSession.CreateUpdateDownloader()
downloader.Updates = updatesToDownload
downloader.Download()

WScript.Echo  vbCRLF & «List of downloaded updates:»

For I = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    If update.IsDownloaded Then
       WScript.Echo I + 1 & «> » & update.Title
    End If
Next

Set updatesToInstall = CreateObject(«Microsoft.Update.UpdateColl»)

WScript.Echo  vbCRLF & _
«Creating collection of downloaded updates to install:»

For I = 0 To searchResult.Updates.Count-1
    set update = searchResult.Updates.Item(I)
    If update.IsDownloaded = true Then
       WScript.Echo I + 1 & «> adding:  » & update.Title
       updatesToInstall.Add(update)   
    End If
Next

WScript.Echo  vbCRLF & «Would you like to install updates now? (Y/N)»
strInput = WScript.StdIn.Readline
WScript.Echo

If (strInput = «N» or strInput = «n») Then
    WScript.Quit
ElseIf (strInput = «Y» or strInput = «y») Then
    WScript.Echo «Installing updates…»
    Set installer = updateSession.CreateUpdateInstaller()
    installer.Updates = updatesToInstall
    Set installationResult = installer.Install()
    ‘Output results of install
    WScript.Echo «Installation Result: » & _
    installationResult.ResultCode
    WScript.Echo «Reboot Required: » & _
    installationResult.RebootRequired & vbCRLF
    WScript.Echo «Listing of updates installed » & _
     «and individual installation results:»
    For I = 0 to updatesToInstall.Count – 1
        WScript.Echo I + 1 & «> » & _
        updatesToInstall.Item(i).Title & _
        «: » & installationResult.GetUpdateResult(i).ResultCode        
    Next
End If

Оригинал тут