Mise à jour 950050 d'ordinateur hôte Hyper-V de System Center Virtual Machine Manager 2019+

Microsoft.SystemCenter.VirtualMachineManager.HyperVHostUpdate950050Monitor (UnitMonitor)

Analyse si la mise à jour 950050 de l'ordinateur hôte Hyper-V de VMM est installée

Knowledge Base article:

Element properties:

Source Code:

<UnitMonitor ID="Microsoft.SystemCenter.VirtualMachineManager.HyperVHostUpdate950050Monitor" Accessibility="Public" Target="VMMDiscovery!Microsoft.SystemCenter.VirtualMachineManager.Discovery.HyperVHost" ParentMonitorID="Microsoft.SystemCenter.VirtualMachineManager.HyperVHostUpdatesRollup" Remotable="true" TypeID="Windows!Microsoft.Windows.TimedScript.TwoStateMonitorType" Enabled="false">

  <Category>AvailabilityHealth</Category>

  <AlertSettings AlertMessage="Microsoft.SystemCenter.VirtualMachineManager.HyperVHostUpdate950050Monitor.AlertMessage">

    <AlertOnState>Error</AlertOnState>

    <AutoResolve>true</AutoResolve>

    <AlertPriority>Normal</AlertPriority>

    <AlertSeverity>Error</AlertSeverity>

    <AlertParameters>

      <AlertParameter1>$Target/Host/Property[Type="Windows!Microsoft.Windows.Computer"]/NetworkName$</AlertParameter1>

    </AlertParameters>

  </AlertSettings>

  <OperationalStates>

    <OperationalState ID="Update950050NotInstalled" MonitorTypeStateID="Error" HealthState="Error"/>

    <OperationalState ID="Update950050Installed" MonitorTypeStateID="Success" HealthState="Success"/>

  </OperationalStates>

  <Configuration>

    <IntervalSeconds>86400</IntervalSeconds>

    <SyncTime/>

    <ScriptName>Update950050MonitorScript.vbs</ScriptName>

    <Arguments/>

    <ScriptBody><Script>' Copyright (c) Microsoft Corporation. All rights reserved.

' VBScript source code

' Update950050MonitorScript.vbs

Option Explicit



SetLocale("en-us")



' This Script is used to get the version of OS 

' If the version is greater than 6.0.6002 - Win 2k8 SP2 has this update already

' then it returns "Healthy", otherwise returns "Unhealthy"





Dim objWMIService, colOperatingSystems, objOperatingSystem, osVersion

Dim oAPI, oBag

const expectedVersion = "6.0.6002"





Set objWMIService = GetObject("winmgmts:" _

    &amp; "{impersonationLevel=impersonate}!\\localhost\root\cimv2")



Set colOperatingSystems = objWMIService.ExecQuery _

    ("Select * from Win32_OperatingSystem")



For Each objOperatingSystem in colOperatingSystems

        osVersion = objOperatingSystem.Version

Next





Set oAPI = CreateObject("MOM.ScriptAPI")

Set oBag = oAPI.CreatePropertyBag()



if osVersion &lt; expectedVersion Then

   Call oBag.AddValue("KB950050", "Not Installed")

else 

   Call oBag.AddValue("KB950050", "Installed")

End if 

Call oBag.AddValue("ActualVersion", osVersion)                                      

Call oBag.AddValue("ExpectedVersion", expectedVersion)

Call oAPI.Return(oBag)</Script></ScriptBody>

    <TimeoutSeconds>300</TimeoutSeconds>

    <ErrorExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='KB950050']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">Not Installed</Value>

        </ValueExpression>

      </SimpleExpression>

    </ErrorExpression>

    <SuccessExpression>

      <SimpleExpression>

        <ValueExpression>

          <XPathQuery Type="String">Property[@Name='KB950050']</XPathQuery>

        </ValueExpression>

        <Operator>Equal</Operator>

        <ValueExpression>

          <Value Type="String">Installed</Value>

        </ValueExpression>

      </SimpleExpression>

    </SuccessExpression>

  </Configuration>

</UnitMonitor>