PC-UNIXに関する記事など

誰でも簡単にネットワークアダプタの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

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


このエントリーをはてなブックマークに追加

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

トラックバック(0)

トラックバックURL: http://www.omakase.org/mt/mt-tb.cgi/65

コメントする

カテゴリwindowsの記事一覧