自端末のコンピューター名とIPを取得するには？

解決

---

いつもお世話になってます。
VB6.0で自端末のコンピューター名とIPを取得する方法をご存知の方
教えて頂けると幸いです。

編集    削除

---

Win2K,WinXPなら
http://www.microsoft.com/japan/technet/community/scriptcenter/network/scrnet02.mspx
でIPアドレスが取得できます。
コンピュータ名はWin32 APIのGetComputerNameでも取得できます。

編集    削除

---

IPアドレスはご紹介頂いたHPを参考に、コンピュータ名は
以下のコードで取得できました。
Maxさんありがとうございました。

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim lSize           As Long
    Dim sRet            As String * 256
    Dim sValue          As String

    lSize = 255
    lRet = GetComputerName(sRet, lSize)
    sValue = Left$(sRet, InStr(sRet, vbNullChar) - 1)
    lblHost.Caption = sValue
End  Sub

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。