■17376 / inTopicNo.1) |
アプリ情報 |
□投稿者/ 岨心 (1回)-(2008/04/23(Wed) 11:10:52)
|
分類:[VB.NET/VB2005]
VB2005でアプリケーションを取得するPGを作成しています。
http://www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx#ECPAC で以下のコードを発見したのですがエラーが出てしまいます。 strSubKey等の宣言はどうしたらよいのでしょうか?
strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then WScript.Echo strValue End If Next
|
|