Check Windows Updates

Can you post a quick set of install instructions? I would like to get this installed on our network soon.

---

thanks a lot for this check!

since there are a lot of ms updates that are neither critical nor important, i wanted to have the test only check for a given subset of update-categories.

category scheme by microsoft can be found here:
[url]http://msdn.microsoft.com/en-us/library/windows/desktop/ff357803(v=vs.85).aspx[/url]

edit vbs to more complex search criteria:
[url]http://msdn.microsoft.com/en-us/library/windows/desktop/aa386526(v=VS.85).aspx[/url]

change code to this:
' critical updates E6CF1350-C01B-414D-A61F-263D14D133B4
' security updates 0FA1201D-4330-4FA8-8AE9-B877473B6441
Set searchResult = updateSearcher.Search("(IsInstalled=0 and Type='Software' and CategoryIDs contains '0FA1201D-4330-4FA8-8AE9-B877473B6441') or (IsInstalled=0 and Type='Software' and CategoryIDs contains 'E6CF1350-C01B-414D-A61F-263D14D133B4')")

since i am not a developer, please let me know if the code might be changed in a better way. at least it is working at my site. ;-)

sebastian

---

Great script.

I got an error due to win update being disabled. I've modified the script for this scenario. Put this in the top of "main":

''''''''''''''''''''''
' Main
''''''''''''''''''''''
Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")

If objAutoUpdate.ServiceEnabled "True" Then
Wscript.Echo "Windows Update service disabled on client. Please enable."
Wscript.Quit(intCritical)
End If

Set objSettings = objAutoUpdate.Settings

If objSettings.NotificationLevel = 1 Then
Wscript.Echo "Windows Update notification level is set to 'Never check for updated (not recommended)' - please change to 'Check for updates but let me choose wether to download and install them' or higher."
Wscript.Quit(intCritical)
End If

intResultDetect = objAutoUpdate.DetectNow

...

---

This was just what I needed, although bear in mind that NRPE can only handle 1024b of data in the return (unless custom compile), so the script causes an error if you have a lot of updates.

Easy work around was the addition of a length check, and truncation if needed:

If intImportant > 0 Then

If Len(importantNames) > 970 Then

importantNames = Left(importantNames, 970) & "..."

End If

---