Set cards = GetObject("winmgmts: impersonationLevel=impersonate}").ExecQuery("select * from Win32_networkAdapterconfiguration") myip = Array("192.168.1.2") mynet = Array("255.255.255.0") mygateway= array ("192.168.1.1") mygatewaymetric= array (1) card.setgateways mygateway,mygatewaymetric for each card in cards retour=card.enablestatic myip, mynet retour2=card.setgateways mygateway,mygatewaymetric if retour = 0 then msgbox "Changement d'adresse effectué." else msgbox "le changement n'a pas pu se faire." end if if retour2 = 0 then msgbox "Changement de passerelle effectué." else msgbox "le changement n'a pas pu se faire." end if next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question