vb@rchiv · Diskussionsforen · Re: Netzwerkadresse auslesen

VB Classic
VB.NET
ADO.NET
VBA
C#

Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[485 User online]
[458 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Fortgeschrittene Programmierung

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Fortgeschrittene Programmierung

Re: Netzwerkadresse auslesen

Autor: Steffen Berger
Datum: 31.07.06 16:42

versuchs mal damit Set oAdapters = GetObject("winmgmts:").ExecQuery( _ "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") ' Objekte durchlaufen Index = 100 For Each oAdapter In oAdapters DoEvents With oAdapter ' MAC-Adresse fout.Writeline "Index: " & Index & " " & "MACAddress:" & vbTab & vbTab & .MACAddress Index = Index + 1 ' IP-Adresse fout.Writeline "Index: " & Index & " " & "IPAddress:" & vbTab & vbTab & Join(.IPAddress) Index = Index + 1 ' SubNet-Masks fout.Writeline "Index: " & Index & " " & "IPSubnet:" & vbTab & vbTab & Join(.IPSubnet) Index = Index + 1 ' Default-Gateways If Not IsNull(.DefaultIPGateway) Then fout.Writeline "Index: " & Index & " " & "IPGateway:" & vbTab & vbTab & Join(.DefaultIPGateway) End If Index = Index + 1 ' DNS - Primary/Secondary fout.Writeline "Index: " & Index & " " & "DNSHostName:" & vbTab & vbTab & .DNSHostName Index = Index + 1 ' WINS - Primary If .WINSPrimaryServer <> "" Then fout.Writeline "Index: " & Index & " " & "WINSPrimaryServer:" & vbTab & .WINSPrimaryServer End If Index = Index + 1 ' WINS - Secondary If .WINSSecondaryServer <> "" Then fout.Writeline "Index: " & Index & " " & "WINSSecondaryServer:" & vbTab & .WINSSecondaryServer End If Index = Index + 1 End With Next

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Netzwerkadresse auslesen	1.302	sungrazer	12.07.06 08:59
Re: Netzwerkadresse auslesen	966	JAG	12.07.06 16:17
Re: Netzwerkadresse auslesen	887	sungrazer	13.07.06 10:10
Re: Netzwerkadresse auslesen	1.335	sungrazer	20.07.06 14:30
Re: Netzwerkadresse auslesen	881	sungrazer	27.07.06 08:19
Re: Netzwerkadresse auslesen	915	Steffen Berger	31.07.06 16:42
Re: Netzwerkadresse auslesen	814	sungrazer	01.08.06 10:53
Re: Netzwerkadresse auslesen	796	sungrazer	01.08.06 13:15
Re: Netzwerkadresse auslesen	820	That	01.08.06 14:21
Re: Netzwerkadresse auslesen	845	sungrazer	02.08.06 10:13

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevISDN 1.0

Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m.

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Neu! sevCoolbar 3.0

Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access

Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel