【已解决】如何取当前计算机安装软件列表清单

wgboy

如何取当前计算机安装软件列表清单和软件版本，最好能取出注册码之类的？网上搜到以下代码，取注册表的，但是取出的名字很乱，能不能进行过滤掉系统补丁

$i = 1
while 1
$key = regenumkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
if @error then exitloop
consolewrite($key & @crlf)
$i = $i +1
wend

netegg

if not(stringleft($key, 2) = 'KB') then consolewrite($key & @crlf)
$i = $i +1
wend

menfan1

楼上正解。。

wgboy

$i = 1
while 1
$key = regenumkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
if @error then exitloop
$softname=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$key,"DisplayName")
If @error<>-1 Then
If StringLeft($key, 2)<>"KB"  And StringLeft($softname, 8)<>"Security" And $softname<>"" Then
consolewrite($softname & @crlf)
EndIf
EndIf
$i = $i +1
wend

Neuis

这只能获取到使用MIS安装的软件信息

Free-IT

没钱了看看呀

wowuwoxiu

学习················