DNS登録用VBS

Software

説明

192.168.1.100 と 192.168.1.200 の 2 台の DNS サーバーを使用するように、TCP/IP がバインドされたネットワーク アダプタを設定します。コンピュータが DNS サーバーを 1 台だけ使用している場合でも、そのサーバーの IP アドレスは配列として SetDNSServerSearchOrder メソッドに渡す必要があります (この場合は、要素を 1 つだけ含む配列になります)。

サポートするプラットホーム

Windows Server 2003,Windows XP,Windows 2000,Windows NT 4.0,Windows98

エンドユーザの手を煩わすことなく変更可能か検証。
当然、管理者権限を持ったユーザで実行しないと正しく変更できないんだけど、
runasコマンドを使うとパスワードが丸見えだしなぁ･･･
とりあえずは、管理者権限があるエンドユーザに動かしてもらうんなら大丈夫かな。

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array("192.168.1.100", "192.168.1.200")
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next