Public Declare Function apiGetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Declare Function apiGetUserName Lib "advapi32.dll" _
  Alias "GetUserNameA" (ByVal lpBuffer As String, _
  nSize As Long) As Long
 
 
 
Public Function GetComputerName() As String
 
' ermittelt den Maschinennamen
    GetComputerName = ""
    Dim lpBuffer$
    lpBuffer = String(255, vbNullChar)
    Call apiGetComputerName(lpBuffer, 255)
    GetComputerName = Left$(lpBuffer, InStr(1, lpBuffer, vbNullChar) - 1)
End Function
 
 
Public Function GetWindowsLoginName() As String
  Dim lngLen As Long, lngX As Long
  Dim strUserName As String
 
' ermittelt den Anmeldename des Users in Windows
  strUserName = String$(255, 0)
  lngLen = 255
  lngX = apiGetUserName(strUserName, lngLen)
  If lngX <> 0 Then
    GetWindowsLoginName = Left$(strUserName, lngLen - 1)
  Else
    GetWindowsLoginName = "- Login nicht ermittelt -"
  End If
End Function