Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

DNS-Serveradresse automatisch beziehen mit VBS

Frage Netzwerke

Mitglied: DerDieFrageHat

DerDieFrageHat (Level 1) - Jetzt verbinden

21.06.2005, aktualisiert 21.05.2007, 12205 Aufrufe, 8 Kommentare

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
Mitglied: alesio
21.06.2005 um 16:38 Uhr
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?
Bitte warten ..
Mitglied: DerDieFrageHat
22.06.2005 um 07:54 Uhr
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
Bitte warten ..
Mitglied: 12217
22.06.2005 um 10:59 Uhr
Hi,

wieso benutzt du nicht netsh? Ist imho einfacher und ab W2000 auch Bestandteil des Betriebssystems?

mfg
DrOktagon
Bitte warten ..
Mitglied: alesio
22.06.2005 um 11:14 Uhr
Du kannst vielleicht hier etwas finden:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk ...

gruß, alesio
Bitte warten ..
Mitglied: DerDieFrageHat
23.06.2005 um 08:08 Uhr
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
Bitte warten ..
Mitglied: DerDieFrageHat
23.06.2005 um 08:15 Uhr
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
Bitte warten ..
Mitglied: StarSpace
03.05.2006 um 09:09 Uhr
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
Bitte warten ..
Mitglied: 48422
21.05.2007 um 16:28 Uhr
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
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Netzwerk
gelöst Statischer DNS-Server wird nach Sekunden automatisch gelöscht (Windows 10) (8)

Frage von walterwhite zum Thema Windows Netzwerk ...

Windows Update
Wie Updates automatisch per WSUS aber Treiber per Onlinesuche? (5)

Frage von Pedant zum Thema Windows Update ...

Batch & Shell
gelöst String automatisch anpassen (erweitern oder kürzen) (9)

Frage von CreatorX zum Thema Batch & Shell ...

Windows Server
DNS Timeout was 2 seconds (13)

Frage von geocast zum Thema Windows Server ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (28)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
Welches OS für Firmengeräte? (18)

Frage von MarkusVH zum Thema Windows 10 ...

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (17)

Frage von bogi1102 zum Thema Exchange Server ...