Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dringed!!! Dynamische IP
Autor: coly
Datum: 21.09.03 18:46
Probier mal diesen Code: lblIP = Label cboAdapter = Combobox es werden sämtliche Netzwerk Adapter abgefragt, aber nur jene mit vorhandener IP Adresse in die Combobox eingetragen Viel Spaß beim krübeln -------------------------------------------------------- Dim id() As Long Dim i As Integer Private Sub Form_Load() Set wmi = GetObject("winmgmts:root/CIMV2") sql = "SELECT * FROM Win32_NetworkAdapterConfiguration" Set result = wmi.ExecQuery(sql) ReDim id(result.Count) For Each instance In result If Not IsNull(instance.IPAddress) Then id(i) = instance.Index cboAdapter.AddItem instance.Description i = i + 1 End If Next cboAdapter.ListIndex = cboAdapter.ListCount - 1 End Sub Private Sub cboAdapter_Click() Set wmi = GetObject("winmgmts:root/CIMV2") sql = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE index=" + CStr(id(cboAdapter.ListIndex)) Set result = wmi.ExecQuery(sql) For Each instance In result lblIP = instance.IPAddress(0) Next End Sub

Dringed!!! Dynamische IP	576	Vbler88	18.09.03 14:11
Re: Dringed!!! Dynamische IP	388	Dieter	18.09.03 14:53
Re: Dringed!!! Dynamische IP	401	Vbler88	18.09.03 15:06
Re: Dringed!!! Dynamische IP	333	WMcPIMP	18.09.03 16:31
Re: Dringed!!! Dynamische IP	323	Vbler88	19.09.03 21:05
Re: Dringed!!! Dynamische IP	312	WMcPIMP	20.09.03 09:51
Re: Dringed!!! Dynamische IP	333	coly	20.09.03 22:44
Re: Dringed!!! Dynamische IP	288	Vbler88	21.09.03 10:12
Re: Dringed!!! Dynamische IP	311	coly	21.09.03 18:46

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