Event Type: Warning
        Event Source: Health Service Modules
        Event ID: 21402
        Description:
                Forced to terminate the following process started 
                at 12:08:50 PM because it ran past the configured 
                timeout 120 seconds.

        Event Type: Warning
        Event Source: Health Service Modules
        Event Category: None
        Event ID: 21402
        Date: 7-4-2008
        Time: 4:05:34
        User: N/A
        Computer: server01
        Description:
        Forced to terminate the following process started at 
        04:05:04 because it ran past the configured timeout 30 
        seconds.


        Command executed: "C:\WINDOWS\system32
        \cscript.exe" /nologo "C:\Program Files\System Center 
        Operations Manager 2007\Health Service State\Monitoring Host 
        Temporary Files 297\177
        \CheckVirtualMachineNameMatchComputerName.vbs"


        Working Directory: C:\Program Files\System Center Operations 
        Manager 2007\Health Service State\Monitoring Host Temporary 
        Files 297\177\ 


        One or more workflows were affected by this.  


        Workflow name: Microsoft.Virtualization.VirtualServer.2005R2.VirtualMachineName_does_not_match_computer_name.rule 
        Instance name: servern01.contoso.com 
        Instance ID: {3B3FA6E2-BB6B-CD49-274A-8722250C3D0C} 
        Management group: OpsMgrdemo


        For more information, see Help and Support Center at 
        http://go.microsoft.com/fwlink/events.asp.

 DECLARE @ObjectName NVARCHAR(256)


 SET @ObjectName = 'Microsoft.Virtualization.VirtualServer.2005R2.VirtualMachineName_does_not_match_computer_name.rule'


 IF EXISTS (SELECT 1 FROM DiscoveryView WITH (NOLOCK) WHERE Name = @ObjectName) 
        SELECT 
                'Discovery' As 'Object Type',
                d.DisplayName AS 'Displayname in Console',
                d.Name AS 'Internal Monitor Name',
                d.Id AS 'MonitorId',
                p.Displayname AS 'ManagementPack',
                p.Version AS 'ManagementPack Version',
                p.Name AS 'Management Pack Library Name'
        FROM DiscoveryView d WITH (NOLOCK)
        INNER JOIN ManagementPackView p WITH (NOLOCK) ON d.ManagementPackId = p.Id
        WHERE d.Name = @ObjectName
 ELSE IF EXISTS (SELECT 1 FROM MonitorView WITH (NOLOCK) WHERE Name = @ObjectName) 
        SELECT 
                'Monitor' AS 'Object Type',
                m.DisplayName AS 'Displayname in Console',
                m.Name AS 'Internal Monitor Name',
                m.Id AS 'MonitorId',
                p.Displayname AS 'ManagementPack',
                p.Version AS 'ManagementPack Version',
                p.Name AS 'Management Pack Library Name'
        FROM MonitorView m WITH (NOLOCK) 
        INNER JOIN ManagementPackView p WITH (NOLOCK) ON m.ManagementPackId = p.Id
        WHERE m.Name = @ObjectName
 ELSE IF EXISTS (SELECT 1 FROM RuleView WITH (NOLOCK) WHERE Name = @ObjectName) 
        SELECT 
                'Rule' AS 'Object Type',
                r.DisplayName AS 'Displayname in Console',
                r.Name AS 'Internal Rule Name',
                r.Id AS 'RuleId',
                p.Displayname AS 'ManagementPack',
                p.Version AS 'ManagementPack Version',
                p.Name AS 'Management Pack Library Name'
        FROM RuleView r WITH (NOLOCK) 
        INNER JOIN ManagementPackView p WITH (NOLOCK) ON r.ManagementPackId = p.Id
        WHERE r.Name = @ObjectName

 SELECT 
         ManagementPackId,
         ScriptName,
         ScriptFile
 FROM (        
         SELECT 
                 ManagementPackId,
                 Script.Col.value('(Name/text())[1]', 'NVARCHAR(128)') AS ScriptName,
                 Script.Col.value('(Contents/text())[1]', 'NVARCHAR(MAX)') AS ScriptFile
         FROM (SELECT ManagementPackId, CONVERT(XML, MPXML) AS MPXMLFormat, MPName FROM ManagementPack) p 
         CROSS APPLY p.MPXMLFormat.nodes('//File') Script(Col)
         WHERE p.MPName LIKE '%2005R2%') s
 WHERE s.ScriptName = 'CheckVirtualMachineNameMatchComputerName.vbs'

       <Rule ID="Microsoft.Virtualization.VirtualServer.2005R2.VirtualMachineName_does_not_match_computer_name.rule" Enabled="true" Target="Windows! Microsoft.Windows.Computer" ConfirmDelivery="false" Remotable="true" Priority="Normal" DiscardLevel="100">
         <Category>AvailabilityHealth</Category>
         <DataSources>
           <DataSource ID="DS" TypeID="Microsoft.Virtualization.VirtualServer.2005R2.CheckVirtualMachineName">
            <IntervalInSeconds>60</IntervalInSeconds>
             <Expression>
               <And>
                 <Expression>
                   <SimpleExpression>
                     <ValueExpression>
                       <XPathQuery Type="String">Property[@Name='IsVirtualMachine']</XPathQuery>
                     </ValueExpression>
                     <Operator>Equal</Operator>
                     <ValueExpression>
                       <Value Type="String">True</Value>
                     </ValueExpression>
                   </SimpleExpression>
                 </Expression>
         ...

      <ModuleTypes>
       <DataSourceModuleType ID="Microsoft.Virtualization.VirtualServer.2005R2.VirtualServerVirtualMachineDiscovery" Accessibility="Internal" Batching="false">
       <DataSourceModuleType ID="Microsoft.Virtualization.VirtualServer.2005R2.RelVirtualMachineComputerDiscovery" Accessibility="Internal" Batching="false">
       <DataSourceModuleType ID="Microsoft.Virtualization.VirtualServer.2005R2.VirtualMachineComputerDiscovery" Accessibility="Internal" Batching="false">
       <DataSourceModuleType ID="Microsoft.Virtualization.VirtualServer.2005R2.VirtualMachineState" Accessibility="Internal" Batching="false">
       <DataSourceModuleType ID="Microsoft.Virtualization.VirtualServer.2005R2.CheckVirtualMachineName" Accessibility="Internal" Batching="false">
        <Configuration>
          <IncludeSchemaTypes>
            <SchemaType>System!System.ExpressionEvaluatorSchema</SchemaType>
          </IncludeSchemaTypes>
          <xsd:element name="IntervalInSeconds" type="xsd:integer" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />
          <xsd:element name="Expression" type="ExpressionType" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />
        </Configuration>
        <OverrideableParameters>
          <OverrideableParameter ID="IntervalInSeconds" Selector="$Config/IntervalInSeconds$" ParameterType="int" />
        </OverrideableParameters>
       ....

             <MemberModules>
               <DataSource ID="DS" TypeID="System!System.CommandExecuterPropertyBagSource">
                 <IntervalSeconds>$Config/IntervalInSeconds$</IntervalSeconds>
                 <ApplicationName>%windir%\system32\cscript.exe</ApplicationName>
                 <WorkingDirectory />
                 <CommandLine>/nologo $file/CheckVirtualMachineNameMatchComputerName.vbs$</CommandLine>
                 <TimeoutSeconds>30</TimeoutSeconds>
                 <RequireOutput>true</RequireOutput>
                 <Files>
                   <File>
                     <Name>CheckVirtualMachineNameMatchComputerName.vbs</Name>
                     <Contents>        
 ' Copyright (c) Microsoft Corporation. All rights reserved.
 ' VBScript source code
 ' CheckVirtualMachineNameMatchComputerName.vbs
 ' Arg 0 : SourceID
 Option Explicit 


 Const StrVMMManagementGroupInstallationRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Setup\InstallPath"
 Const StrVirtualServerRegKey = "HKLM\System\CurrentControlSet\Services\Virtual Server\Start"
 Const StrVMMServerInstallationRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Setup\InstallPath"
 Const StrVMMServerVersionRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Setup\ProductVersion"
 Const StrVMMSelfServiceServerInstallationRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Self-Service  Portal\Setup\InstallPath"
 Const StrVMMSSsiteEngineMachineRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Self-Service  Portal\Settings\VmmServerName"
 Const StrVMMDatabaseServerRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Settings\Sql\OnRemoteServer"
 Const StrVMMDatabaseNameRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Settings\Sql\DatabaseName"
 Const StrVMMDatabaseInstanceRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Server\Settings\Sql\InstanceName"
 Const StrVMMRemoteDatabaseMachineFQDNRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007  Server\Settings\Sql\MachineFQDN"
 Const StrVMMConsoleInstallationRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager 2007 Administrator Console\Setup\InstallPath"
 Const StrVMNameRegKey = "HKLM\SOFTWARE\Microsoft\Virtual Machine\Guest\Parameters\VirtualMachineName"


 Const StrWebsitDisplayName = "Microsoft System Center Virtual Machine Manager 2007 Self-Service Portal"
 Const StrSQLServerDefaultInstance = "MSSQLSERVER"
 Const StrEmpty = ""
 Const StrFolderSeparator = "\"
 Const StrLocationHost = "Host"
 Const StrLocationLibrary = "Library"


 '=============
 ' Method:       ReadRegistry
 ' Description:  This function read the regiestry, return true if the registry exit; otherwise return false
 '=============
 Function ReadRegistry(ByVal regString, ByRef regValue)
     Dim bHasRegistry
     Dim oReg
     Set oReg = CreateObject("WScript.Shell")   


     On Error Resume Next    
     regValue = oReg.RegRead(regString)
     If Err.number &lt;> 0 Then
         bHasRegistry = False
     Else
         bHasRegistry = True
     End If
     On Error Goto 0 


     ReadRegistry = bHasRegistry
 End Function 


 Call Main()


 ...