誰でも簡単にネットワークアダプタのIPアドレスを変更する

Windowsマシンのネットワーク情報の変更はGUIでマウスをクリックしていけば変更出来るが、設定変更が慣れていない方や変更する台数が非常に多い場合とても面倒な作業に感じるでしょう。

そこで誰でも簡単にかつ素早く・正確にIPアドレスを変更できる方法があります。その方法はVBScriptを使うことで可能になります。 IPアドレス情報等設定されたscriptを作っておけばクリックするだけで簡単に変更する事が出来ます。

設定変更スクリプトの以下の情報を変更して実行して下さい。

6行目 IPアドレス
7行目サブネットマスク
8行目デフォルトゲートウェイ
9行目ネームサーバ

設定変更スクリプト

Option Explicit
Dim NetworkAdapter, AdapterConfiguration
Dim IPAddress, SubnetMask, Gateway, DNS
Dim RetVal

IPAddress = Array("192.168.0.6")
SubnetMask = Array("255.255.255.0")
Gateway = Array("192.168.0.10")
DNS = Array("192.168.0.10","192.168.0.12")

For Each NetworkAdapter In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapter")
If NetworkAdapter.AdapterType = "イーサネット 802.3" Then
For Each AdapterConfiguration In GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
If UCase(AdapterConfiguration.ServiceName) = UCase(NetworkAdapter.ServiceName) Then
RetVal = AdapterConfiguration.EnableStatic(IPAddress, SubnetMask)
If Not RetVal = 0 Then
WScript.Echo "Failuer assigning IP/Subnetmask."
End If
RetVal = AdapterConfiguration.SetGateways(Gateway)
If Not RetVal = 0 Then
WScript.Echo "Failuer assigning Gateway."
End If
RetVal = AdapterConfiguration.SetDnsServerSearchOrder(DNS)
If Not RetVal = 0 Then
WScript.Echo "Failuer assinging DNS search order."
End If
End If
Next
End If
Next

スクリプトは自己責任において利用して下さい。スクリプト使用による損害・被害など責任は一切取れません。

created: 2012/02/19