Tipp 5.7 - Computername

Wie kann ich den Computername ermitteln?

Mit dieser Funktion können Sie den Computername ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: GetComputerName

Beispiel:

Option Explicit
 
Public Declare Function GetComputerName _
    Lib "kernel32" Alias _
    "GetComputerNameA" _
    (ByVal lpBuffer As String, _
    nSize As Long) As Long
 
Public Property Get ComputerName() As String
  '// -----------------------------------------------------
  '// Methode:   | Ermittelt den Computernamen
  '// -----------------------------------------------------
  '// Parameter: | enfällt
  '// -----------------------------------------------------
  '// Rückgabe:  | "Name" des Computers
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim sBuffer As String
  sBuffer = String(1024, 0)
  If GetComputerName(sBuffer, Len(sBuffer)) Then
    ComputerName = _
        VBA.Left(sBuffer, VBA.InStr(sBuffer, vbNullChar) - 1)
  End If
 
End Property


Zurück Tipp 5.6 - Bildschirmauflösung | Inhalt | Tipp 5.8 - Druckereinstellung Weiter