For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
GEDDi
Messages postés206Date d'inscriptionlundi 22 novembre 1999StatutMembreDernière intervention 3 juillet 2008 7 sept. 2007 à 16:00
Bonjour,
Essayes ce code là :
Sub Test()
Dim objNetAdapter, colNetAdapters, objWMIService As Object
Dim strComputer = "*"
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Dim strIPAddress As String = "192.168.1.141"
Dim strSubnetMask As String = "255.255.255.0"
Dim strGateway As String = "192.168.1.100"
Dim strGatewayMetric = strIPAddress 'Array(1)
Dim result As String
For Each objNetAdapter In colNetAdapters
Dim errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
Dim errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)
If errEnable = 0 Then
result = "The IP address has been changed."
Else
result = "The IP address could not be changed."
End If
Next
End Sub
--=:: -----------------------------------::=--
Gérôme GUILLEMIN, ingénieur système et auteur du langage FBSL --=:: -----------------------------------::=--
<hr size="2" width="100%" />[h%3C/body ]