Benutzung auf eigene Gefahr ! |
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. |