*

ネットワークアダプタを設定

公開日: : 最終更新日:2013/12/20 windows, ネットワーク

手動でやると面倒なのでvbsのファイルを作る。
管理者でログインしていないと失敗する模様。

Dim ThisPCNAME
ThisPCNAME = "xxx-PC"
Set objWMIService = GetObject("winmgmts:\\" & ThisPCNAME & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

IPAddress = Array("192.168.1.5")
SubnetMask = Array("255.255.255.0")
Gateway = Array("192.168.1.1")
DNSServers = Array("192.168.1.1")

'Inform user
Set WS = CreateObject("Wscript.Shell")
WS.Popup "しばらくお待ちください。" ,3
GatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(IPAddress, SubnetMask)
errGateways = objNetAdapter.SetGateways(Gateway, Gatewaymetric)
errDNSServer = objNetAdapter.SetDNSServerSearchOrder(DNSServers)
If errEnable = 0 Then
WS.Popup "IPアドレスは変更されました。",2
Else
WS.Popup "IPアドレスを変更することができませでした。"
End If
Next

admax_area



関連記事

no image

free sshd

うまくいかない   http://2kr.blog87.fc2.com/blo

記事を読む

no image

ITE NO : CX-FU02 : USB FAXモデム 56Kbps Vista/7対応

OS : WIN7pro(32bit) 回線 :  INS64 TA(INSメイトV30DSU

記事を読む

no image

フォント: MeiryoKe_Console の追加

「C:\Windows\Fonts」から「メイリオ」を任意のフォルダにコピー meiryoKe_g

記事を読む

no image

YAMAHA RT107e

●取説 http://www.rtpro.yamaha.co.jp/RT/manual/rt1

記事を読む

no image

ネットワーク機器に入れたいとき

baffalo ID root P/W <blank>  

記事を読む

no image

ネットワーク用コマンド@コマンドプロンプト

■基本 iptable /all [/shell] arp -a [/she

記事を読む

no image

メール

Set olkApp = CreateObject("Outlook.Application")

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

admax_area



PAGE TOP ↑