Get a list of machines on a LAN

[cas21]

'I found this on the web, but haven't tried it. Maybe it
'will get you pointed in the direction.

'If you know name of PC then you must modify GetIPHostName() function
'from http://www.vbsquare.com/howto/getip.htm


Public Function GetIPHostName(sHostName$) As String
If Not SocketsInitialize() Then
GetIPHostName = ""
Exit Function
End If
GetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) - 1)
SocketsCleanup

End Function

'And call:

MsgBox "IP is " & GetIPHostName(Name_your_other_PC)