AutoIt：获取计算机已安装程序列表

$file = FileOpen(@ScriptDir&"\RegInstalledItems.csv",1)
if $file = -1 Then
	ConsoleWrite("ERROR: Unable to write to the output file")
	Exit
EndIf

$i = 1
While not @error
	$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
	If @error <> 0 then ExitLoop
	;MsgBox(4096, "SubKey #" & $i & " under HKLM\Software: ", $var)
	$var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$var,"DisplayName")
	;MsgBox(0,"Val",$var2)
	$outLine = $var&","&$var2
	FileWriteLine($file,$outLine)
	$i += 1
WEnd
FileClose($file)