Nombre del equipo

Dim hostName As String = Environment.MachineName
 Dim hostName2 As String = My.Computer.Name
Dim hostName2 As String = My.Computer.Network.IsAvailable