Get a list of machines on a LAN

[icccy]

Here are the asked declarations :

[code]
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal _
wVersionRequired As Long, lpWSAData As WSADATA) As Long

Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long

Private Const WSASYS_Status_Len = 128

Private Const WSADescription_Len = 256

Private Function hibyte(ByVal wParam As Integer)
hibyte = wParam \ &H100 And &HFF&
End Function

Private Function lobyte(ByVal wParam As Integer)
lobyte = wParam And &HFF&
End Function

Private Function SocketsCleanup() As Long
SocketsCleanup = WSACleanup()
End Function