■

なにやらかにやらメモ - Windows管理インストールされているアプリケーションを列挙するスクリプト

Const HKEY_LOCAL_MACHINE = &H80000002
 
strComputer = "." 
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
 
Set objFSO    = WScript.CreateObject("Scripting.FileSystemObject")
Set objOutput = objFSO.OpenTextFile(".\ApplicationList.txt", 8, True)
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
 
For Each strSubKey in arrSubkeys
    strValueName = "DisplayName"
    strSubPath = strKeyPath & "\" & strSubKey
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue
    If Not IsNull(strValue) Then
        objOutput.WriteLine strValue
    End If
Next
 
objOutput.Close