Archive

Posts Tagged ‘Automatic Updates’

Automatic Updates on Windows Server 2008 Server Core (and how to do it manually)

April 28, 2009 Leave a comment

Here are the commands which you can use to modify Automatic Updates settings on Server Core installation:

* To view the status of Automatic Updates:
cscript SCregEdit.wsf /AU /v
* Enable Automatic Updates:
cscript SCregEdit.wsf /AU 4
Net stop wuauserv
Net start wuauserv

* Disable Automatic Updates:
cscript SCregEdit.wsf /AU 1
Net stop wuauserv

* Forcing update check:
Wuauclt /detectnow
* Checking which updates are installed:
wmic qfe list

Now how to do it manually? Here are the steps:

1. Copy and pate the following script to NotePad on the Core installation:
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

2. Save the file as WUA_SearchDownloadInstall.vbs.
3. Go to the folder where your WUA script is saved and run:
cscript WUA_SearchDownloadInstall.vbs [Enter]
4. Answer Y to install the found updates, once finished Reboot Required: True flag is raised. If so use the command:
shutdown /r /t 20
Don’t forget to shutdown your running virtual machines first.

-Eric