怎么读取注册表下DisplayName和InstallLocation的值？

[imur50]

电脑安装了什么软件，这些软件的安装位置在什么地方，现在还是没有搞定。
现在想到了一个变通的办法，就是读取注册表的值：“SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
这个地方下面有很多安装软件的信息，我发现基本上都有DisplayName,但是很多没有InstallLocation,个别的软件，桌面的快捷方式都可以看到指向什么目录下的exe，但是注册表InstallLocation的值却是空白的

请问怎么办？

谢谢先！

[贝隆]

楼主头像很好看

[imur50]

继续请教 ！！！！！

[imur50]

现在我找到了vbs的代码，但是我要改成vb使用的，下面的代码，不是完全通用，请大侠帮帮忙改一下，谢谢先： 'Written by SunZhenfang 200603 Const HKEY_LOCAL_MACHINE = &H80000002 Set Shell = CreateObject("WScript.network") strComputer = Shell.ComputerName' 此处我们通过WScript.Network得到的ComputerName为运行此段VBS脚本的计算件名，若改为其他机器的名字，并具有一定的权限，将可以得到那台计算机上已安装的软件列表 Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys Num = 0 Dim strArray() Dim strArray2() For Each Subkey in arrSubKeys strDetail = strKeyPath & "\" & SubKey objReg.EnumValues HKEY_LOCAL_MACHINE, strDetail,arrEntryNames,arrValueTypes objReg.GetStringValue HKEY_LOCAL_MACHINE, strDetail, "DisplayName", strValue If Not IsNull(strValue) Then ReDim Preserve strArray(Num+1) strArray(Num) = strValue objReg.GetStringValue HKEY_LOCAL_MACHINE, strDetail, "InstallLocation", strValue If Not IsNull(strValue) Then strArray(Num) =strArray(Num) & "，\" & strValue & "\" else strArray(Num) =strArray(Num) & "，NULL" end if Num = Num + 1 End If Next ' 将得到的结果排序 For i=0 To UBound(strArray)-1 For j=i+1 To UBound(strArray)-1 If(strArray(i)>strArray(j)) Then tmp = strArray(i) strArray(i) = strArray(j) strArray(j) = tmp End If Next Next '将得到的结果输出到一个以计算机名命名的文本文件中 Set fso = CreateObject("Scripting.FileSystemObject") Set fle = fso.CreateTextFile(strComputer + ".txt", True) For k=0 To UBound(strArray)-1 fle.WriteLine(strArray(k)) Next fle.Close()