| - WMI Fun !! -|WMI Step|WMI Sample|WMI Reference|WMI LibraryLinks|About WMI Fun !! |
|
|
|
|
Home > WMI Sample > レジストリの値を書き込む
|
|
レジストリの値を書き込む: StdRegProv
■Topics
レジストリの値を書き込むサンプルです。名前空間が「root\default」、クラスが「StdRegProv」になります。
Private Sub Command1_Click()
Dim Reg As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim Ret As Long Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer(vbNullString, "root\default") Set Reg = Service.Get("StdRegProv") Dim BinaryValue Const HKEY_LOCAL_MACHINE = &H80000002 '文字列値 Ret = Reg.SetStringValue(HKEY_LOCAL_MACHINE, _ "SOFTWARE\Kotobuki\WMI", "StringValue", "テスト文字列") If Ret = 0 Then MsgBox "文字列値の作成に成功しました。" Else MsgBox "文字列値の作成に失敗しました。" End If 'DWORD値 Reg.SetDWORDValue HKEY_LOCAL_MACHINE, _ "SOFTWARE\Kotobuki\WMI", "DWORDValue", &HFF If Ret = 0 Then MsgBox "DWORD値の作成に成功しました。" Else MsgBox "DWORD値の作成に失敗しました。" End If 'バイナリ値 BinaryValue = Array(&H4B, &H4F, &H54, &H4F, &H42, &H55, &H4B, &H49) Reg.SetBinaryValue HKEY_LOCAL_MACHINE, _ "SOFTWARE\Kotobuki\WMI", "BinaryValue", BinaryValue If Ret = 0 Then MsgBox "バイナリ値の作成に成功しました。" Else MsgBox "バイナリ値レジストリの値の作成に失敗しました。" End If Set Reg = Nothing Set Service = Nothing Set Locator = Nothing End Sub
実行すると文字列、DWORD、バイナリ値の作成を行います。作成先は「HKEY_LOCAL_MACHINE\SOFTWARE\Kotobuki\WMI」になります。 なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。
|
|
ご意見・ご感想をこちらのアンケートからお待ちしています
解らないIT/パソコン用語は - WMI Fun !! - http://www.wmifun.net/ Microsoft社のテクノロジーであるWMI(Windows Management Instrumentation)の使い方を Visual Basicを使ってのんびり公開しています VBや.Net Framework(VB,C#)以外でもWSH(VBS)やPowerShellなどのスクリプトでも使えますよ! 資産管理や監視業務の効率化、システム系ツール開発にお勧めです This web site created by Toh. Copyright(C) 1997-2010 WMI Fun !!. All rights reserved. このサイトへのリンクはフリーです |
| ∧ ページの先頭へ… |