Click here to Skip to main content
11,710,943 members (82,530 online)
Click here to Skip to main content

How to get the IP Address from your workstation

, 15 Feb 2002 313.9K 24
Rate this:
Please Sign up or sign in to vote.
How to get the IP Address from your workstation to use in your scripts

When using VBScript in a network environment you sometimes want to retrieve the IP Address to use it, for example, to retrieve the correct server from which you want to install software.

This isn't an easy task. The IP address isn't set in the environment when the computer boots, so we've got to use another method to retrieve the address.

The method which I use in the script below is reading the IP address from the CurrentControlSet in the registry. This makes sure that, even when you use DHCP, you get the right IP address.

The script contains two functions: GetIPAddress and GetIPOctet. With GetIPAddress you get an array which contains the IP address. Remember that element 0 in the array is actually the first octet of your IP address.

' Example on how to get a messagebox with the first octet of your IP Address.
wscript.echo GetIPOctet (1)

Above you find a little example which prints out the first octet of the IP address.

Here you find the complete script as it is now. Include it in your own programs at your own risk. Always be careful, since you are reading the registry.

' 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

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Anne Jan Elsinga
Netherlands Netherlands
No Biography provided

Comments and Discussions

 
AnswerA great way to find you're IP address Pin
shaialo29-Jun-09 5:23
membershaialo29-Jun-09 5:23 
GeneralMy vote of 1 Pin
shaialo29-Jun-09 5:22
membershaialo29-Jun-09 5:22 
GeneralAlmost a improved way to get ip...based on anne version Pin
leucos29-Aug-07 9:29
memberleucos29-Aug-07 9:29 
GeneralRe: Almost a improved way to get ip...based on anne version Pin
leucos22-Jan-09 0:27
memberleucos22-Jan-09 0:27 
Questioncan u tell me more abt this.-How to get the IP Address Pin
mafiaboy200229-Dec-06 4:37
membermafiaboy200229-Dec-06 4:37 
GeneralSend IP to my server listener using VBScript Pin
John Shafferd7-Mar-04 5:41
sussJohn Shafferd7-Mar-04 5:41 
QuestionGet IP address (dhcp) from registry? Pin
debeliou bouche10-Jan-03 4:54
sussdebeliou bouche10-Jan-03 4:54 
GeneralPerhaps a Better Way Pin
Joshua Allen27-Feb-02 20:43
memberJoshua Allen27-Feb-02 20:43 
GeneralRe: Perhaps a Better Way Pin
Anne Jan Elsinga28-Feb-02 7:47
memberAnne Jan Elsinga28-Feb-02 7:47 
GeneralRe: Perhaps a Better Way Pin
Joshua Allen28-Feb-02 9:31
memberJoshua Allen28-Feb-02 9:31 
GeneralRe: Perhaps a Better Way Pin
Member 448378521-Jun-12 4:29
memberMember 448378521-Jun-12 4:29 
GeneralRewrite of IP check Pin
Anne Jan Elsinga19-Feb-02 8:50
memberAnne Jan Elsinga19-Feb-02 8:50 
GeneralIncorrect method to find the ip address Pin
vaithsr19-Feb-02 8:14
membervaithsr19-Feb-02 8:14 
GeneralRe: Incorrect method to find the ip address Pin
Anne Jan Elsinga19-Feb-02 8:48
memberAnne Jan Elsinga19-Feb-02 8:48 
GeneralRe: Incorrect method to find the ip address Pin
inSiStKool11-Oct-05 10:00
memberinSiStKool11-Oct-05 10:00 
GeneralRe: Incorrect method to find the ip address Pin
Anonymous27-Jun-02 5:40
memberAnonymous27-Jun-02 5:40 
QuestionRe: Incorrect method to find the ip address Pin
tamirlavi27-Mar-07 7:05
membertamirlavi27-Mar-07 7:05 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.150819.1 | Last Updated 16 Feb 2002
Article Copyright 2002 by Anne Jan Elsinga
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid