Code Snippet "VBA Access"

Computername mit Kernel-Funktion auslesen

'muss vmtl. am Seitenanfang stehen
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'Returns the computername
Function fOSMachineName() As String
  Dim lngLen As Long, lngX As Long
  Dim strCompName As String
  
  lngLen = 16
  strCompName = String$(lngLen, 0)
  lngX = apiGetComputerName(strCompName, lngLen)
  If lngX <> 0 Then
    fOSMachineName = Left$(strCompName, lngLen)
  Else
    fOSMachineName = ""
  End If
End Function