Option Explicit
 
Dim itm
 
With CreateObject("Shell.Application").Namespace("shell:::{7b81be6a-ce2b-4676-a29e-eb907a5126c5}")
  For Each itm In .Items
    'WScript.Echo itm.Name
    ' 名前, 制作元, インストール日付, バージョン[, 使用サイズ]
    WScript.Echo """" & .GetDetailsOf(itm,0)_
            & """,""" & .GetDetailsOf(itm,1)_
            & """,""" & mid(.GetDetailsOf(itm,2),2,5) & mid(.GetDetailsOf(itm,2),8,3) & mid(.GetDetailsOf(itm,2),12,2)_
            & """,""" & .GetDetailsOf(itm,4) & """"
'            & """,""" & .GetDetailsOf(itm,3)_
  Next
End With