VBA - Beispiel 008
mail schreiben
mail schreiben

Computername feststellen / api

Mit dieser API-Funktion wird der Computername ausgelesen
und anschließend in Zelle A5 eingetragen:
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Sub Computername()
  Dim strString As String

  strString = String(255, Chr$(0))
  GetComputerName strString, 255
  strString = Left$(strString, InStr(1, strString, Chr$(0)))

  [a5] = strString
End Sub

Download:   vba008.zip