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

解決

ようこ 2004-08-03 02:37:03 No: 84895

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

Max 2004-08-03 07:19:47 No: 84896

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

ようこ 2004-08-04 18:05:00 No: 84897

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