|
IPアドレスの取得は、成功しましたが
VBAを使って、IPアドレスの設定は可能でしょうか?
取得のルーチンを参考に以下のように、作ってみました。
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Dim IPアドレス As Variant
Dim SUBネット As Variant
Dim デフォルトゲートウェイ As Variant
Dim IP区切 As Variant
IPアドレス = "126.98.120.245"
SUBネット = "255.255.255.240"
デフォルトゲートウェイ = "126.98.120.1"
n = 1
For Each objAdapter In colAdapters
If Not IsNull(objAdapter.DefaultIPGateway) Then
objAdapter.IPAddress(i) = IPアドレス
objAdapter.IPSubnet(i) = SUBネット
objAdapter.DefaultIPGateway(i) = デフォルトゲートウェイ
End If
n = n + 1
Next
IPアドレスは、例としてですが
VBAを使って設定したくとも
どうやっても出来ない状態です。
教えていただきたく、よろしくお願いいたします。
|
|