ネットワークアダプタにDNSアドレスを設定する: Win32_NetworkAdapterConfiguration
■Topics
ネットワークアダプタにDNSアドレスを設定するサンプルです。Win32_NetworkAdapterConfigurationクラスを使用します。
Private Sub Command1_Click()
Dim NicSet As SWbemObjectSet
Dim Nic As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Dim Ret As Long
Dim DNSAdd(1) As Variant
Ret = -1
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set NicSet = Service.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " & _
"Where Description Like '%Intel%'")
For Each Nic In NicSet
DNSAdd(0) = "192.168.200.200"
DNSAdd(1) = "192.168.200.201"
Ret = Nic.SetDNSServerSearchOrder(DNSAdd)
Next
If Ret = 0 Then
MsgBox "DNS アドレスを変更しました。"
Else
MsgBox "DNS アドレスを変更できませんでした。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim NicSet As SWbemObjectSet
Dim Nic As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Dim Ret As Long
Dim DNSAdd(1) As Variant
Ret = -1
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set NicSet = Service.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " & _
"Where Description Like '%Intel%'")
For Each Nic In NicSet
DNSAdd(0) = "192.168.200.200"
DNSAdd(1) = "192.168.200.201"
Ret = Nic.SetDNSServerSearchOrder(DNSAdd)
Next
If Ret = 0 Then
MsgBox "DNS アドレスを変更しました。"
Else
MsgBox "DNS アドレスを変更できませんでした。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると「Intel」が含まれるネットワークアダプタに対してDNSアドレスを設定します。成功すれば「DNS アドレスを変更しました。」と表示されます。
このサンプルでは成功の判断しか行っていませんが、失敗時のエラーの取得も可能です。SetDNSServerSearchOrderメソッドを実行した結果でエラーの状況を取得できます。
Win32_NetworkAdapterConfiguration クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。