Microsoft.Windows.Cluster.VirtualServer.DiscoveryFix 6.0.6277.0 Microsoft Windows Cluster Virtual Server Discovery Fix Microsoft.Windows.Cluster.Library 6.0.6277.0 31bf3856ad364e35 Microsoft.Windows.Library 6.0.5000.0 31bf3856ad364e35 System.Library 6.0.5000.0 31bf3856ad364e35 $Config/IntervalSeconds$ $Config/SyncTime$ System!System.Discovery.Data PopulateVirtualServerProperties.vbs $MPElement$ $Target/Id$ $Target/Property[Type='Windows!Microsoft.Windows.Computer']/PrincipalName$ 3 Then g_oUtil.LogMessage _ g_oUtil.DBG_ERROR, _ "Need to provide arguments" Wscript.Quit -1 End If '========================================================================== ' Initialize the arguments in VBScript '========================================================================== Dim SourceId, ManagedEntityId, FullyQualifiedName SourceId = oArgs(0) ManagedEntityId = oArgs(1) FullyQualifiedName = oArgs(2) g_oUtil.LogMessage _ g_oUtil.DBG_TRACE, _ "SourceId : " & SourceId g_oUtil.LogMessage _ g_oUtil.DBG_TRACE, _ "ManagedEntityId : " & ManagedEntityId g_oUtil.LogMessage _ g_oUtil.DBG_TRACE, _ "FullyQualifiedName : " & FullyQualifiedName '========================================================================== ' Main '========================================================================== Dim oAPI Set oAPI = CreateObject("MOM.ScriptAPI") If oAPI is Nothing Then g_oUtil.LogMessage _ g_oUtil.DBG_ERROR, _ "Failed to get Discovery API. MOM v3 must be installed to execute this script" if 0 <> Err.number then g_oUtil.LogMessage _ g_oUtil.DBG_ERROR, _ "Failed with error " & Err.number & " - " & Err.Description end if End If Call DiscoverInstances() '========================================================================== ' FUNCTIONS '========================================================================== Sub ThrowEmptyDiscoveryData() Dim oDiscoveryDataTmp set oDiscoveryDataTmp = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId) Call oAPI.Return(oDiscoveryDataTmp) End Sub Sub DiscoverInstances() g_oUtil.LogMessage _ g_oUtil.DBG_TRACE, _ "Started dicovery at machine local time: " & CStr(Time) Dim oDiscoveryData Set oDiscoveryData = oAPI.CreateDiscoveryData ( _ 0, _ SourceId, _ ManagedEntityId _ ) If oDiscoveryData is Nothing Then g_oUtil.LogMessage _ g_oUtil.DBG_ERROR, _ "Failed to get Discovery Data Object. MOM v3 must be installed to execute this script" if 0 <> Err.number then g_oUtil.LogMessage _ g_oUtil.DBG_ERROR, _ "Failed with error " & Err.number & " - " & Err.Description end if Exit Sub End If Call Discover ( oDiscoveryData ) Call oAPI.Return(oDiscoveryData) g_oUtil.LogMessageNewLine _ g_oUtil.DBG_TRACE, _ "Finished dicovery at machine local time: " & CStr(Time) End Sub '========================================================================== ' Populate VirtualServer '========================================================================== Public Sub Discover( _ ByRef oDiscoveryData _ ) Dim DNSName Dim oInstance Set oInstance = oDiscoveryData.CreateClassInstance( _ "$MPElement[Name='Cluster!Microsoft.Windows.Cluster.VirtualServer']$" _ ) With oInstance .AddProperty _ "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", _ FullyQualifiedName .AddProperty _ "$MPElement[Name='Windows!Microsoft.Windows.Computer']/DNSName$", _ FullyQualifiedName End With Call oDiscoveryData.AddInstance(oInstance) End Sub '========================================================================== ' Class: Util ' Description: Utility methods for logging '========================================================================== Class Util ' Used to say to LogMessage when/how to print the message. Public DBG_NONE Public DBG_ERROR Public DBG_WARNING Public DBG_TRACE 'Internal Debug Level Private m_nDebugLevel '====================================================================== ' Method: Class_Initialize ' Description: This is the constructor ' Parameters: '====================================================================== Private Sub Class_Initialize() ' Initialize Debug level constants DBG_TRACE = 1 DBG_WARNING = 2 DBG_ERROR = 3 DBG_NONE = 4 'by default only errors are logged m_nDebugLevel = DBG_ERROR End Sub '====================================================================== ' Method: GetCurrentLevel ' Description: retrieve current logging level. ' Parameters: '====================================================================== Public Function GetCurrentLevel() GetCurrentLevel = m_nDebugLevel End Function '====================================================================== ' Method: SetDebugLevel ' Description: To change the debugging output level of information ' generated by this utility. ' Parameters: ' nLevel - DBG_NONE, DBG_TRACE, DBG_WARNING or DBG_ERROR '====================================================================== Public Sub SetDebugLevel(ByVal nLevel) m_nDebugLevel = nLevel End Sub '====================================================================== ' Method: LogMessage ' Description: Log a debug message to ScriptContext ' Parameters: ' nLevel - Debug level for the message that ' we're logging. ' strMessage - The message to write to the trace. '====================================================================== Public Sub LogMessage( _ ByVal nLevel, _ ByVal strMessage _ ) If (nLevel >= GetCurrentLevel()) Then if (nLevel = DBG_ERROR) Then WScript.Echo "[Error]: " & strMessage ElseIf (nLevel = DBG_WARNING) Then WScript.Echo "[Warning]: " & strMessage ElseIf (nLevel = DBG_TRACE) Then WScript.Echo "[Trace]: " & strMessage End If End If End Sub Public Sub LogMessageNewLine( _ ByVal nLevel, _ ByVal strMessage _ ) If (nLevel >= GetCurrentLevel()) Then if (nLevel = DBG_ERROR) Then WScript.Echo vbCrLf & "[Error]: " & strMessage ElseIf (nLevel = DBG_WARNING) Then WScript.Echo vbCrLf & "[Warning]: " & strMessage ElseIf (nLevel = DBG_TRACE) Then WScript.Echo vbCrLf & "[Trace]: " & strMessage End If End If End Sub End Class ' Util ]]> 300 System!System.Discovery.Data System!System.BaseData Discovery 85 Cluster Virtual Server Discovery This rule uses populates Virtual Server instance with missing properties. Virtual Server Discovery population Interval Seconds Synchronization Time Virtual Server Discovery population script Windows Cluster Virtual Server Discovery Fix Microsoft Windows Cluster Virtual Server Discovery Fix: This management pack contains the rule that populates instance of Virtual Server entity with values for missing properties. Summary This discovery rule populates instances of the virtual server.