论坛 › 已解决问题区 › 【已解决】如何取当前计算机安装软件列表清单

wgboy 发表于 2010-10-26 15:41:51

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

本帖最后由 wgboy 于 2010-10-28 10:51 编辑

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

$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 发表于 2010-10-27 08:00:27

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

menfan1 发表于 2010-10-27 10:33:01

楼上正解。。

wgboy 发表于 2010-10-28 10:54:01

$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 发表于 2012-9-28 16:58:03

{:face (382):}这只能获取到使用MIS安装的软件信息

Free-IT 发表于 2015-1-28 12:10:37

没钱了看看呀

wowuwoxiu 发表于 2015-1-29 23:48:18

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

查看完整版本: 【已解决】如何取当前计算机安装软件列表清单