[R] Vérification adresse ip via une fonction

[hakim]

Bonjour,

j'ai une fonction de vérification d'adresse ip, qui ne me donne pas entière satisfaction.

Code : Tout sélectionner

func adresseIPcheck()
Local $ip1=@IPAddress1
If StringInStr($ip1,"x.X.Y.") Then
    
    DriveMapAdd ( "M:", @homeshare , 8 )                ;Map répertoire privé de l'utilisateur

else
    MsgBox(64, "","connexion vpn en cours d'etablissement : ", 1 )

EndIf
EndFunc

 

cette fonction doit être exécuter de façon à être sûre que mon adresse corresponde à un model (une classe ): 192.168.2.X
"x" n'est pas important.

une fois cette vérification, le script exécutera des taches particulières :

-mappage des lecteurs réseaux.

A l'heure actuel, je dois lancer le script deux fois pour obtenir mes lecteurs réseaux :

1- 1ere exécution l'application se lance et s'exécute.
2-deuxième exécution : l'application est relancée, je l'annule, et enfin mes lecteurs réseaux apparaissent.

l'idée serait de rajouter un "while" mais ça dépasse de loin mes compétence ....
j'ai déjà du mal a faire en sorte que mon script se ferme tout seul après exécution ...
:

while ( adresse ip n'est pas de type A.B.C.*)
Attendre que ip soit de type A.B.C.*
Wend


Bon ben je retourne à mes essais, et merci de votre aide par avance

[jumby]

Bonjour,

Je sais pas si je t'ai bien compris. Mais j'ai retouché un petit bout de code. Dit moi si cela répond à tes attentes :

Code : Tout sélectionner

adresseIPcheck() ;On appelle la fonction adresseIPcheck au lancement
AdlibEnable("adresseIPcheck", 1000) ; On appelle la fonction adresseIPcheck toutes les secondes

func adresseIPcheck()
Local $ip1=@IPAddress1

If StringInStr($ip1,"192.168.2.") Then
DriveMapAdd ( "M:", @homeshare , 8 )                ;Map répertoire privé de l'utilisateur
Exit ; l'ip recherchée a été trouvée, fin du programme.
else
    MsgBox(64, "","connexion vpn en cours d'etablissement : ", 1 )

EndIf
EndFunc



WHile 1
sleep(100) ; boucle pour laisser la fonction adlibenable appeler la fonction adresseIPcheck
WEnd

[hakim]

Bonjour ET surtout merci !!

exactement ce qu'il me fallait pour me faire avancer.

Merci encore!

[Tlem]

Bien que ne suit pas un très grand amateur d'expression régulière, personnellement, j'aurais fait plus simple :

Code : Tout sélectionner

$IP = "192.168.1.5"

If StringRegExp($IP, '(192.168.1.\d)', 0) Then
    MsgBox(64, "Info", "Adresse IP valide : " & @CRLF & $IP)
Else
    MsgBox(16, "Erreur", "Adresse IP non valide : " & @CRLF & $IP)
EndIf

[hakim]

hello !

je vais garder ce code, il va me permettre de faire des tests !

MERCI