vb取得本地计算机名称,VB6:怎么得到本机IP,计算机名和MAC

VB code'*************************************************************

'取本机MAC地址

Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, sRemoteMacAddress As String) As Boolean

Dim dwRemoteIP As Long

Dim pMacAddr As Long

Dim bpMacAddr() As Byte

Dim PhyAddrLen As Long

Dim cnt As Long

Dim tmp As String

dwRemoteIP = inet_addr(sRemoteIP)

If dwRemoteIP <> 0 Then

PhyAddrLen = 6

If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = NO_ERROR Then

If pMacAddr <> 0 And PhyAddrLen <> 0 Then

ReDim bpMacAddr(0 To PhyAddrLen - 1)

CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen

For cnt = 0 To PhyAddrLen - 1

If bpMacAddr(cnt) = 0 Then

tmp = tmp & "00-"

Else

tmp = tmp & Hex$(bpMacAddr(cnt)) & "-"

End If

Next

If Len(tmp) > 0 Then

sRemoteMacAddress = Left$(tmp, Len(tmp) - 1)

GetRemoteMACAddress = True

End If

Exit Function

Else

GetRemoteMACAddress = False

End If

Else

GetRemoteMACAddress = False

End If

Else

GetRemoteMACAddress = False

End If

End Function