thoben81 10 Posted April 3, 2006 Report Share Posted April 3, 2006 Hallo zusammen, wir wollen unser IP-Netz in der Zentrale umstellen und die Server in ein separates IP-Netz stellen. Wir haben 30 Aussenstandorte (30 IP-Netze) mit ca 300 PC´s die alle lokal 2 DNS-Server eingetragen haben. So jetzt meine Frage: Gibt es eine möglichkeit, die lokale IP-Konfiguration der Rechner automatisch auf einmal zu ändern (natürlich nur die 2 DNS-Einträge)? Danke! MfG Oliver Quote Link to comment
Kolath 10 Posted April 3, 2006 Report Share Posted April 3, 2006 also wenn ihr die Clients schon in einer Domäne habt, dann ginge das per script und Gruppenrichtlinien. Glaube netsh wäre da ein guter Ansatz zum Googeln! ;) Quote Link to comment
thoben81 10 Posted April 3, 2006 Author Report Share Posted April 3, 2006 Danke, das ist schon mal nicht schlecht aber ich muß immer den namen der Schnittstelle mit angeben und der ist leider teilweise unterschiedlich. Gibt es vllt. noch ne Lösung? Danke MfG Oliver Quote Link to comment
grizzly999 11 Posted April 3, 2006 Report Share Posted April 3, 2006 Ja, ein VB-Skript, das ich zusammenbebastelt habe. Entweder als Startskript oder lokal ausgeführt oder mit psexec. Ist aber dennoch auf gewisse Art nur ein Workaround, die Microsoft-Sache mit den GUIDs in der Registry ist schon ätzend. Das Skript setzt den DNS-Server auf allen Interfaces, die unter TCPIP\Parameters\Interfaces gelistet sind. Wenn da also Karten mit unterschiedlichen DNS-Server sind, ist das Skript ungeeignet. Ich stelle das Skript hier mal zur allgemeinen Verfügung, Benutzung natürlich auf eigene Gefahr, bei Verbesserungen des Skripts diese mir bitte weitergeben ;) ****************Beginn Skript********************* 'Registry-Hive const HKLM = &H80000002 ' Setzt HKEY_LOCAL_MACHINE als Hive. 'Konstanten für die zu setzenden Werte; Mehrere Nameserver mit Komma getrennt ohne Leerzeichen eintragen! const DNS_Server_List = "192.x.x.x,192.x.x.x" 'Variablen für den Registry-Key strNameServer = "NameServer" strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv") 'Pfad zum Registry-Eintrag strKeyPath = "SYSTEM\CurrentControlSet\Services\TCPIP\Parameters\Interfaces" ' Auslesen aller Subkeys von "Interfaces" objReg.EnumKey HKLM, strKeyPath, arrSubKeys ' Setzen der Werte für alle ausgelesenen Subkeys For Each subkey In arrSubKeys 'Zusammensetzen des Keys strKey = "System\CurrentControlSet\Services\TcpIP\Parameters\Interfaces\"& subkey 'Setzen der Keys retVal = objReg.SetStringValue(HKLM, strKey, strNameServer,DNS_Server_List) Next set objWshShell = WScript.CreateObject("WScript.Shell") ****************END Skript********************* grizzly999 Quote Link to comment
thoben81 10 Posted April 3, 2006 Author Report Share Posted April 3, 2006 Besten Dank, genau das was ich brauche :D Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.