8
DNS-Serveradresse automatisch beziehen mit VBS
Hallo
Ich habe mit Hilfe mehrerer Quellen (da ich davon eigentlich überhaupt keine Ahnung habe) eine VBS erstellt um einem Computer eine fixe IP, einen Standard-Gateway und einen DNS-Server zuzuweisen.
Das Ganze brauche ich um einem Laptop von zuhause einen Zugang zum Firmen-Server zu ermöglichen. Zuhause steht ein Router des Providers der nur auf einer bestimmten Adresse diese Vebindung zulässt, stelle ich sie mit dem Script richtig ein.
Danach sollen die IP-Adresse und der DNS-Server wieder automatisch zugewiesen werden.
Das mit der Ip-Adresse geht soweit nur habe ich bis jetzt nichts gefunden was dazu führt, dass der DNS-Server wieder automatisch bezogen wird.
Bis jetzt schaut das Script so aus:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
If Not objNicConfig.DHCPEnabled Then
intReturn = objNicConfig.EnableDHCP
End If
Next
Danke im voraus
Peter
Ich habe mit Hilfe mehrerer Quellen (da ich davon eigentlich überhaupt keine Ahnung habe) eine VBS erstellt um einem Computer eine fixe IP, einen Standard-Gateway und einen DNS-Server zuzuweisen.
Das Ganze brauche ich um einem Laptop von zuhause einen Zugang zum Firmen-Server zu ermöglichen. Zuhause steht ein Router des Providers der nur auf einer bestimmten Adresse diese Vebindung zulässt, stelle ich sie mit dem Script richtig ein.
Danach sollen die IP-Adresse und der DNS-Server wieder automatisch zugewiesen werden.
Das mit der Ip-Adresse geht soweit nur habe ich bis jetzt nichts gefunden was dazu führt, dass der DNS-Server wieder automatisch bezogen wird.
Bis jetzt schaut das Script so aus:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
If Not objNicConfig.DHCPEnabled Then
intReturn = objNicConfig.EnableDHCP
End If
Next
Danke im voraus
Peter
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: 12177
Url: https://administrator.de/contentid/12177
Printed on: April 20, 2024 at 01:04 o'clock
8 Comments
Latest comment
Dein script aktiviert dhcp (aut. ip!). Wenn ich richtig verstehe, willst du das gegenteil, also:
If objNicConfig.DHCPEnabled Then
intReturn = objNicConfig.DisableDHCP
End If
...oder ist das zum reaktivieren von dhcp?
If objNicConfig.DHCPEnabled Then
intReturn = objNicConfig.DisableDHCP
End If
...oder ist das zum reaktivieren von dhcp?
Hallo
Ich will mit dem Script DHCP reaktivieren, nur weiss ich nicht wie ich bei den TCP/IP-Eigenschaften der Netzwerkkarte den Punkt "DNS-Server automatisch beziehen" scriptisch machen kann - Das derzeitige Script gehörte als um diesen Punkt erweitert.
g
Peter
Ich will mit dem Script DHCP reaktivieren, nur weiss ich nicht wie ich bei den TCP/IP-Eigenschaften der Netzwerkkarte den Punkt "DNS-Server automatisch beziehen" scriptisch machen kann - Das derzeitige Script gehörte als um diesen Punkt erweitert.
g
Peter
Hi,
wieso benutzt du nicht netsh? Ist imho einfacher und ab W2000 auch Bestandteil des Betriebssystems?
mfg
DrOktagon
wieso benutzt du nicht netsh? Ist imho einfacher und ab W2000 auch Bestandteil des Betriebssystems?
mfg
DrOktagon
Du kannst vielleicht hier etwas finden:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk ...
gruß, alesio
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk ...
gruß, alesio
Hallo DrOktagon
Danke für den Netsh-Hinweis
Tatsächlich, es geht einfacher - aber nur ein bisschen
So bin ich dann doch mit zwei Zeilen glücklich geworden
netsh interface ip set address "LAN-Verbindung" dhcp
netsh interface ip set dns "LAN-Verbindung" dhcp
Danke
Peter
Danke für den Netsh-Hinweis
Tatsächlich, es geht einfacher - aber nur ein bisschen
So bin ich dann doch mit zwei Zeilen glücklich geworden
netsh interface ip set address "LAN-Verbindung" dhcp
netsh interface ip set dns "LAN-Verbindung" dhcp
Danke
Peter
Hi Alesio
Das war eine der Seiten die ich verwendet habe um überhaupt einmal soweit zu kommen eine fixe Ip, Gateway und DNS einzustellen bzw. die IP wieder auf automatisch beziehen zurückzustellen - nur für den DNS-Server habe ich nichts gefunden
Aber ich habe jetzt DrOktagons Hinweis mit netsh umgesetzt.
Danke
Peter
Das war eine der Seiten die ich verwendet habe um überhaupt einmal soweit zu kommen eine fixe Ip, Gateway und DNS einzustellen bzw. die IP wieder auf automatisch beziehen zurückzustellen - nur für den DNS-Server habe ich nichts gefunden
Aber ich habe jetzt DrOktagons Hinweis mit netsh umgesetzt.
Danke
Peter
Es gibt noch eine Möglichkeit. Der Wert DhcpNameServer unter dem Schlüssel HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces
\ {AdapterIdentifier} auf null setzen. Nicht schön aber funktioniert.
Siehe: http://www.microsoft.com/germany/technet/datenbank/articles/600485.mspx
\ {AdapterIdentifier} auf null setzen. Nicht schön aber funktioniert.
Siehe: http://www.microsoft.com/germany/technet/datenbank/articles/600485.mspx
Um diesen Thread für künftige Scriptmenschen zu vervollständigen möchte ich Euch meine Lösung vorschlagen:
ErrorDNS = objNicConfig.SetDNSServerSearchOrder(dhcp)
Mit diesem Befehl wird die DNS-Serveradresse automatisch über DHCP bezogen.
Falls die Option zwar gesetzt ist aber trotzdem kein DNS-Server nicht erreicht wird, muss man zusätzlich noch das DHCP Lease erneuern:
objNicConfig.RenewDHCPLease
Mfg Moyyer
ErrorDNS = objNicConfig.SetDNSServerSearchOrder(dhcp)
Mit diesem Befehl wird die DNS-Serveradresse automatisch über DHCP bezogen.
Falls die Option zwar gesetzt ist aber trotzdem kein DNS-Server nicht erreicht wird, muss man zusätzlich noch das DHCP Lease erneuern:
objNicConfig.RenewDHCPLease
Mfg Moyyer
