Erreur changement adresse IP

Question

Bonjour tout le monde,

j'ai l'erreur "L'exeption COMExeption n'a pas été gérée" Types non correspondants qui se produit sur la ligne en rouge...

QQ'un peut-il m'aider svp???

Merci d'avance..

Code : 

Dim objNetAdapter, colNetAdapters, objWMIService 
As
Object

objWMIService =  GetObject(
"winmgmts:\.oot\cimv2")colNetAdapters = objWMIService.ExecQuery _

(

"Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For
Each objNetAdapter 
In colNetAdapters

 Dim  errEnable  = objNetAdapter.EnableStatic(IP, Masque)

Dim errGateways = objNetAdapter.SetGateways(Passerelle, Metrique)

If errEnable = 0 
ThenMsgBox(

"Votre configuration réseau a été correctement modifiée", MsgBoxStyle.Information)

ElseMsgBox(

"Votre configuration réseau n'a pas pu être modifiée" & Chr(13) & Chr(10) & 
"Veuillez contacter le service informatique", MsgBoxStyle.Critical)

End
If

Next

Kristof_Koder · Answer

Peut-être essaie tu de modifier la propriété sur un adpatateur réseau pour lequel c'est impossible ?

flopad · Answer

Je ne pense pas, je ne vois pas pourquoi je n'aurais pas les droits.
Il m'a semblé voir que l'adresse IP ne doit pas être un string mais un array...?

Erreur changement adresse IP

2 réponses

Votre réponse

Discussions similaires