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:\\.\root\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