C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 35 を表示中)
■17376 / )  アプリ情報
□投稿者/ 岨心 (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
返信 編集キー/


管理者用

- Child Tree -