Попробуйте это: http://www.microsoft.com/technet/scriptcenter/topics/networking/05_atnc_dns.mspx
Скрипт выполняйте от имени доменного админа, чтобы на удаленных машинах не было проблем с доступом.

Второй вариант - настроить DHCP-сервер внутри сети.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

On Error Resume Next

strComputer = "."
strDNSHostName = "client1"
strDNSDomain = "fabrikam.com"
arrDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
arrDNSDomainSuffixSearchOrder = Array("hr.fabrikam.com", "contoso.com")

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

WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName & VbCrLf & _
" Attempting to enable DNS"
intEnableDNS = objNicConf.EnableDNS(strDNSHostName, strDNSDomain, _
arrDNSServerSearchOrder, arrDNSDomainSuffixSearchOrder)
If intEnableDNS = 0 Then
WScript.Echo " Successfully enabled DNS."
ElseIf intEnableDNS = 1 Then
WScript.Echo " Successfully enabled DNS." & VbCrLf & " Must reboot."
Else
WScript.Echo " Unable to enable DNS."
End If

WScript.Echo VbCrLf & String(80,"-")

Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs
strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

For Each objNicConfig In colNicConfigs
WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index & _
VbCrLf & " " & objNicConfig.Description
WScript.Echo " DNS Domain: " & objNicConfig.DNSDomain
WScript.Echo " DNS Server Search Order:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSServer In objNicConfig.DNSServerSearchOrder
WScript.Echo " " & strDNSServer
Next
End If
WScript.Echo " DNS Domain Suffix Search Order:"
If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
For Each strDNSDomainSuffix In objNicConfig.DNSDomainSuffixSearchOrder
WScript.Echo " " & strDNSDomainSuffix
Next
End If
Next

+1. Запямятовал. Слово "скрипт" засело в мозг и прописало жесткую ассоциацию с .vbs.
Дока на русском по использовнию netsh
http://www.osp.ru/win2000/2004/02/176751/