begin process at 2012 02 15 12:11:45
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > TROUVER SON ADRESSE IP TOUT SIMPLEMENT !

TROUVER SON ADRESSE IP TOUT SIMPLEMENT !


 Information sur la source

Note :
5,33 / 10 - par 6 personnes
5,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :19/10/2002 Date de mise à jour :19/10/2002 16:54:02 Vu :54 927
Auteur : Krox68

Ecrire un message privé
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

 Description

kliké dessus et regardez votre ip

Source

  • 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) 
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)



 Sources du même auteur

CONVERSION D'EXTENSIONS
MOTEUR POLYMORPHE DE DAN COMMENTÉ
MOTEUR POUR CLONE
POUR CREER UN FICHIER TEXTE ET ECRIRE DEDANS
POUR CONNAITRE LE NOM DE VOTRE PC
Toutes les sources de Krox68

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de DarkBoss le 25/05/2003 12:29:45

ne marche ke pour xp pour le faire marcher sur les otres a la place de ipconfig.exe fo mettre ipcfg.exe @ +++

Commentaire de aannick le 12/06/2003 03:50:12

bonjour
il faut taper ce texte où exactement ? pour avoir son adresse IP
je suis sous win 2000 pro
merci

Commentaire de DarkBoss le 12/06/2003 07:53:59

dans 1 fichier texte avec l' extension .vbs et apres tu l' execute !

Commentaire de aannick le 12/06/2003 08:01:53

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!!!!!

Commentaire de Jayz le 17/06/2003 01:19:41

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

Commentaire de AXX le 27/07/2003 12:49:11

Il y a bien plus simple avec un fichier BAT
  @echo.
  @ipconfig | find "Adresse IP"
  @echo.
  @pause
Tu peut le démarrer quand tu veux et à partir de n'importe quel programme.

Commentaire de Jayz le 06/08/2003 11:45:21

AXX > je voulais rajouter que neanmoins nous avons un pb lié au fait que lorsque l'utilisateur final possede une ou plusieurs interfaces rezo, l'ip qui se degage par ces techniques y compris la mienne, on n'obtiendra en definitive que la derniere ip, ou avec la methode d'axx toutes les ip, mais si nous voulons nous concentrer sur l'ip de connexion internet, nous devons trouver la clé de la base de registre qui enregistre l'ip internet et non pas nous colttiner les ip locales qui n'ont pas grand interet hormis ds le cadre d'une utilisation pour un prog d'intranet

Commentaire de anarchysniper le 28/08/2003 14:04:28

Jayz > HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersInterfaces{F2B97F8C-9BDE-45E4-9E4F-0E4F1A9121CE}DhcpIPAddress

Commentaire de Ashtheone le 08/05/2004 18:55:26

Pour paraphraser anarchysniper :

Option Explicit

Private Sub form_load()

    Dim ip As String
    
    RegLire "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{892CF089-46F8-4737-8673-DA4EAC57FA9F}\DhcpIPAddress", ip
    
End Sub

Public Sub RegLire(CheminComplet As String, Destination As String)

    Dim WshShell

    Set WshShell = CreateObject("Wscript.Shell")
    
    Destination = WshShell.RegRead(CheminComplet)

End Sub



C'est plus clair? ;o)

Commentaire de titchouno le 20/01/2005 22:12:25

Salut, j' ai testé par curiosité le prog. Ashtheone
****************************************
Option Explicit

Private Sub form_load()

    Dim ip As String
    
    RegLire "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{892CF089-46F8-4737-8673-DA4EAC57FA9F}\DhcpIPAddress", ip
    
End Sub

Public Sub RegLire(CheminComplet As String, Destination As String)

    Dim WshShell

    Set WshShell = CreateObject("Wscript.Shell")
    
    Destination = WshShell.RegRead(CheminComplet)

End Sub
****************************************
mais en l'executant il survient une erreur dans le code que je ne resoud pas...
Avez vous une solution por ce mauvais pas?
Merci
  

Commentaire de eric81500 le 02/09/2005 15:32:00

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.....

Commentaire de tekila_bandita le 26/02/2006 16:08:27

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

Commentaire de mongol77 le 18/03/2006 12:11:44

salut , moi mon adresse ip est dans {A7C48F09-F650-410D-ACAF-9BF7CA573212)
donc je voudrait savoir si on peut retrouver ce chemin automatiquement

Commentaire de mongol77 le 18/03/2006 12:14:54

salut,

moi mon adresse ip se trouve dans {A7C48F09-F650-410D-ACAF-9BF7CA573212}
quelqu'un sait comment retrouver ce chemin automatiquement ?

Commentaire de Coke Hax le 08/08/2006 03:28:56

Encore plus simple :

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

Public Sub Command1_Click()
MsgBox Winsock1.LocalIP
End Sub

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)