☰

VBScript 出力: 列へのフォーマット (データの長さは異なる場合があります)

tag-icon • tag-icon batch-file vbscript
VBScript 出力: 列へのフォーマット (データの長さは異なる場合があります)

サービスのリスト (DisplayName、State、StartMode) を照会するバッチ ファイルを用意し、それを txt ファイルで確認するときに適切な形式で出力するようにしたいと思います。

これを .csv ファイルにダンプする必要がありますが、他の情報が含まれる txt ファイルに保存したいので、Excel を使用することはできません (通常はメモ帳を使用してこのファイルを開き、この状態で保存します)。

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service WHERE DisplayName LIKE 'CommVault%'")
wscript.echo chr(34) & "Service Name" & chr(34) & "," & chr(34) & "Status" & chr(34) & "," & chr(34) & "Start Mode" & chr(34)
For Each objService in colListOfServices
    wscript.echo chr(34) & objService.DisplayName & chr(34) & "," & chr(34) & objService.State & chr(34) & "," & chr(34) & objService.StartMode & chr(34)
Next

答え1

これにより、適切にフォーマットされたテキスト テーブルが作成されます。

wmic /output:Services.txt service where "DisplayName like 'CommVault%'" get DisplayName,State,StartMode

Windows\System32\wbemまた、およびWindows\System32\wbem\en-US（またはWindowsのコピーで使用されている言語コード）のさまざまなXSLファイルを使用して、wmicさまざまな方法で出力します。

たとえば、次のようにすると、適切にフォーマットされた HTML テーブルが生成されます。

wmic /output:Services.htm service where "DisplayName like 'CommVault%'" get DisplayName,State,StartMode /format:"%windir%\System32\wbem\en-US\htable.xsl"

何らかの理由でVBScriptを使用する必要がある場合は、wscript.echo任意の形式で出力するステートメントを作成してから、テキスト ファイルにリダイレクトするか、スクリプト自体が直接テキスト ファイルに書き込むようにするとさらに良いでしょう。

答え2

これを MyServiceViewer.hta と呼びます。

<html>
<head>
<style>
BODY        {font-size :100%;font-family: Arial, Helvetica, sans-serif;color: black;
        background:URL(images/watermark.gif);background-color: white;
        margin-top:0; margin-left:0pt; margin-right:0pt ; text-align:Justify}
P       {margin-left:40pt;margin-right:10pt}
TABLE       {font-size: 90%; text-align:left; margin-left:40pt;margin-right:10pt;background-color:lavender;width:90%}
THEAD       {color: white;font-weight:bold;background-color:darkblue; margin-left:40pt;margin-right:10pt}
TD      {Vertical-Align:Top;padding:3px}
</style>
</head>
<body>
<OBJECT CLASSID="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83"
    ID=dsoMacro5 WIDTH=0 HEIGHT=0>
    <PARAM NAME="DataURL" VALUE="Services.txt">
    <PARAM NAME="UseHeader" Value="True">
    <PARAM NAME="FieldDelim" VALUE=",">
    <PARAM NAME="Sort"  Value="Service Name">
</OBJECT>
<h3>My Services Database</h3>
<h4>Select a button to filter list</h4>
<p>To search for a word in the Title field use <i>* word *</i>. To search for the first word in a field use <i>Word *</i> or the last word use <i>* word</i>. To search for a string within a word or word use <i>*partialword*</i>. Searches are case sensitive.</i></p>
<p><INPUT Name=tb1 TYPE=Text Value=""> <INPUT ID=cmdNavFirst TYPE=BUTTON VALUE="     Search     " onclick="dsoMacro5.object.filter='Service Name=' + tb1.value;dsoMacro5.reset()"></p>
<p><INPUT ID=cmdNavFirst TYPE=BUTTON VALUE="   Sort Status   " onclick="dsoMacro5.object.sort='Status';dsoMacro5.reset()"></p>
<hr class="body">
<TABLE ID=tblMacro2 DATASRC=#dsoMacro5 OnRowEnter=Alert(tblMacro2.row)>
<THEAD>
<TR>
<TD WIDTH="60%"><b>Service Name</b></TD>
<TD WIDTH="20%"><b>Status</b></TD>
<TD WIDTH="20%"><b>Start Mode</b></TD>
</TR>
</THEAD>
<TBODY>
<TR>
<TD WIDTH="20%"><SPAN DATAFLD="Service Name"></SPAN></TD>
<TD WIDTH="60%"><SPAN DATAFLD="Status"></SPAN></TD>
<TD WIDTH="20%"><SPAN DATAFLD="Start Mode"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>

このファイルをservices.txtと呼びます

Service Name,Status,Start Mode
Workstation,Ok,Manual
Workstation,Ok,Manual
Workstation,Ok,Manual
Workstation,Ok,Manual
Server,Ok,Manual
Server,Ok,Manual
Server,Ok,Manual
Server,Ok,Manual
BFE,Ok,Auto
BFE,Ok,Auto
BFE,Ok,Auto

具体的な質問ですが、可変幅フォント、vbs + メモ帳では動作しません。メモ帳で固定幅フォントに変更すると...

固定幅20文字で埋める

A="Running"

MsgBox A & Space(20 - Len(A)) & "|end of marker so you can see spaces in msgbox"

多くの場合、列の間にタブを置くだけでも、データが同じかほぼ同じ長さであれば、95%、100% 機能します。また、ビューア (メモ帳ではありません) で標準のタブよりも大きいタブを設定すると、これが機能します。私は通常 Word を使用しますが、32 ビット Windows を使用している場合は、Edit でカスタムのタブ幅を設定できます。

関連情報