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 17:27:37

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

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

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

COMMANDBARS par aljan

+ de logiciels à télécharger

1 465 354 membres
395 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 293 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 !

RÉCUPÉRER SON IP EN VBSCRIPT TRÈS SIMPLEMENT

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 27/05/2003 Date de mise à jour : 27/05/2003 11:16:14 Vu : 9 094

Auteur : cipolin

Ecrire un message privé

Note :

9,13 / 10

Commentaire sur cette source (18)

Ajouter un commentaire et/ou une note

Description

J'ai eu du mal à trouver comment récupérer son ip en VBS, alors maintenant que j'ai trouvé, si ça peut servir à quun, voilà le code.
Difficile de faire plus simple

j'attends vos remarques éventuelles.

Source

Dim objSocket
Set objSocket = CreateObject("MSWinsock.Winsock")
msgbox objSocket.localip

Dim objSocket
Set objSocket = CreateObject("MSWinsock.Winsock")
msgbox objSocket.localip

Sources du même auteur

TRI BULLE DANS UN TREEVIEW

INTERROGATION MIB VIA SNMP

Toutes les sources de cipolin

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 MrBurns le 27/05/2003 16:19:30

Sur NT4 server SP6a, j'ai un message d'erreur Objet "MSWinsock.Winsock" introuvable.

Commentaire de MrBurns le 27/05/2003 16:19:38

Sur NT4 server SP6a, j'ai un message d'erreur Objet "MSWinsock.Winsock" introuvable.

Commentaire de jmluc le 28/05/2003 08:33:44

Dans le cas d'un serveur réseau...ça marche pas...prob avec Proxy ??
Des idées ???
JMLUC

Commentaire de yoman64 le 11/06/2003 01:58:01

Tres utile ,merci

Commentaire de Jayz le 17/06/2003 03:15:52

Je ne comprend pas pkoi ta soure se trouve dans vbs puik celle ci semble ne pas marche... a prieuve du contraire, mon debuggeur me dit que : Un composant ActiveX ne peut pas créer un objet.: 'MSWinsock.Network

Commentaire de Intention le 20/06/2003 22:43:21

marche pas

Commentaire de Martial21 le 07/08/2003 18:21:52

Si Si le code marche super bien, mais comment fait on pour récuperer le masque de sous reseau et la passerelle.
Merci...
Et bon code...

Commentaire de laurent3d le 09/11/2003 03:30:19

Martial21 Nous sommes heureux de savoir que chez toi cela fonctionne :-)
pour ma part sur Windows 2000 Server SP4 j'ai le meme message que Jayz:
Un composant ActiveX ne peut pas créer un objet.: 'MSWinsock.Network
Sous WinXP SP1 j'ai:
Le module spécifié est introuvable
As tu la réponse? Quelqu'un a la réponse? Merci ...

Commentaire de alover le 08/12/2003 04:15:27

Dim objSocket
Set objSocket = CreateObject("MSWinsock.Winsock")
MsgBox objSocket.localip
a mon avis i zon du modifier le nom c tout.. maintenant, y'a plus ka trouver c coa Oo :)

Commentaire de Sibelle07 le 04/01/2004 19:03:38

haha lol
c'est tout con en faite !
avec l'ocx de winsock tu va rechercher l'objet de la fonction local ip :D

Commentaire de cipolin le 12/05/2004 10:50:01

Bonjour,
Désolé de répondre si tard. Si le code ne marche pas, vérifiez la présence des composants Winsock sur votre machine et s'ils sont bien enregistrés.
@+

Commentaire de DDelec24 le 13/12/2004 16:50:32

J'ai SP2 et ca fonctionne nickel merci beaucoup ;)

Commentaire de debe le 23/12/2004 13:42:44

Merci pour le script.
Il fonctionne parfaitement sous Win2000 pro SP4.
Bravo encore !!

Commentaire de algori le 16/01/2005 14:02:56

Court et efficace ! Rien à dire...

Commentaire de algori le 09/02/2005 19:28:56

Quoique marche pas terrible en définitive...

Commentaire de chapata le 19/04/2005 11:53:00

marche pas chez moi non plus avec : XP ... @+++

Commentaire de sacdemerde le 13/10/2005 16:42:19

Chez moi ca marche super mais bon peut etre que certain ont des problèmes du fait qu ils ne disposent pas du framework comprenant le MSWinsock.Winsock.
Peut être qu'en l'intègrant dans les références ça passera mieux.
Enfin moi je dis ça mais rien n'est sûr :p

Commentaire de trackpi le 19/09/2007 19:07:33

Ca fonctionne sur mon PC, mais le résultat est faux ...
J'ai comparé en allant sur internet sur un des multiples sites affichant l'IP et c'est différent.
Je suis dans un hotel connecté à internet via le wifi de l'hotel.