Discussion :

[Looney]

Bonjour,

Je cherche à pouvoir via code changer l'adresse ip d'une carte réseau. J'ai trouvé cette fonction à l'origine en c# que j'ai convertit en VB.NET, elle fonctionne a merveille (aucune exception) mais l'ip ne change pas : : Quelqu'un voit une faute ou une erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Public Sub setIP(ByVal IPAddress() As String, ByVal SubnetMask() As
 String, ByVal Gateway() As String)
 
 
        Dim objMC As Management.ManagementClass = New
 Management.ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim objMOC As Management.ManagementObjectCollection =
 objMC.GetInstances()
 
 
        Dim objMO As Management.ManagementObject
        For Each objMO In objMOC
            If (CType(objMO("IPEnabled"), Boolean) And objMO
("Index").ToString() = "11") Then
                Try
                    Dim objNewIP As Management.ManagementBaseObject =
 Nothing
                    Dim objSetIP As Management.ManagementBaseObject =
 Nothing
                    Dim objNewGate As Management.ManagementBaseObject =
 Nothing
 
                    objNewIP = objMO.GetMethodParameters("EnableStatic")
                    objNewGate = objMO.GetMethodParameters
("SetGateways")
 
                    'Set DefaultGateway
                    objNewGate("DefaultIPGateway") = Gateway
 
                    'Dim x() As Integer = {1}
                    'objNewGate("GatewayCostMetric") = x
 
                    'Set IPAddress and Subnet Mask
                    objNewIP("IPAddress") = IPAddress
                    objNewIP("SubnetMask") = SubnetMask
 
                    objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
                    objMO.InvokeMethod("SetGateways", objNewGate, Nothing)
                    MessageBox.Show("Ip Updated")
                Catch ex As Exception
                    MessageBox.Show("Unable to Set IP : " + ex.Message)
                End Try
            End If
        Next
    End Sub

Merci d'avance de votre aide,

Amicalement,

Looney

[neguib]

As-tu verifier pas à pas pour constater s'il entrait bien dans cette condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (CType(objMO("IPEnabled"), Boolean) And objMO("Index").ToString() = "11")

[Looney]

Salut Neguib,

Oui je l'ai vérifier pas à pas il passe par toutes les étapes sans aucun prob et également j'ai bien mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MessageBox.Show("Ip Updated")

qui se fait.

Amicalement,

Looney

[neguib]

as-tu déjà essayé cet article WMI or How to change my IP address

[Looney]

Cette source la marche beaucoup mieux . J'étais passé dessus dans mes recherches mais je ne l'avais pas relevée

Me reste plus qu'à la traduire en vb mais ca devrait pas poser trop de problèmes

Merci à toi neguib

Amicalement,

Looney

[milo2009]

Salut,

J'ai vu le code sur le site dotnet247, mais je ne sais pas comment le passer en vb.net.

Si tu a réussi peut tu me poster le code en vb.net.

Merci

[neguib]

Non testé désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
Imports System
Imports System.Management
Imports System.Threading
 
Namespace WmiIpChanger
 
 Class IpChanger
 
  <MTAThread()> _
  Shared Sub Main(ByVal args As String())
    ReportIP
    SwitchToStatic
    Thread.Sleep(5000)
    ReportIP
    Console.WriteLine("end.")
  Sub
 
  Shared Sub SwitchToDHCP()
    Dim inPar As ManagementBaseObject = Nothing
    Dim outPar As ManagementBaseObject = Nothing
    Dim mc As ManagementClass = New ManagementClass
("Win32_NetworkAdapterConfiguration")
    Dim moc As ManagementObjectCollection = mc.GetInstances
 
    For Each mo As ManagementObject In moc
      If CType(mo("IPEnabled"), Boolean) Then
        inPar = mo.GetMethodParameters("EnableDHCP")
        outPar = mo.InvokeMethod("EnableDHCP", inPar, Nothing)
        Exit For
      End If
    Next
  End Sub
 
  Shared Sub SwitchToStatic()
    Dim inPar As ManagementBaseObject = Nothing
    Dim outPar As ManagementBaseObject = Nothing
    Dim mc As ManagementClass = New ManagementClass
("Win32_NetworkAdapterConfiguration")
    Dim moc As ManagementObjectCollection = mc.GetInstances
 
    For Each mo As ManagementObject In moc
      If CType(mo("IPEnabled"), Boolean) Then
        inPar = mo.GetMethodParameters("EnableStatic")
        inPar("IPAddress") = New String() {"192.168.1.1"}
        inPar("SubnetMask") = New String() {"255.255.255.0"}
        outPar = mo.InvokeMethod("EnableStatic", inPar, Nothing)
        Exit For
      End If
    Next
  End Sub
 
  Shared Sub ReportIP()
    Console.WriteLine("****** Current IP addresses:")
 
    Dim mc As ManagementClass = New ManagementClass
("Win32_NetworkAdapterConfiguration")
    Dim moc As ManagementObjectCollection = mc.GetInstances
 
    For Each mo As ManagementObject In moc
      If CType(mo("IPEnabled"), Boolean) Then
         Console.WriteLine("{0}" & Microsoft.VisualBasic.Chr(10) & " SVC:
 '{1}' MAC: [{2}]", CType(mo("Caption"), String), CType(mo
("ServiceName"), String), CType(mo("MACAddress"), String))
 
         Dim addresses As String() = CType(mo("IPAddress"), String())
         Dim subnets As String() = CType(mo("IPSubnet"), String())
 
         Console.WriteLine(" Addresses :")
         For Each sad As String In addresses
           Console.WriteLine("" & Microsoft.VisualBasic.Chr(9) & "'{0}'", sad)
         Next
 
         Console.WriteLine(" Subnets :")
         For Each sub As String In subnets
           Console.WriteLine("" & Microsoft.VisualBasic.Chr(9) & "'{0}'", sub)
         Next
       End If
     Next
   End Sub
 End Class 
End Namespace