Asp REMOTE_ADDR -> vb6 ??

Merhaba arkadaşlar,

Asp de kullanılan Request.ServerVariables("REMOTE_ADDR") komutunun VB6 daki karşılığı nedir acaba?

Yani uzaktan bağlanan kişinin ip adresini almak istiyorum.

teşekkürler...

Formuna Winsock bileşeni ekle. Dağa sonra kullanacağın kod;

WinsockAd.RemoteHostIP

bu senin bilgisayarının ip adresini verir 192.168.xxx.xxx şeklinde arkadaşın istediği farklı

Public Function getIP()

Dim WMI     As Object
Dim qryWMI  As Object
Dim Item    As Variant

    Set WMI = GetObject("winmgmts:\\.\root\cimv2")

    Set qryWMI = WMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration " & _
                               "WHERE IPEnabled = True")

    For Each Item In qryWMI
      getIP = Item.IPAddress(0)
    Next

    Set WMI = Nothing
    Set qryWMI = Nothing

End Function