begin process at 2010 02 10 02:04:33
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

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

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


 Information sur la source

Note :
9,13 / 10 - par 8 personnes
9,13 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 727

Auteur : cipolin

Ecrire un message privé
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

Source avec Zip Source avec une capture TRI BULLE DANS UN TREEVIEW
Source avec Zip INTERROGATION MIB VIA SNMP

 Sources de la même categorie

AFFICHER LES SESSIONS ACTUELLEMENT OUVERTES par djebbipgm
SCRIPT VBS DE DÉFINITION DE MOT DE PASSE par djebbipgm
ACTIVATION/DÉSACTIVATION DE PROXY WEB par djebbipgm
CRÉATION DE SOUS-RÉPERTOIRE À PARTIR DU MENU CONTEXTUEL par djebbipgm
CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

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