WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > レジストリの値の名前と種類を列挙する |
Panasonic Let'snote を長年愛用しています、その理由は My Let'snote で…
中古車買うならやっぱり IT 関連情報を気軽に知りたい方へ、 レジストリの値の名前と種類を列挙する: StdRegProv - WMI Sample (VB)Topics
レジストリの値の名前と種類を列挙するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim Reg As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim RegName As Variant Dim RegType As Variant Dim MesStr As String Dim TypeStr As String Dim I As Long Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Reg = Service.Get("StdRegProv") Const HKEY_LOCAL_MACHINE = &H80000002 Reg.EnumValues HKEY_LOCAL_MACHINE, _ "SOFTWARE\Microsoft\Windows NT\CurrentVersion", RegName, RegType For I = 0 To Ubound(RegName) Select Case RegType(i) Case 1 TypeStr = "REG_SZ" Case 2 TypeStr = "REG_EXPAND_SZ" Case 3 TypeStr = "REG_BINARY" Case 4 TypeStr = "REG_DWORD" Case 7 TypeStr = "REG_MULTI_SZ" End Select MesStr = MesStr & RegName(i) & " : " & TypeStr & vbCrLf Next MsgBox "レジストリの値の名前と種類を列挙します。" & vbCrLf & vbCrLf & MesStr Set Reg = Nothing Set Service = Nothing Set Locator = Nothing End Sub
![]() Comment
実行するとレジストリの値の名前と種類の列挙を行います。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |