Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 18:43:40

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : PROBLEME D'ECRITURE DE CODE par PCPT

LISTVIEW ET TRI par Sator

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

+ de logiciels à télécharger

1 465 443 membres
482 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 303 309 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TROUVER SON ADRESSE IP TOUT SIMPLEMENT !

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 19/10/2002 Date de mise à jour : 19/10/2002 16:54:02 Vu : 50 320

Auteur : Krox68

Ecrire un message privé

Note :

5,33 / 10

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

DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969

MERLIN LE MAGICIEN AVEC BEAUCOUP DE COMMANDES ET DE FONCTION... par hackoo

ADRESSE IP LOCALE ET ADRESSE IP PUBLIQUE par hackoo

CRÉATION D'UNE LISTE DE TOUTES LES APPLICATIONS QUI DÉMARRE ... par hackoo

RECHERCHER DANS VOTRE BASE DE REGISTRE 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