プロセス別起動開始時間取得のサンプルです。
Option Explicit 'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClassSet Dim oClass Dim oLocator Dim oService Dim sMesStr 'ローカルコンピュータに接続する。 Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator") Set oService = oLocator.ConnectServer 'クエリー条件をWQLにて指定する。 Set oClassSet = oService.ExecQuery("Select * From Win32_Process") 'コレクションを解析する。 For Each oClass In oClassSet If IsNull(oClass.CreationDate) Then sMesStr = sMesStr & oClass.Description & ": Null" & vbCrLf Else sMesStr = sMesStr & oClass.Description & ": " & CStr(oClass.CreationDate) & vbCrLf End If Next MsgBox ("プロセス別実行開始時刻に関する情報です。" & vbCrLf & vbCrLf & sMesStr) '使用した各種オブジェクトを後片付けする。 Set oClassSet = Nothing Set oClass = Nothing Set oService = Nothing Set oLocator = Nothing