The name of the server that logged the user on?

Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias _
"GetEnvironmentVariableA" (ByVal lpName As String, _
ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Function UserDomain() As String
   Dim strBuff As String
   strBuff = String(255, 0)
   GetEnvironmentVariable "USERDOMAIN", strBuff, Len(strBuff)
   UserDomain = strBuff
End Function