[VBScript]インストール済みソフトウェアの一覧

'
' インストール済みソフトウェアの一覧
'

Option Explicit

Dim oWMIService, oItems, oItem
Dim sComputer

sComputer = "."
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set oItems = oWMIService.ExecQuery("Select * from Win32_Product")

For Each oItem in oItems

WScript.Echo ""
WScript.Echo "Caption: ", oItem.Caption
WScript.Echo "Description: ", oItem.Description
WScript.Echo "IdentifyingNumber: ", oItem.IdentifyingNumber
WScript.Echo "InstallLocation: ", oItem.InstallLocation
WScript.Echo "InstallState: ", oItem.InstallState
WScript.Echo "Name: ", oItem.Name
WScript.Echo "PackageCache: ", oItem.PackageCache
WScript.Echo "SKUNumber: ", oItem.SKUNumber
WScript.Echo "Vendor: ", oItem.Vendor
WScript.Echo "Version: ", oItem.Version

Next

Set oItem = Nothing
Set oItems = Nothing
Set oWMIService = Nothing