Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fred.M.
Bonjour Cédric, Tu n'as pas nécessairement besoin de "pinger" pour t'assurer q'1 IP existe ou non. Il te faut balayer le parc de ton workgroup ou domaine et tester si l'ip est déjà attribuer à une machine. pour connaitre l'ip d'une machine :
strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableDHCP() If errEnable = 0 Then msgbox( "DHCP has been enabled.") Else msgbox("DHCP could not be enabled.") End If Next
Tu trouveras d'autres infos complémentaires dans le forum - Developper - VbScript WSH -
Fred.M. "Cedric" a écrit :
Bonjour,
Je cherche a savoir comment faire pour vérifier avec une requête ping si une adresse IP est deja existante ou non sur le réseau.
Merci d'avance
Cédric
Bonjour Cédric,
Tu n'as pas nécessairement besoin de "pinger" pour t'assurer q'1 IP existe
ou non. Il te faut balayer le parc de ton workgroup ou domaine et tester si
l'ip est déjà attribuer à une machine.
pour connaitre l'ip d'une machine :
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
msgbox( "DHCP has been enabled.")
Else
msgbox("DHCP could not be enabled.")
End If
Next
Tu trouveras d'autres infos complémentaires dans le forum - Developper -
VbScript WSH -
Fred.M.
"Cedric" a écrit :
Bonjour,
Je cherche a savoir comment faire pour vérifier avec une requête ping si une
adresse IP est deja existante ou non sur le réseau.
Bonjour Cédric, Tu n'as pas nécessairement besoin de "pinger" pour t'assurer q'1 IP existe ou non. Il te faut balayer le parc de ton workgroup ou domaine et tester si l'ip est déjà attribuer à une machine. pour connaitre l'ip d'une machine :
strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableDHCP() If errEnable = 0 Then msgbox( "DHCP has been enabled.") Else msgbox("DHCP could not be enabled.") End If Next
Tu trouveras d'autres infos complémentaires dans le forum - Developper - VbScript WSH -
Fred.M. "Cedric" a écrit :
Bonjour,
Je cherche a savoir comment faire pour vérifier avec une requête ping si une adresse IP est deja existante ou non sur le réseau.
