Почему бы и нет?
Используйте свойство Application.UserName
.
Если этого недостаточно, используйте функцию GetComputerName :
Private Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long