使用AutoIT检测已安装软件，并将结果保存在桌面

 $file = "\adobe安装列表.txt"
 $regedit1 = "hklm64\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"
 $regedit2 = "hklm64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
 _Filecreate(@DesktopCommonDir & $file)
 FileOpen(@DesktopCommonDir & $file, )

 $i =
 $flag = True
 While $flag
     Local $var = RegEnumKey($regedit1, $i)
     If $var = - Then $flag = False
     If @error <>  Then ExitLoop
     soft_exists($var)
     $i = $i +
 WEnd

 Func soft_exists($reg_name)
     Local $displayname = RegRead($regedit1 & $reg_name, "DisPlayName" )
     If StringRegExp($DisPlayName, 'Adobe.*', 0)  Then
         FileWriteLine(@DesktopCommonDir & $file,"【" & $displayname & "】 安装在 " & RegRead($regedit1 & $reg_name, "InstallLocation" ))
     EndIf
 EndFunc

 FileClose(@DesktopCommonDir & $file)

以上代码仅检测Adobe相关软件与软件安装位置，如需检测其他软件可自行修改