au3 获取当前电脑的软件列表

在AutoIt脚本中，可以使用WMI（Windows Management Instrumentation）来获取当前电脑的软件列表。以下是一个示例脚本：

#include <Array.au3>
#include <MsgBoxConstants.au3>

Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Product", "WQL", 0x30)

If IsObj($colItems) Then
    Local $arrSoftwareList[1][2] = [["Name", "Version"]]
    For $objItem In $colItems
        ReDim $arrSoftwareList[UBound($arrSoftwareList) + 1][2]
        $arrSoftwareList[UBound($arrSoftwareList) - 1][0] = $objItem.Name
        $arrSoftwareList[UBound($arrSoftwareList) - 1][1] = $objItem.Version
    Next
    _ArrayDisplay($arrSoftwareList, "Software List")
Else
    MsgBox($MB_OK, "Error", "Failed to retrieve software list.")
EndIf

这段代码使用winmgmts命名空间连接到本地计算机的WMI服务，并执行WQL查询以获取Win32_Product类的所有实例。然后，将软件的名称和版本存储在一个二维数组中，并使用_ArrayDisplay函数显示软件列表