1
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 32111
Url: https://administrator.de/contentid/32111
Printed on: April 25, 2024 at 05: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
