mac adres opvragen in vb.net

[Jordi16]

Hallo mensen,

Een simpele vraag waar ik niet uitkom: hoe vraag ik het mac-adres van een computer op in vb.net?

 

[Ginanity]

Dim mc As System.Management.ManagementClass
      Dim mo As ManagementObject
      mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
      Dim moc As ManagementObjectCollection = mc.GetInstances()
      For Each mo In moc
         If mo.Item("IPEnabled") = True Then
            ListBox1.Items.Add("MAC address " & mo.Item("MacAddress").ToString())
         End If
      Next

 

[Jordi16]

Dim mc As System.Management.ManagementClass
      Dim mo As ManagementObject
      mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
      Dim moc As ManagementObjectCollection = mc.GetInstances()
      For Each mo In moc
         If mo.Item("IPEnabled") = True Then
            ListBox1.Items.Add("MAC address " & mo.Item("MacAddress").ToString())
         End If
      Next

dan krijg ik:

Error 1 Type 'System.Management.ManagementClass' is not defined. 4 19 dualmind messenger
Error 2 Type 'ManagementObject' is not defined. 5 19 dualmind messenger
Error 3 Type 'ManagementClass' is not defined. 6 18 dualmind messenger
Error 4 Type 'ManagementObjectCollection' is not defined. 7 20 dualmind messenger

 

[Ginanity]

Je moet natuurlijk wel even je system.management in je references toevoegen maar ik ging er vanuit dat je dat wel zelf zou begrijpen.

 

[Jordi16]

Je moet natuurlijk wel even je system.management in je references toevoegen maar ik ging er vanuit dat je dat wel zelf zou begrijpen.

Ja sorry ik ben net met vb begonnen en nog een beetje aant rotzooien

maar bedankt iig

 

[Ginanity]

Wil je de vraag op opgelost zetten aub?

 

[Semafoor]

mss een domme vraag maaar hoe voeg ik die toe?

{EDIT}
Gevonden..

Bij references -> Add --> management --->onderaan hoofdscherm onderste twee aanvinken.

Semafoor

 

[computerproblem]

mss een domme vraag maaar hoe voeg ik die toe?

{EDIT}
Gevonden..

Bij references -> Add --> management --->onderaan hoofdscherm onderste twee aanvinken.

Semafoor

Hoi, waar kan ik de optie references vinden?
Ik zie deze namelijk niet zo snel staan.

Ik heb wel een references gevonden maar hier staat geen management bij.

 

[Pizara]

Je moet ook kijken bij het .NET tabblad en bij SYSTEM.management

 

[computerproblem]

Je moet ook kijken bij het .NET tabblad en bij SYSTEM.management

Dan vind ik in de namespace kolom hetvolgende:
System.Management.Instrumentation, deze staat er 3x in.

Moet ik deze dan aanvinken of iets anders. system.management zonder iets erachter zie ik namelijk niet staan.

 

[Pizara]

Je moet ook geen toolbox item toevoegen , maar een reference.

Klik met de rechtermuis in de 'Solution Explorer' op de naam van je applicatie en , klik dan op 'Add Reference'.

Of via het menu 'Project' en dan op 'Add Reference'.

(wel in de .NET tab kijken)

 

[computerproblem]

Je moet ook geen toolbox item toevoegen , maar een reference.

Klik met de rechtermuis in de 'Solution Explorer' op de naam van je applicatie en , klik dan op 'Add Reference'.

Of via het menu 'Project' en dan op 'Add Reference'.

(wel in de .NET tab kijken)

Bedankt, dit heb ik nu gevonden en toegevoegd. Maar nu krijg ik nog steeds de foutmelding:
Error 1 Type 'ManagementObject' is not defined.
Error 2 Type 'ManagementClass' is not defined.
Error 3 Type 'ManagementObjectCollection' is not defined.

De code van mijn bestand:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                ListBox1.Items.Add("MAC address " & mo.Item("MacAddress").ToString())
            End If
        Next
    End Sub

End Class

Ik denk dat ik hier iets fout doe. Maar ik weet niet weet. Ben ook nog meer beginnend met vb dus....

Groetjes,
computerproblem

 

[Pizara]

Ik weet het wel zeker, heb je wel je management classes geimporteerd?

Imports System.Management

Ben ook nog meer beginnend met vb dus....

edit : Misschien is het dan wel handig om eerst wat basiskennis VB.net op te doen, voordat je hier met dit soort intermediate vragen aankomt.

 

[computerproblem]

Bedankt.
Nu is het gelukt.

Ik heb al een beetje basiskennis doorgenomen. Ik zal eens kijken of er ergens iets te vinden is in het nederlands.