WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VBS) > レジストリの値の名前と種類を列挙する |
Panasonic Let'snote を長年愛用しています、その理由は My Let'snote で…
中古車買うならやっぱり IT 関連情報を気軽に知りたい方へ、 レジストリの値の名前と種類を列挙する: StdRegProv - WMI Sample (VBS)Topics
レジストリの値の名前と種類を列挙するサンプルプログラムです。
Sample Code
Option Explicit
'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClass Dim oLocator Dim oService Dim oRegName Dim oRegType Dim i Dim sMesStr Dim sTypeStr Const HKEY_LOCAL_MACHINE = &H80000002 'ローカルコンピュータに接続する。 Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator") Set oService = oLocator.ConnectServer(, "root\default") 'クエリー条件を WQL にて指定する。 Set oClass = oService.Get("StdRegProv") oClass.EnumValues HKEY_LOCAL_MACHINE, _ "SOFTWARE\Microsoft\Windows NT\CurrentVersion", oRegName, oRegType For i = 0 To Ubound(oRegName) Select Case oRegType(i) Case 1 sTypeStr = "REG_SZ" Case 2 sTypeStr = "REG_EXPAND_SZ" Case 3 sTypeStr = "REG_BINARY" Case 4 sTypeStr = "REG_DWORD" Case 7 sTypeStr = "REG_MULTI_SZ" End Select sMesStr = sMesStr & oRegName(i) & " : " & sTypeStr & vbCrLf Next MsgBox "レジストリの値の名前と種類を列挙します。" & vbCrLf & vbCrLf & sMesStr '使用した各種オブジェクトを後片付けする。 Set oClass = Nothing Set oService = Nothing Set oLocator = Nothing
![]() Comment
実行するとレジストリの値の名前と種類の列挙を行います。
を紹介しています。 ![]() Latest sample information
最近WMI Sampleへ追加したサンプルのご紹介です。
興味のあるサンプル・クラスがありましたら参考にしてみて下さい。 |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |