ネットワークアダプタに DNS アドレスを設定する: Win32_NetworkAdapterConfiguration - WMI Sample (VB)

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