如何获取Windows上已安装的软件列表？

搜索关键字：

• http://search.aol.com/aol/search?q=how+to+get+windows+installed+software+list
• http://search.aol.com/aol/search?q=vbscript+how+to+get+windows+installed+software+list

注意事项：

需要循环遍历以下3个注册表键值才可能取得全(否则经常会有漏记的)：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

简单示例：

PowerShell

Get-WmiObject -Class Win32_Product | Select-Object -Property Name > D:\PCapps.txt

WMIC

/output:D:\InstallList.txt product get name,version

示例2：

Dim objNetwork, objReg
Dim HOSTNAME, USERNAME
Dim OS_ARCH

'初始化对象
Set objNetwork = CreateObject("WScript.Network")
if Err <> 0 or Not IsObject(objNetwork) then
    DisplayCustomError "CreateObject WScript.Network failed"
    Wscript.Quit
end if

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
if Err <> 0 or Not IsObject(objReg) then
    DisplayCustomError "CreateObject StdRegProv failed"
    Wscript.Quit
end if

'获取主机名/用户名
HOSTNAME = objNetwork.ComputerName
USERNAME = objNetwork.UserName

OS_ARCH = func_get_os_type()
Function func_get_os_type()
    Dim ObjectWMI, colItems, objItem, X86orX64

    Set ObjectWMI = GetObject("winmgmts:\\.\root\cimv2")
    if Err <> 0 or Not IsObject(ObjectWMI) then
        DisplayCustomError "GetObject \root\cimv2 failed"
        exit function
    end if

    Set colItems = ObjectWMI.ExecQuery("Select * from Win32_ComputerSystem",,48)
    if Err <> 0 or Not IsObject(colItems) then
        DisplayCustomError "Query Win32_ComputerSystem failed"
        exit function
    end if

    For Each objItem in colItems
        If InStr(objItem.SystemType, "86") <> 0 Then
            X86orX64 = "x86"
        ElseIf InStr(objItem.SystemType, "64") <> 0 Then
            X86orX64 = "x64"
        Else
            X86orX64 = objItem.SystemType
        End If
    Next

    func_get_os_type = X86orX64

    Set colItems = Nothing
    Set ObjectWMI = Nothing
End Function

Dim subkey, Result
Dim subkey1, subkey2
Dim SystemManufacturer, SystemProductName, SystemFamily, SystemVersion
Dim BuildLab, BuildLabEx, CSDBuildNumber, CSDVersion, CurrentBuildNumber, CurrentVersion, EditionID, InstallationType, InstallDate, ProductName

'获取硬件信息
subkey1 = "SYSTEM\CurrentControlSet\Control\SystemInformation"
subkey2 = "HARDWARE\DESCRIPTION\System\BIOS"
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey1, "SystemManufacturer", SystemManufacturer
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey1, "SystemProductName", SystemProductName
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey2, "SystemFamily", SystemFamily
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey2, "SystemVersion", SystemVersion

'获取操作系统信息
subkey = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "BuildLab", BuildLab
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "BuildLabEx", BuildLabEx
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "CSDBuildNumber", CSDBuildNumber
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "CSDVersion", CSDVersion
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "CurrentBuildNumber", CurrentBuildNumber
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "CurrentVersion", CurrentVersion
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "EditionID", EditionID
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "InstallationType", InstallationType
objReg.GetDWORDValue  HKEY_LOCAL_MACHINE, subkey, "InstallDate", InstallDate
objReg.GetStringValue HKEY_LOCAL_MACHINE, subkey, "ProductName", ProductName

参考链接：

• List Installed Software Features – [ok]
• http://stackoverflow.com/questions/11872290/vbscript-list-installed-softwares-on-windows-server-2008-r2
• http://blogs.technet.com/b/onescript/archive/2013/10/15/script-of-oct-15-script-to-get-installed-software-through-registry-vbscript.aspx
• http://stackoverflow.com/questions/673233/wmi-installed-query-different-from-add-remove-programs-list
• http://superuser.com/questions/68611/get-list-of-installed-applications-from-windows-command-line
• http://myitforum.com/cs2/blogs/yli628/archive/2008/01/16/powershell-script-to-list-installed-software-on-local-computer.aspx
• http://blogs.technet.com/b/heyscriptingguy/archive/2011/11/13/use-powershell-to-quickly-find-installed-software.aspx
• http://helpdeskgeek.com/how-to/generate-a-list-of-installed-programs-in-windows/
• http://www.howtogeek.com/165293/how-to-get-a-list-of-software-installed-on-your-pc-with-a-single-command/
• Script List All Installed Software
• Script samples / Applications / Client Applications / List All Installed Software

使用VBScript进行文件读写操作

• http://stackoverflow.com/questions/1142678/read-and-write-into-a-file-using-vbscript
• http://www.motobit.com/tips/detpg_asp-vbs-read-write-ini-files/
• http://stackoverflow.com/questions/2198810/creating-and-writing-lines-to-a-file

示例：

'将数据写入文件
function func_write_to_file(filename, data)
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateTextFile(filename, True)  #注意是CreateTextFile而不是OpenTextFile
    f.Write data
    f.Close
End function

'调用方法
func_write_to_file "result.txt", "this is a test string"
func_write_to_file "result.txt", "this is a test string" & vbCrLf