Name des Computers

Sprache / Programm: VBA ab Office 97

Beschreibung

API-Funktion, die den Namen des Computers ermittelt.

VBA-Quelltext

Public Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function ComputerName()
Dim TempName As String * 255
GetComputerName TempName, 255
ComputerName = Left(TempName, InStr(TempName, vbNullChar) - 1)
End Function

Anwendungsgebiete, Fehler und Warnungen

Bei Verwendung in Klassen-, Berichts- und Formularmodulen müssen die 'Public'-Anweisungen durch 'Private' ersetzt werden.