This ModuleType uses VBScript to discover the list of patches installed on Agents

Microsoft.SystemCenter.Agent.PatchDiscoveryProvider (DataSourceModuleType)

This moduletype runs as a part of a Discovery and finds the list of all Operations Manager patches installed on Agents.

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<DataSourceModuleType ID="Microsoft.SystemCenter.Agent.PatchDiscoveryProvider" Accessibility="Internal" RunAs="System!System.PrivilegedMonitoringAccount" Batching="false">

  <Configuration>

    <xsd:element name="IntervalSeconds" type="xsd:integer"/>

    <xsd:element name="SyncTime" type="xsd:string"/>

    <xsd:element name="ComputerName" type="xsd:string"/>

    <xsd:element name="TimeoutSeconds" type="xsd:integer"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="IntervalSeconds" Selector="$Config/IntervalSeconds$" ParameterType="int"/>

    <OverrideableParameter ID="SyncTime" Selector="$Config/SyncTime$" ParameterType="string"/>

    <OverrideableParameter ID="TimeoutSeconds" Selector="$Config/TimeoutSeconds$" ParameterType="int"/>

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <DataSource ID="DiscoveryDataSource" TypeID="Windows!Microsoft.Windows.TimedScript.DiscoveryProvider">

          <IntervalSeconds>$Config/IntervalSeconds$</IntervalSeconds>

          <SyncTime>$Config/SyncTime$</SyncTime>

          <ScriptName>DiscoverAgentPatches.vbs</ScriptName>

          <Arguments>$MPElement$ $Target/Id$ $Config/ComputerName$</Arguments>

          <ScriptBody><Script>



' A script that enumerates Software Updates for MOM Agent (not MOM 2005 but higher versions)

' For use with Windows Scripting Host, CScript.exe or WScript.exe

' Copyright (c) Microsoft Corporation. All rights reserved.

' does NOT work agentlessly

'



Option Explicit



Const msiInstallStateNotUsed      = -7

Const msiInstallStateBadConfig    = -6

Const msiInstallStateIncomplete   = -5

Const msiInstallStateSourceAbsent = -4

Const msiInstallStateInvalidArg   = -2

Const msiInstallStateUnknown      = -1

Const msiInstallStateBroken       =  0

Const msiInstallStateAdvertised   =  1

Const msiInstallStateRemoved      =  1

Const msiInstallStateAbsent       =  2

Const msiInstallStateLocal        =  3

Const msiInstallStateSource       =  4

Const msiInstallStateDefault      =  5



Const momAgentComponentID        = "{60ADDA03-1710-4954-B299-A9F42DD889A6}"



Dim oArgs

Set oArgs = WScript.Arguments

if oArgs.Count &lt;&gt; 3 Then

   Wscript.Quit -1

End If



Dim SourceId, ManagedEntityId, TargetComputerID



SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

TargetComputerID = oArgs(2)





Dim oAPI, oAgentPatchDiscoveryData

Set oAPI = CreateObject("MOM.ScriptAPI")

set oAgentPatchDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)



Call DoPatchDiscovery(oAgentPatchDiscoveryData ) 

Call oAPI.Return(oAgentPatchDiscoveryData)

WScript.Quit





' Connect to Windows Installer object

Function DoPatchDiscovery(ByVal oDisc)

		On Error Resume Next

		Dim installer : Set installer = Nothing

		Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError

		

		Dim product, productList, count, path, patch, patchList, patchListString, oHealthServiceinstance

		On Error Resume Next

		Set productList = installer.ProductsEx("","",4) : CheckError

    

		patchListString = ""

		For count = 0 to (productList.Count-1)

			set product = productList.Item(count)

			path = installer.ComponentPath(product.ProductCode, momAgentComponentID)

			If path &lt;&gt; "" Then

				Set patchList = installer.PatchesEx(product.productCode, "", 7, 1)

				For Each patch In patchList

					patchListString = patchListString &amp;  patch.PatchProperty("DisplayName") &amp; "; "

				Next

			End If

		Next

		

		Set productList = Nothing

		

		Set oHealthServiceinstance = oDisc.CreateClassInstance("$MPElement[Name='SCLibrary!Microsoft.SystemCenter.HealthService']$")

		With oHealthServiceinstance

			.AddProperty "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputerID

			.AddProperty "$MPElement[Name='SCLibrary!Microsoft.SystemCenter.HealthService']/PatchList$", patchListString

		End With

		call oDisc.AddInstance(oHealthServiceinstance)

End Function





Sub CheckError

	Dim message, errRec

	If Err = 0 Then Exit Sub

	message = Err.Source &amp; " : " &amp; Hex(Err) &amp; ": " &amp; Err.Description

	If Not installer Is Nothing Then

		Set errRec = installer.LastErrorRecord

		If Not errRec Is Nothing Then message = message &amp; vbNewLine &amp; errRec.FormatText

	End If

	Wscript.Echo message

	Wscript.Quit 2

End Sub



								</Script></ScriptBody>

          <TimeoutSeconds>$Config/TimeoutSeconds$</TimeoutSeconds>

        </DataSource>

      </MemberModules>

      <Composition>

        <Node ID="DiscoveryDataSource"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.Discovery.Data</OutputType>

</DataSourceModuleType>