Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long)

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim sString As String
' Создание буфера
dwLen = MAX_COMPUTERNAME_LENGTH + 1
sString = String(dwLen, "X")
' Определение имени компьютера
GetComputerName sString, dwLen
' Удаление ненужных пробелов в переменной sString
sString = Left(sString, dwLen)
' Отобразить имя компьютера
MsgBox sString
End Sub
вот первоисточник

Используя эту нельзя. Используйте WNetEnumResource.