ネットワークアダプタに固定IPアドレスを設定する: Win32_NetworkAdapterConfiguration
■Topics
ネットワークアダプタに固定IPアドレスを設定するサンプルです。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 IPAdd(0) As Variant
Dim IPSub(0) 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
IPAdd(0) = "192.168.0.150"
IPSub(0) = "255.255.255.0"
Ret = Nic.EnableStatic(IPAdd, IPSub)
Next
If Ret = 0 Then
MsgBox "IP アドレスを変更しました。"
Else
MsgBox "IP アドレスを変更できませんでした。"
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 IPAdd(0) As Variant
Dim IPSub(0) 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
IPAdd(0) = "192.168.0.150"
IPSub(0) = "255.255.255.0"
Ret = Nic.EnableStatic(IPAdd, IPSub)
Next
If Ret = 0 Then
MsgBox "IP アドレスを変更しました。"
Else
MsgBox "IP アドレスを変更できませんでした。"
End If
Set NicSet = Nothing
Set Nic = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると「Intel」が含まれるネットワークアダプタに対して固定IPアドレスを設定します。成功すれば「IP アドレスを変更しました。」と表示されます。
このサンプルでは成功の判断しか行っていませんが、失敗時のエラーの取得も可能です。EnableStaticメソッドを実行した結果でエラーの状況を取得できます。
Win32_NetworkAdapterConfiguration クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。