DataONTAP.MetroCluster.Discovery.WriteActionModuleType

DataONTAP.MetroCluster.Discovery.WriteActionModuleType (WriteActionModuleType)

This module embeds a script that performs MetroCluster discovery.

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<WriteActionModuleType ID="DataONTAP.MetroCluster.Discovery.WriteActionModuleType" Accessibility="Internal" Batching="false">

  <Configuration>

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

  </Configuration>

  <OverrideableParameters>

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

  </OverrideableParameters>

  <ModuleImplementation Isolation="Any">

    <Composite>

      <MemberModules>

        <WriteAction ID="WA" TypeID="Windows!Microsoft.Windows.ScriptWriteAction">

          <ScriptName>MetroClusterDiscovery.vbs</ScriptName>

          <Arguments>$Target/Property[Type="SC!Microsoft.SystemCenter.HealthService"]/AuthenticationName$</Arguments>

          <ScriptBody><Script>'**********************************************************************************

' Script Name - NetApp MetroCluster Discovery

' Author: Clinton Knight

'

' Description:

' Discover a Data ONTAP MetroCluster pair	

' 

' (c) Copyright NetApp Inc. 2011 - All rights reserved           

'**********************************************************************************



Option Explicit

On Error Resume Next

SetLocale("en-us")



Dim oAPI

Set oAPI = CreateObject("MOM.ScriptAPI")



Dim oArgs

Set oArgs = WScript.Arguments



Dim errorMessage

if oArgs.Count &lt; 1 Then



    errorMessage = "MetroClusterDiscovery.vbs was called with the incorrect # of parameters (param count = " &amp; oArgs.Count &amp; ")."



    'WScript.Echo(errorMessage)



    Call oAPI.LogScriptEvent("MetroClusterDiscovery.vbs",501,0,errorMessage)



    Wscript.Quit -1



End If





Dim ManagementServer



ManagementServer = oArgs(0)



' Echo the parameters so we can see what has been passed in

'WScript.Echo("ManagementServer = " &amp; ManagementServer)



Dim oNetAppSCOMAPI

Set oNetAppSCOMAPI = CreateObject("NetApp.OM.Server.MetroCluster.Library.SCOMDiscoveryClass")



If Err Then



    errorMessage = "Failed to create NetAppSCOM object"   &amp; vbNewLine &amp; _

    "Err.description = """ &amp; Err.description &amp; """" &amp; vbNewLine &amp; _

    "Err.helpcontext = """ &amp; Err.helpcontext &amp; """" &amp; vbNewLine &amp; _

    "Err.helpfile    = """ &amp; Err.helpfile    &amp; """" &amp; vbNewLine &amp; _

    "Err.number      = """ &amp; Err &amp; """ (&amp;H" &amp; hex(Err) &amp; ")" &amp; vbNewLine &amp; _

    "Err.source      = """ &amp; Err.source      &amp; """" &amp; vbNewLine



    'WScript.Echo(errorMessage)



    Call oAPI.LogScriptEvent("MetroClusterDiscovery.vbs",502,0,errorMessage)



    WScript.Quit -1



End If



Dim boolDiscoverySucceeded

boolDiscoverySucceeded = oNetAppSCOMAPI.DoDiscovery(ManagementServer)



If Err Then



    errorMessage = "Failed to do MetroCluster discovery"   &amp; vbNewLine &amp; _

    "Err.description = """ &amp; Err.description &amp; """" &amp; vbNewLine &amp; _

    "Err.helpcontext = """ &amp; Err.helpcontext &amp; """" &amp; vbNewLine &amp; _

    "Err.helpfile    = """ &amp; Err.helpfile    &amp; """" &amp; vbNewLine &amp; _

    "Err.number      = """ &amp; Err &amp; """ (&amp;H" &amp; hex(Err) &amp; ")" &amp; vbNewLine &amp; _

    "Err.source      = """ &amp; Err.source      &amp; """" &amp; vbNewLine &amp; _

    "Server          = """ &amp; ManagementServer &amp; _

    "CommunityString = """ &amp; CommunityString



    'WScript.Echo(errorMessage)



    Call oAPI.LogScriptEvent("MetroClusterDiscovery.vbs",503,0,errorMessage)



    WScript.Quit -1



End If 



Call oAPI.LogScriptEvent("MetroClusterDiscovery.vbs",500,0,"MetroCluster discovery succeeded for " &amp; ManagementServer &amp; ".")



Set oNetAppSCOMAPI = Nothing

Set oAPI = Nothing



</Script></ScriptBody>

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

        </WriteAction>

      </MemberModules>

      <Composition>

        <Node ID="WA"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <InputType>System!System.BaseData</InputType>

</WriteActionModuleType>