Trouver son adresse ip tout simplement !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 58 480 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

DarkBoss
Messages postés
154
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
12 décembre 2008
-
ne marche ke pour xp pour le faire marcher sur les otres a la place de ipconfig.exe fo mettre ipcfg.exe @ +++
aannick
Messages postés
138
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
2 mars 2009
-
bonjour
il faut taper ce texte où exactement ? pour avoir son adresse IP
je suis sous win 2000 pro
merci
DarkBoss
Messages postés
154
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
12 décembre 2008
-
dans 1 fichier texte avec l' extension .vbs et apres tu l' execute !
aannick
Messages postés
138
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
2 mars 2009
-
hein pourquoi j'ai le norton qui s'ouvre et me dit malicious script detected your computer is halted ans needs to do something about this script il me l'a stoppé et j'avais remplacé ipcfg.exe par l'autre
en suite j'ai laissé passé et la message d'erreur il me met
erreur l'entrée dépasse la fin du fichier
cede 800a3003e
source erreur d'éxécution microsoft vbscript!!!!!
cs_Jayz
Messages postés
27
Date d'inscription
samedi 7 juin 2003
Statut
Membre
Dernière intervention
6 août 2003
-
salut je voudrais te dire ke ton idee etait pas mal, mais t'as qu'a coder un programme comme celui ci, autant dégagé unikment l'ip de ton fichier texte... je ne saurais le faire a partir de vbs, mais par contre en dos tu peut essayer la fonction for qui te permet de lire un fichier texte et de creer des variables ayant pour valeur unkment le bloc de données suivant une chaine de caractere specifique, ici en l'occurence xxx.xxx.xxx.xxx qui suit la chaine : Adresse IP :........... qui se trouve dans ton fichier texte

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.