hente lokal ip m.m.

Mon ikke du kan bruge det eksempel der er i dokumentationen? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemnetipaddressclasstopic.asp

Ellers er der jo evt. http://www.eksperten.dk/spm/561779

Når jeg prøver at hente det via WMI, så får jeg følgende fejl ved:

Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

Fejl:

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in system.management.dll

Additional information: Tjenesten eller gruppen, som det afhænger af, startede ikke.

Her du en idé til hvordan det problem kan løses?

Har du husket at tage system.management.dll med i din solution ?

hvis du mener at tilføje den under references - så ja

Jeg hader danske fejlmeddelser :(

Hvilket system køre du på?

winxp pro

Sidder selv på samme og kan ikke fremkalde den fejl - må vi se koden du forsøger at afvikle?

yeps - kommer her:

Dim objMC As ManagementClass
        objMC = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim objMOC As ManagementObjectCollection = objMC.GetInstances() '(Det er her den fejler)
        Dim objmo As ManagementObject
        Dim i As Integer
        For Each objmo In objMOC

            If objmo.Item("ipEnabled") = True Then




                lbStatus.Items.Add(objmo.Item("Caption") & " :: " & objmo.Item("ServiceName") & "," & objmo.Item("MACAddress"))
                Dim ipaddresses() As String = objmo.Item("IPAddress")
                Dim subnets() As String = objmo.Item("IPSubnet")
                Dim gateways() As String = objmo.Item("DefaultIPGateway")


                lbStatus.Items.Add("Printing Default Gateway Info:")
                lbStatus.Items.Add(objmo.Item("DefaultIPGateway").ToString())

                lbStatus.Items.Add("Printing IPGateway Info:")
                For i = gateways.GetLowerBound(0) To gateways.GetUpperBound(0)
                    lbStatus.Items.Add(gateways(i))
                Next
            End If
Next

Jeg har rettet en smule i din kode som virker perfekt her.

Imports System.Management
Module Module1
    Sub Main()
        Dim objMC As ManagementClass
        Try
            objMC = New ManagementClass("Win32_NetworkAdapterConfiguration")
            Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
            Dim objmo As ManagementObject
            Dim i As Integer
            For Each objmo In objMOC
                If objmo.Item("ipEnabled") = True Then
                    Console.WriteLine(objmo.Item("Caption") & " :: " & objmo.Item("ServiceName") & "," & objmo.Item("MACAddress"))
                    Dim ipaddresses() As String = objmo.Item("IPAddress")
                    Dim subnets() As String = objmo.Item("IPSubnet")
                    Dim gateways() As String = objmo.Item("DefaultIPGateway")

                    Console.WriteLine("Printing Default Gateway Info:")
                    If Not objmo.Item("DefaultIPGateway") Is Nothing Then
                        Console.WriteLine(objmo.Item("DefaultIPGateway").ToString())
                    End If

                    Console.WriteLine("Printing IPGateway Info:")
                    If Not gateways Is Nothing AndAlso gateways.Length > 0 Then
                        For i = gateways.GetLowerBound(0) To gateways.GetUpperBound(0)
                            Console.WriteLine(gateways(i))
                        Next
                    End If
                End If
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message & " - " & ex.StackTrace)
        End Try
    End Sub
End Module

Hvad ske der??? er der et sted i systemet hvor det kan være deaktiveret?
for nu har jeg denne fejl: (det er samme sted den fejler)

Tjenesten eller gruppen, som det afhænger af, startede ikke. -    at System.Management.ThreadDispatch.Start()
  at System.Management.ManagementScope.Initialize()
  at System.Management.ManagementObject.Initialize(Boolean getObject)
  at System.Management.ManagementClass.GetInstances(EnumerationOptions options)
  at System.Management.ManagementClass.GetInstances()

Prøv lige dette i en cmd:
net stop winmgmt
net start winmgmt

Den er slet ikke startet, og da jeg prøvede på det kom denne fejl:

Systemfejlen 1068 opstod.

Så er jeg ved at give fortabt da det ikke har så meget med programmering at gøre, men prøv evt. at følge denne tråd: http://www.dotnet247.com/247reference/msgs/48/240143.aspx

okay - bar eiorden - men nu ved jeg da hvor hende af jeg har problemer - mange tak for hjælpen, og du skal have dine velfortjente point

Så er det jo noget med at jeg skal lave et svar :)

Håber du finder ud af hvad der fejler !

så fik jeg det til at køre - både min og din kode virker nu ;)
Her er hvad jeg skulle igennem:

C:\>cd %windir%\system32\wbem

C:\WINDOWS\system32\wbem>ren repository repository.old

C:\WINDOWS\system32\wbem>winmgmt /clearadap

C:\WINDOWS\system32\wbem>winmgmt /kill

C:\WINDOWS\system32\wbem>winmgmt /unregserver

C:\WINDOWS\system32\wbem>winmgmt /regserver

C:\WINDOWS\system32\wbem>winmgmt /resyncperf