Probleme d'objet... [.NET] (Debutant

Question

Bonjour les codeurs...

alors J'ai un petit probleme avec les objets et vu que je suis débutant en VB, pas facile :-(

donc j'utilise une fction qui permet d'avoir des infos sur la ou les cartes réseaux, elle renvoi un objet IPConfigSet avec a l'interieur plein d'infos...

Function InfosCardReseau() As Object
        Dim IPConfig As Object
        Dim Computer As String
        Dim IPConfigSet As Object
        'Computer = InputBox("Nom de l'ordinateur à tester où rien pour celui-ci : ", "IpConfig")
        On Error Resume Next
        IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & Computer).ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
        If Err.Number <> 0 Then
            MsgBox(" - non accessible -")
        Else
            Return IPConfigSet
        End If

    End Function

je l'utilise ici:

    Private Sub ButtonRefreshInfos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRefreshInfos.Click
        LabelOSMachine.Text = OsMachine().ToString

        Dim IpConfig As Object
        Dim IpConfigSet As Object = InfosCardReseau()
        Dim i As Integer = 0
        For Each IpConfig In IpConfigSet
            If i = 0 Then
                LabelIP1Machine.Text = IpConfig.IPaddress(0)
                    'LabelIP2Machine.Text = IpConfig.IPaddress(1)               \ ici est le probleme car des fois la carte réseau possede plusieurs adresses IP, et lorsque c'est pas le cas ca plante
                LabelMAC1Machine.Text = IpConfig.MACAddress
                i = i + 1
            Else
                LabelIP3Machine.Text = IpConfig.IPaddress(0)
            End If
            LabelMAC2Machine.Text = IpConfig.MACAddress
            End If
        Next

    End Sub

Donc voila, je ne sais pas quoi et comment tester si le tableau IPAddress(1) contient quelque chose...

Je sollicite enormement votre aide

Merci d'avance.

cs_drahcir · Answer

Salut,

If IpConfig.IpAdress.count >0 Then
....
End If

<hr />
@+

nerone21 · Answer

Ca me provoque cette erreur:

Une exception non gérée du type 'System.MissingMemberException' s'est produite dans Microsoft.VisualBasic.dll



Informations supplémentaires : Le membre public 'IpAdress' du type 'SWbemObjectEx' est introuvable.

nerone21 · Answer

Ca me provoque cette erreur:

Une exception non gérée du type 'System.MissingMemberException' s'est produite dans Microsoft.VisualBasic.dll



Informations supplémentaires : Le membre public 'IpAdress' du type 'SWbemObjectEx' est introuvable.

cs_drahcir · Answer

C'est peut-être .Length au lieu de .Count....

<hr />
@+

TeBeCo · Answer

cf la classe "networkinformation" recente dans .net 2 pour cela il me semble en plus c'est rempliiiis d'exemple et de mode d'utilisation (j'en sais pas bcp plus pour autant)

TeBeCo

cs_drahcir · Answer

en plus c'est pas IpAdress, c'est IPaddress apparemment...

<hr />
@+

TeBeCo · Answer

a tient me suis gourré ce post lol qqun peux virer mes 2 post :p

TeBeCo

Probleme d'objet... [.NET] (Debutant

7 réponses

Votre réponse

Discussions similaires