ServerView Remote Management iRMC (Collection)

Fujitsu.Servers.PRIMERGY.Windows.Collection.BMC.Task (ConsoleTask)

Launch the default browser locally to access Fujitsu iRMC Management Console on the remote PRIMERGY Server by using its DNS name

Element properties:

Source Code:

<ConsoleTask ID="Fujitsu.Servers.PRIMERGY.Windows.Collection.BMC.Task" Accessibility="Public" Enabled="true" Target="Fujitsu.Servers.PRIMERGY.Windows.HealthCollection" RequireOutput="false">

  <Assembly>Res.Fujitsu.Servers.PRIMERGY.Windows.Collection.BMC.Task</Assembly>

  <Handler>ShellHandler</Handler>

  <Parameters>

    <Argument Name="WorkingDirectory">"%HOMEDRIVE%%HOMEPATH%"</Argument>

    <Argument Name="Application">"%SystemRoot%\System32\mshta.exe"</Argument>

    <!--

          <Argument>vbscript:Execute("sSrv = ""$Target/Property[Type="Fujitsu.Servers.PRIMERGY.Windows.HealthCollection"]/NetworkName$"": sURL = ""$Target/Property[Type="Fujitsu.Servers.PRIMERGY.Windows.HealthCollection"]/BMCAddrIPv4$"": MsgBox ""sSrv: "" &amp; sSrv &amp; vbCRLF &amp; ""sURL: "" &amp; sURL, vbOKOnly, ""iRMC Remote Management"": If sURL = """" Or LCase(sURL) = ""n/a"" Then: MsgBox ""iRMC Remote Management is not available for server "" &amp; sSrv, vbOKOnly, ""iRMC Remote Management"": Else: set objShell = CreateObject(""WScript.Shell""): objShell.run(sURL): End If")(window.close)</Argument>

          <Argument>vbscript:Execute("...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................")(window.close)</Argument>

          -->

    <Argument>vbscript:Execute("sSrv = ""$Target/Property[Type="Fujitsu.Servers.PRIMERGY.Windows.HealthCollection"]/NetworkName$"": sURL = ""$Target/Property[Type="Fujitsu.Servers.PRIMERGY.Windows.HealthCollection"]/BMCAddrIPv4$"": If sURL = """" Or LCase(sURL) = ""n/a"" Then: MsgBox ""iRMC Remote Management is not available for server "" &amp; sSrv, vbOKOnly, ""iRMC Remote Management"": Else: set objShell = CreateObject(""WScript.Shell""): objShell.run(sURL): End If")(window.close)</Argument>

  </Parameters>

</ConsoleTask>