我正在编写一个(批处理文件或 VBScript)来很好地关闭 Windows 服务器上所有正在运行的 WebSphere JVM，但需要一些文本处理方面的帮助。我希望脚本运行并解析“serverstatus”命令的输出以获取框中的 Application Servers 名称并将匹配项(带回车符)存储在用于脚本其余部分的变量。

示例命令输出:

C:\WebSphere\AppServer\bin>serverstatus -all
ADMU0116I: Tool information is being logged in file
       C:\WebSphere\AppServer\profiles\MySrv01\logs\serverStatus.log
ADMU0128I: Starting tool with the MySrv01 profile
ADMU0503I: Retrieving server status for all servers
ADMU0505I: Servers found in configuration:
ADMU0506I: Server name: MyCluster_MySrv01
ADMU0506I: Server name: MyCluster_MySrv01_1
ADMU0506I: Server name: MyNextCluster_MySrv04
ADMU0506I: Server name: MyNextCluster_MySrv04_1
ADMU0506I: Server name: nodeagent
ADMU0508I: The Application Server "MyCluster_MySrv01" is STARTED
ADMU0508I: The Application Server "MyCluster_MySrv01_1" is STARTED
ADMU0508I: The Application Server "MyNextCluster_MySrv04" is STARTED
ADMU0509I: The Application Server "MyNextCluster_MySrv04_1" cannot be
       reached. It appears to be stopped.
ADMU0508I: The Node Agent "nodeagent" is STARTED

*nodeagent 不应匹配。对于我是要定位所有应用服务器还是只定位那些状态为“已启动”的应用服务器，目前还没有定论。

最佳答案

这是使用 Regex 的替代方法。它只是读取 stdout 并处理所有启动的应用程序服务器——应用程序服务器存储在一个名为 AppServers 的数组中。在 W2K3 上测试。 编辑:我们通过添加日志写入功能添加了一种将输出记录到文件的方法(不要忘记在我们刚刚添加到此答案的脚本开头添加 const ForAppending)。日志写入函数采用以下格式:

Logwrite "some text to write - delete file if exists", "c:\Path\filename.txt", 1
Logwrite "some text to write - append to file, don't delete", "c:\path\filename.txt", 0

这是一个粗略的功能，但可以满足您的要求。我希望这有帮助。 :)

option explicit
Const ForAppending = 8
Dim objShell, objWshScriptExec, objStdOut
Dim objCmdString, strLine, appServers(), maxAppServers
Dim x

' File Path / Location to serverstatus.bat ----
objCmdString = "C:\WebSphere\AppServer\bin\serverstatus.bat -all"

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec(objCmdString)
Set objStdOut = objWshScriptExec.StdOut

MaxAppServers = -1

' While we're looping through the response from the serverstatus command, look for started application servers
' and store them in an ever expanding array AppServers.
' The Variable MaxAppServers should always contain the highest number of AppServers (ie: ubound(AppServers))

While Not objStdOut.AtEndOfStream
   strLine = objStdOut.ReadLine
   If InStr(LCase(strLine), "admu0508i: the application server """) Then
      MaxAppServers = MaxAppServers + 1
      ReDim Preserve AppServers(MaxAppServers)
      AppServers(MaxAppServers) = wedge(strLine, Chr(34))
   End If
Wend

If MaxAppServers => 0 then 
    For x = 0 To ubound(AppServers)    ' You could just use For x = 1 to MaxAppServers in this case.
        ' Add your instructions here.........
        ' ... We are simply echoing out the AppServer name below as an example to a log file as requested below.
         Logwrite AppServers(x), "c:\Output.log", 0
    Next
End If

Function Wedge(wStr, wOpr)
' This clunky function simply grabs a section of a string the is encapsulated by wOpr.
' NOTE: This function expects wOpr to be a single character (eg; for our purpose, it is pulling data between double quotes).

    Dim wFlag, wCount, wFinish

    wflag = False
    wFinish = False
    wCount = 1
    Wedge = ""

    Do Until wCount > Len(wStr) Or wFinish
       If Mid(wStr, wCount, 1) = wOpr Then
           If wFlag Then
              wFinish = True
           Else
              wFlag = True
           End If
       Else
           If wFlag Then Wedge = Wedge & Mid(wStr, wCount, 1)                                 
       End If
       wCount = wCount + 1
    Loop
 End Function

Function logwrite (lstrtxt, lwLogfile, lwflag)
    Dim lwObjFSO, lwObjFile, fstr, lwcounter, lwc
    fstr = lstrtxt
    Set lwObjFSO = CreateObject("Scripting.FileSystemObject")
    If lwflag=1 And lwObjFSO.FileExists(lwLogFile) Then lwObjfso.deletefile(lwLogFile)
    If lwObjFSO.FileExists(lwLogFile) then
        On Error Resume next
        Set lwObjFile = lwObjFSO.OpenTextFile(lwLOgFile, ForAppending)
        lwCounter = 20000
        Do While Err.number = 70 And lwCounter > 0
            wscript.echo "ERROR: Retrying output - Permission denied; File may be in use!"
            For lwc = 1 To 1000000
            Next
            Err.clear
            Set lwObjFile = lwObjFSO.OpenTextFile(lwLogFile, ForAppending)
            lwCounter = lwCounter-1
        Loop
        If Err.number <> 0 Then
            wscript.echo "Error Number: "&Err.number
            wscript.quit
        End If
        On Error goto 0
    Else
        Set lwObjFile = lwObjFSO.CreateTextFile(lwLogFile)
    End If
    wscript.echo (fstr)
    lwObjFile.Write (fstr) & vbcrlf
    lwObjFile.Close
    Set lwObjFSO=Nothing
    Set lwObjfile=Nothing

 End Function

关于regex - 从命令输出中解析 WebSphere JVM 名称的 Windows 脚本，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/20984738/