如何仅获取“程序和功能”控制面板中的那些软件列表？

Question

这是我的 VBS 代码：

Const HKEY_LOCAL_MACHINE = &H80000002
Dim strComputer, strKeyPath
Dim objReg, strSubkey, arrSubkeys
Dim Name, Version

strComputer = "."

' Registry key path of Control panel items for installed programs
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

'Enumerate registry keys.
For Each strSubkey In arrSubkeys
    objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSubkey, "DisplayName" , Name
    If Name <> "" Then
         WScript.Echo Name&""&","
    End If
Next

WScript.Echo "Installed Programs listed successfully through Registry using VBScript."
WScript.Quit

它将给出所有软件名称列表。但我只想要那些在控制面板的程序和功能中可见的软件。

Answer 1

您可以将 shell 与 KNOWNFOLDERID 的程序和功能一起使用。

这将为您提供您在控制面板上看到的确切列表。

Set Shell = CreateObject("Shell.Application")
Set Programs = Shell.NameSpace("shell:::{7b81be6a-ce2b-4676-a29e-eb907a5126c5}")
For Each item In Programs.Items
    WScript.Echo item
Next