WINS bei Clients mit fester IP eintragen
Hallo!
Ich möchte bei meinen CLients (XP PRO) den WINS-Server eintragen. Sie haben allerdings statische IPs. Wie kann ich per Grupenrichtlinie oder ähnliches bei allen Clients den WINS-Server (ist auch DC, SBS2003) eintragen?
viele grüße und danke
Ich möchte bei meinen CLients (XP PRO) den WINS-Server eintragen. Sie haben allerdings statische IPs. Wie kann ich per Grupenrichtlinie oder ähnliches bei allen Clients den WINS-Server (ist auch DC, SBS2003) eintragen?
viele grüße und danke
Please also mark the comments that contributed to the solution of the article
Content-Key: 32111
Url: https://administrator.de/contentid/32111
Printed on: April 26, 2024 at 23:04 o'clock
1 Comment
z.B. per VBS-Script über WMI
;WINS-SERVER
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
strPrimaryServer = "192.168.0.11"
strSecondaryServer = "192.168.0.22"
objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next
;DNS Server
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.0.11", "192.168.0.22")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Karo
;WINS-SERVER
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
strPrimaryServer = "192.168.0.11"
strSecondaryServer = "192.168.0.22"
objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next
;DNS Server
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.0.11", "192.168.0.22")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Karo