「VBS アプリ一覧 出力」というキーワード検索での訪問があったので、実行中のアプリケーション一覧を出力する簡単な処理を考えてみました。
Option Explicit
Dim item, items
WScript.Echo "Name,ExecutablePath,Description" '見出し
On Error Resume Next
Set items = CreateObject("WbemScripting.SWbemLocator") _
.ConnectServer.ExecQuery("Select * From Win32_Process")
For Each item In items
WScript.Echo item.Name & "," & item.ExecutablePath & "," & item.Description
Next
On Error GoTo 0
上記コードはWMIのWin32_Processクラスを利用したもので下記のようにコマンドプロンプトからリダイレクト機能を使えば、結果をテキストファイルとして出力することもできます。
C:\Files>cscript ProcessList.vbs //NoLogo > ProcessList.log
この記事へのコメントはありません。