「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