Script extractionadresse IP

Version imprimable

15/10/2006, 12h17
carter15_2001

Script extractionadresse IP

Bonjour,
Je cherche à faire une extraction de mon adresse IP avec VBScript mais je ne sais pas y faire. Quelqu'un aurait il une solution pour me permettre de "décoller" sur mon problème...

Merci par avance

Salut,

tu trouveras sur codeproject un exemple de ce que tu veux faire. Tu verras dans les commentaires en bas de page que la manière correcte de traiter le sujet est débattue.

Un copié-collé du code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Script to retrieve the current IP Address on the first network card.
'
' (c) 2002 A.J. Elsinga
'      anne.jan@network-direct.com
'
'      version 1.0
 

' ************************************************************
' ***           Start of functions and procedures          ***
' ************************************************************

Function GetIPAddress
' This function retrieves the IP Address from the registry
' It gets it from the CurrentControlSet, so even when using DHCP 
' it returns the correct IP Address

' Declare variables

   Dim key
   Dim cTempIPAddress
   Dim cIPAddress
   dim cIPAddressKey


   Set oSh = CreateObject("WScript.Shell")

   cInterfacesKey="HKLM\SYSTEM\CurrentControlSet\Services\TCPIP\Parameters\Interfaces\"
   cNICSearch="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1\ServiceName"


' First check which network card to use
   cNicServiceName=oSh.RegRead(cNICSearch)

' Now read the IP Address from that card
   cIPAddressKey=cInterfaceskey + cNicServiceName+"\IPAddress"
   cTempIPAddress=oSh.RegRead (cIPAddresskey)
 
' Split the items in the var tempIPAddress to the octets in array IPAddress
   cIPAddress=split (cTempIPAddress(0),".",4)
 
' the IP addresss is now readable from ipaddress
' for example, to read the first octet, use: FirstOctet=IPAddress(0)
 
   GetIPAddress=cIPAddress
End Function

Function GetIPOctet (nOctet)
' This function retrieves a given octet out of the IP Address
    Dim IPAddress
   
    IPAddress=GetIPAddress
    GetIPOctet=IPAddress(nOctet-1)	
End Function

@+

Karl.

16/10/2006, 21h42
carter15_2001

C'est de l'ASP ce langage là non??
16/10/2006, 22h22
Médinoc

ASP, c'est pour les sites Web, et c'est à base de VB.

Ce texe possède également une syntaxe VB, aussi je suppose que c'est du VBScript (.vbs)
17/10/2006, 11h32
karl3i

En tout cas, le code est rangé dans la rubrique vbscript, mais je n'ai pas pris le temps de l'essayer.

@carter15_2001 : tu l'as essayé ?
17/10/2006, 23h47
carter15_2001

J'ai bien créer mon .vbs mais je n'arrive pas a le faire tourner... Ce langage est nouveau pour moi:oops: :oops:
18/10/2006, 19h48
carter15_2001

Apres avoir chopper un petit tutoriel de débutant VBS j'ai vu comment fonctionner en gros le VBS.
Mais quelles questions restent sans réponses. Comment est il possible de trouver les bonnes caractéristiques. Imaginons que je veuille un peu à l'image de Linux afficher tous les utilisateurs du poste. J'ai du mal à saisir cela en fait...
Quelqu'un peut il m'éclairer sur le sujet??