par Stephane Maillard » 24 Fév 2004 à 13:10
Re,Déjà la fonction pour récupé l'IP :Function donneip() As StringOn Error Resume NextShell "winipcfg /batch c:\ipcfg.txt"DoEventsDim TextLineDim ipcfg(50)Dim k As IntegerOpen "c:\ipcfg.txt" For Input As #100Do While Not EOF(100) Line Input #100, ipcfg(k) k = k + 1LoopClose #100For i = 0 To k For j = 1 To Len(ipcfg(i)) If Mid$(ipcfg(i), j, 30) = "Adresse IP. . . . . . . . . : " Then If donneip = "" Then donneip = Mid$(ipcfg(i), j + 30) End If Next jNext iIf donneip = "0.0.0.0" Then donneip = "Non connecté"If Err.number <> 0 Then donnip = "ERREUR"End Function[%sig%]
Cordialement
Stéphane Maillard