HPE ProLiant Integrated Management Log Export

HewlettPackard.Servers.ProLiant.IMLLogExport.Task (Task)

Execute HPE ProLiant Integrated Management Log Viewer on the target system to export IML Log

Element properties:

Member Modules:

Source Code:

<Task ID="HewlettPackard.Servers.ProLiant.IMLLogExport.Task" Accessibility="Public" Enabled="true" Target="HewlettPackard.Servers.ProLiant.HPProLiantLogs" Timeout="300" Remotable="true">

  <Category>Custom</Category>

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

    <ScriptName>HewlettPackardLogsViewTask.vbs</ScriptName>

    <Arguments/>

    <ScriptBody><Script>

            Dim fso, f, fileName, progfiles, fileLogs, oExec, command

            set WshShell = WScript.CreateObject("WScript.Shell")

            Set fso = CreateObject("Scripting.FileSystemObject")

            progfiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")

            If progfiles = "%ProgramFiles(x86)%" Then

            progfiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")

            else

            if fso.FolderExists(progfiles &amp; "\compaq\cpqimlv") = false then

            progfiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")

            End If

            End If

            fileName = progfiles &amp; "\Compaq\cpqimlv\cpqimlv.exe"

            fileLogs = progfiles &amp; "\Compaq\cpqimlv\TemporaryOM2007Logs.csv"



            on error Resume Next

            Set f = fso.GetFile(fileName)

            If Err.Number &lt;&gt; 0 Then

            WScript.StdErr.WriteLine "HPE ProLiant Integrated Management Log Viewer isn't available: " &amp; fileName

            WScript.Quit(1)

            End If

            On Error Goto 0

            command = """" &amp; fileName &amp; """ ""-export:" &amp; fileLogs &amp; """"

            WScript.Echo command

            Set oExec = WshShell.Exec(command)

            Do While oExec.Status = 0

            WScript.Sleep 100

            Loop

            Set f = fso.OpenTextFile(fileLogs, 1)

            WScript.Echo f.ReadAll

            f.Close

            Set f = fso.GetFile(fileLogs)

            f.Delete

            WScript.Quit(0)

          </Script></ScriptBody>

    <TimeoutSeconds>120</TimeoutSeconds>

  </WriteAction>

</Task>