VBScript プロセス別起動開始時間取得のサンプル

プロセス別起動開始時間取得のサンプルです。

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

Bookmark this on Yahoo Bookmark
Bookmark this on Google Bookmarks
Share on LinkedIn
LINEで送る
Pocket