WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Determining if a Particular Update has Been Installed


;Determining if a Particular Update has Been Installed
objSession = CreateObject("Microsoft.Update.Session")
objSearcher = objSession.CreateUpdateSearcher
objResults = objSearcher.Search("Type='Software'")
colUpdates = objResults.Updates

For i = 0 To colUpdates.Count - 1
    If colUpdates.Item(i).Title == "Microsoft Windows Rights Management Services Client with Service Pack 1" Then
        If colUpdates.Item(i).IsInstalled <> 0 Then
            Pause("Notice", "This update is installed." )
            Exit
        Else
            Pause("Notice", "This update is not installed." )
            Exit
        End If
    End If
Next

Article ID:   W17434
File Created: 2008:04:10:15:10:22
Last Updated: 2008:04:10:15:10:22