cs_Nestafari
Messages postés1Date d'inscriptionlundi 26 avril 2004StatutMembreDernière intervention 7 mai 2004
-
7 mai 2004 à 15:19
Colt_Master
Messages postés1Date d'inscriptionmercredi 21 avril 2004StatutMembreDerniè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