"jaf" wrote:
As I said, IPCONFIG (in Vista) reported.....
Unfortunately(?) I don't have Vista to look at. But what you said was
IPCONFIG reports "link-local IPv6 address". That much is correct. Then you
added: "It's the MAC address of your PCs LAN card or CNR". Since that is
without quotes, I assumed that is your interpretation, not something Vista
reported. Am I wrong?
In any case, it is __not__ the MAC address. It is an IP-layer address that
is __derived__ from a MAC address in the manner that I explained.
----- original message -----
"jaf" wrote in message
...
Hi Joe,
As I said, IPCONFIG (in Vista) reported.....
John
"JoeU2004" wrote in message
...
"jaf" wrote:
IPCONFIG reports it as "Link-local IPv6 Address "
It's the MAC address of your PCs LAN card or CNR.
Not exactly. Yes, it is a "link local" IPv6 address. And yes, the lower
64 bits are the link "interface id". The "interface id" is derived from
the MAC address. But it is not the MAC address exactly, in part
depending on the standard followed by the link interface.
In Rick's case, it does appear to be the 64-bit MAC address (almost).
But for 48-bit MAC addresses, the "interface id" in the IPv6 address is
the two halves (24 bits each) separated by 0xFFFE.
(And there are the "link local" IPv6 addresses for point-to-point
interfaces that might not have a MAC address.)
But in case, the 64-bit "interface id" differs from the MAC address (or
modified MAC address) by changing one bit from 0 to 1.
My point is: do not try to use the IPv6 "interface id" in the "link
local" address as MAC address directly.
PS: Rick, I wonder why you are seeing IPv6 addresses. Is this a Vista
thing? I do not see IPv6 on my interfaces, using Win XP SP3. But that
might be because I am relying on automatic configuration (DHCP) from a
local router. As I said, IPv6 is not widely used, at least not by
default.
----- original message -----
"jaf" wrote in message
...
Hi Rick,
IPCONFIG reports it as "Link-local IPv6 Address "
It's the MAC address of your PCs LAN card or CNR.
Now we all can hack into your pc.
Thanks
8<)
John
"Rick Rothstein" wrote in message
...
Hey! I just finished up some code using the same approach (and, from
the variable names, it looks like from the same source). I took a
different end route than you did, however, choosing to make my code a
function instead. Here is that code...
Function GetMyIPaddress() As String()
Dim X As Long, IPaddress() As String, Query As String
Dim Addresses() As String, objWMIService As Object
Dim ipConfigSet As Object, ipConfig As Object
Addresses = Split("")
Query = "Select IPAddress from Win32_NetworkAdapterConfiguration "
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ipConfigSet = objWMIService.ExecQuery(Query)
For Each ipConfig In ipConfigSet
If Not IsNull(ipConfig.IPaddress) Then
For X = LBound(ipConfig.IPaddress) To UBound(ipConfig.IPaddress)
'If ipConfig.IPaddress(X) Like "*#*.*#*.*#*.*#*" Then
ReDim Preserve Addresses(UBound(Addresses) + 1)
Addresses(UBound(Addresses)) = ipConfig.IPaddress(X)
'End If
Next
End If
Next
GetMyIPaddress = Addresses
End Function
The code returns a String array containing all the IP address on the
system. In my case, it found two...
192.168.1.3
fe80::40f4:21bf:bd1a:34e8
I don't know what that 2nd one is (I have no real experience with
networks), but the code returned it, so it must be 'something'<g.
Anyway, if the OP wants only ###.###.###.### type IP addresses
returned, the code is set up to do that... he should just remove the
apostrophes (comment symbols) from in front of the two commented out
lines in order to activate them... doing that will make the function
only return "normal" looking (at least to me) IP addresses. To retrieve
all the IP addresses on the system (either with or without those
commented out lines), code similar to this should be used...
Dim X As Long, IPaddresses() As String
IPaddresses = GetMyIPaddress
For X = 0 To UBound(IPaddresses)
Debug.Print IPaddresses(X)
Next
where the Debug.Print line would be replaced by the active code the OP
wants to use.
--
Rick (MVP - Excel)
"Steve Yandl" wrote in message
...
Sam,
Provided the PCs are XP or later, this might do what you want:
'------------------------------------
Sub GetIPaddy()
Dim strIPAddress As String
Dim strComputerName As String
strComputerName = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputerName &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where
IPEnabled = True")
For Each objItem In colItems
For Each objAddress In objItem.IPAddress
strIPAddress = objAddress
Next
Next
MsgBox strIPAddress
Set colItems = Nothing
Set objWMIService = Nothing
End Sub
'------------------------------------
Steve Yandl
"Sam Wilson" wrote in message
...
Not as straight forward as I'd guessed!
"Rob Bovey" wrote:
"Sam Wilson" wrote in message
...
How can I get my the IP address of a computer using VBA? I was
hoping it'd
be through environ() but it seems not...
Hi Sam,
I've posted an example of how to do this he
http://appspro.com/Tips/NetworkTips.htm#NT2
--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/
* Professional Excel Development - Second Edition *
http://www.appspro.com/Books/ProExcelDev.htm