Text 376, 69 rader
Skriven 2005-03-18 21:03:00 av "bigtime" <bigtime@home.C (1:278/230)
Ärende: Re: Newbie best way to get the ip address from windows NT/20
====================================================================


Thank You!
"Randy Birch" <rgb_removethis@mvps.org> wrote in message
news:59KdnSG5ZMjf_6bfRVn-2w@rogers.com...
> http://vbnet.mvps.org/code/network/getadaptersinfo-localipaddress.htm
>
> --
>
> Randy Birch
> MS MVP Visual Basic
> http://vbnet.mvps.org/
> --------------------------------------------------------------------------
--
> Read. Decide. Sign the petition to Microsoft.
> http://classicvb.org/petition/
> --------------------------------------------------------------------------
--
>
>
>
> "BigTime" <BigTime@Home.com> wrote in message
> news:JLI_d.40949$5T6.23981@bignews4.bellsouth.net...
> : What is the best way to get the ip address from windows NT/2000/XP from
> the
> : registry
> : in windows 98 I was using this code leaving out the GetKeyValue function
> : code
> : and it worked fine since windows 98 under net trans had folders like
0001,
> : 0002, 0003, 0004
> :
> :    this is what I am using now
> :    Const NetTrans = "System\CurrentControlSet\Services\Class\NetTrans"
> :
> :    Dim mystring as string
> :    Dim X As Integer
> :
> :    Do ' Main loop.
> :    mystring =(HKEY_LOCAL_MACHINE, NetTrans & "\000" & X, "IPAddress",
> : IPAddress)
> :    mystring = GetKeyValue(HKEY_LOCAL_MACHINE, NetTrans & "\000" & X,
> : "IPMask", IPMask)
> :    X = X + 1 ' Increment X.
> :    If X = 30 Then Exit Do
> :    Loop Until IPAddress > ""   ' loop Parameters.
> :
> : but in win2k it uses a folder like this
> : {82F71522-63FA-4FAB-8FFB-29DFF0F2164F}
> : how do I search for all the variation of this ????? too much to even
think
> : about
> :
> :
>
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\{82F71522-63FA-4FAB-8FF
> : B-29DFF0F2164F}\Parameters\Tcpip
> :
> : I could use the winsok control but why add this since I can access the
> : registry
> :
> :
>




--- UseNet To RIME Gateway @ 3/18/05 8:59:31 PM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)