Prb VB

cs_Nestafari Messages postés 1 Date d'inscription lundi 26 avril 2004 Statut Membre Dernière intervention 7 mai 2004 - 7 mai 2004 à 15:19
Colt_Master Messages postés 1 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 1 juin 2004 - 1 juin 2004 à 11:16
Je souhaiterai pouvoir recupérer une adresse IP a distance mais le code que j'ai ne marche pas et n'arrive pas a trouver.....
merci de votre aide

Function DetectIP(ByRef ObjService)
Dim objFileSystem, objSet, Obj, objInst, N
On Error Resume Next
Set objSet = ObjService.InstancesOf("Win32_NetworkAdapterConfiguration")
If objSet.Count = 0 Then Exit Function
For Each objInst In objSet
N = N + 1
List3.AddItem (objInst.IPAddress)
Next
DetectProfil2 = N
End Function

1 réponse

Colt_Master Messages postés 1 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 1 juin 2004
1 juin 2004 à 11:16
g fai la meme chose et ca marche pa non plu ?????????
0
Rejoignez-nous