Trouver son adresse ip tout simplement !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 58 715 fois - Téléchargée 40 fois

Contenu du snippet

kliké dessus et regardez votre ip

Source / Exemple :


Option Explicit
 
Dim WshShell,obj,Command,Result,Temp,FileName,File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")

Result = Ping()
 
Function Ping()

    Command = "%COMSPEC% /C ipconfig.exe > %TEMP%\command.txt"
    Result = WshShell.Run(Command,0,True)
    Temp = obj.GetSpecialFolder(2).Path
    Set File = obj.OpenTextFile(FileName)
    Ping = file.ReadAll
    file.Close
    obj.DeleteFile FileName,True

End Function
 
Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function

MsgBox(Result)

A voir également

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
lundi 26 juin 2006
Statut
Membre
Dernière intervention
8 août 2006
1
Encore plus simple :

Placez un contrôle Winsock dans votre feuille nommé Winsock1

Public Sub Command1_Click()
MsgBox Winsock1.LocalIP
End Sub
Messages postés
75
Date d'inscription
dimanche 2 octobre 2005
Statut
Membre
Dernière intervention
24 juin 2007

salut,

moi mon adresse ip se trouve dans {A7C48F09-F650-410D-ACAF-9BF7CA573212}
quelqu'un sait comment retrouver ce chemin automatiquement ?
Messages postés
75
Date d'inscription
dimanche 2 octobre 2005
Statut
Membre
Dernière intervention
24 juin 2007

salut , moi mon adresse ip est dans {A7C48F09-F650-410D-ACAF-9BF7CA573212)
donc je voudrait savoir si on peut retrouver ce chemin automatiquement
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
22
Moi je trouve ce code très bien, au moins il marche.
Et s'il vous plait, arrettez de nous montrer du bat, d'une : ici on est sur vbfrance, et de deux, si on veut vraiment trouver son ip tout betement, au lieu de tapé tes commandes dans un bat, tu le tape directos dans le cmd...Alors chut!
9/10
Messages postés
3
Date d'inscription
lundi 16 février 2004
Statut
Membre
Dernière intervention
1 octobre 2004

Normal, car dans la clé de registre le code indiqué {892CF089-46F8-4737-8673-DA4EAC57FA9F} est propre à la machine de Ashtheone , il est donc différent dans chaque machine....... jète un oeil avec regedit sur la clé citée tu verras le code de ta machine.....
Afficher les 15 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.