WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > レジストリのサブキーを列挙する |
私も使っていますお勧め SIM フリースマホ ASUS Zenfone
ATM 利用時の入出金手数料が最大 7 回/月無料、 レジストリのサブキーを列挙する: StdRegProv - WMI Sample (VB)Topics
レジストリのサブキーを列挙するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim Reg As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim Sk As Variant Dim SkSet As Variant Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Reg = Service.Get("StdRegProv") Const HKEY_LOCAL_MACHINE = &H80000002 Reg.EnumKey HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki", SkSet For Each Sk In SkSet MesStr = MesStr & Sk & vbCrLf Next MsgBox "レジストリのサブキーを列挙します。" & vbCrLf & vbCrLf & MesStr Set Reg = Nothing Set Service = Nothing Set Locator = Nothing End Sub
![]() Comment
実行するとレジストリのサブキーを列挙します。ただしこちらのサンプルで作成したキーの列挙を行うため事前に実行しておくことが必要です。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |