tester existence adresse IP - VB/VBA/VBS - Programmation
MarshPosté le 31-01-2005 à 08:48:37
Bonjour, j'ai crée un VBS, à l'intérieur j'ai déclaré 2 boucles imbriquées (1ère pour l'avant-dernier octet, la 2ème pour le dernier). Mon but dans un 1er temps est de tester toutes les adresses IP d'une plage DHCP (si elle existe) Donc, voilà comment ça pourrait se passer : si @ IP n'existe pas, on passe à la suivante, sinon on copie un fichier sur le PC concerné par l'IP. J'utilise le WSH, ainsi je pense que ça ressemble un peu à ceci : // déclaration des Dim et Set // if FSO.WshNetwork("adresse IP" ) = False DO Next("adresse IP" ) else CopyFile (c:\icm.txt \\adresse IP\C$)
Merci de votre aide nb : le début des adresses commence à 172.16.100.1 et finit à 172.16.101.254
Marsh Posté le 31-01-2005 à 08:48:37
Bonjour, j'ai crée un VBS, à l'intérieur j'ai déclaré 2 boucles imbriquées (1ère pour l'avant-dernier octet, la 2ème pour le dernier).
Mon but dans un 1er temps est de tester toutes les adresses IP d'une plage DHCP (si elle existe)
Donc, voilà comment ça pourrait se passer : si @ IP n'existe pas, on passe à la suivante, sinon on copie un fichier sur le PC concerné par l'IP.
J'utilise le WSH, ainsi je pense que ça ressemble un peu à ceci :
// déclaration des Dim et Set //
if FSO.WshNetwork("adresse IP" ) = False
DO Next("adresse IP" )
else CopyFile (c:\icm.txt \\adresse IP\C$)
Merci de votre aide
nb : le début des adresses commence à 172.16.100.1 et finit à 172.16.101.254