Hi Modi,

Pls find the UDF for retreiving IP Address of your machine.
link  
http://stackoverflow.com/questions/828496/how-to-retrieve-this-computers-ip-address

Function GetIPAddress()
Const strComputer As String = "."   ' Computer name. Dot means local computer
Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
Dim strIPAddress As String      ' Connect to the WMI service
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     ' Get all TCP/IP-enabled network adapters
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where
IPEnabled=TRUE")      ' Get all IP addresses associated with these
adapters
For Each IPConfig In IPConfigSet
    IPAddress = IPConfig.IPAddress
    If Not IsNull(IPAddress) Then
        strIPAddress = strIPAddress & Join(IPAddress, ", ")
    End If
Next
GetIPAddress = strIPAddress
End Function


On Fri, Jul 1, 2011 at 2:24 PM, rf1234 rf1234 <rfhyd1...@gmail.com> wrote:
> On 7/1/11, L.K. Modi <ca.mod...@gmail.com> wrote:
>> Dear Group Members
>>
>>
>> I need an excel file in wihch by running macro we can see our IP ADDRESS.
>> Please provide me that file by which we can know the IP address of our
>> System
>>
>>
>> Regards
>> LKModi
>>
>> --
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
> --
> Regards,
> Prashant Tripathi
> Engineer-SW
> Mobile: 0017202597567
> Please consider the environment before printing.
> ----------------------------------------------------
> Immer zielen auf die vollkommene Harmonie des
>  Denkens & Wort & deed.Always zielen darauf ab,
>  reinigen Sie Ihre Meinung und alles wird gut.
>  ----------------------------------------------------
> Always aim at complete harmony of thought &
>  word & deed.Always aim at purifying your
> thoughts & everything will be well.
>
> --
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links : 
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>



-- 
Regards

Vasant

skype Id: vasantjob
vasant...@gmail.com

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to