- PR -

DNSをスクリプトで設定

1
投稿者投稿内容
hiro
会議室デビュー日: 2004/04/21
投稿数: 18
投稿日時: 2004-09-28 19:15
こんにちは。

WinXPのネットワーク設定をスクリプト(WMI)を使用して設定しています。
IpアドレスをDHCP⇔固定に変更する事は可能ですが、DNSの設定ができません。

ご存知の方、いらっしゃいましたら教えて頂けますか？

宜しくお願いします。
leopard
会議室デビュー日: 2004/10/29
投稿数: 1
投稿日時: 2004-10-29 20:35
これでどうでしょう？
WindowsXPで実証済みです。

Dim Net
Set Net = CreateObject("WScript.Network")
PName = Net.ComputerName
strComputer = PName
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
strIPAddress = Array("172.16.1.177")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("172.16.1.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
arrDNSServers = Array("172.16.1.10", "172.16.1.1")
objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
Next
1

スキルアップ／キャリアアップ（JOB@IT）