Microsoft Access Programmierrezepte

R12.3 Den Computernamen abfragen

Aufgabe

Läuft Ihre Access-Anwendung in einer Netzwerkumgebung ist es vielfach von Interesse, den aktuellen Computernamen zu ermitteln.

Lösung

Wir verwenden die API-Funktion GetComputerName und binden diese in eine neue Funktion ein.

Oberfläche

Ein einfaches Formular mit einem Textfeld und zwei Befehlsschaltflächen genügt zum Testen der Funktion.

Quelltext

Das Einbinden der API-Funktion:

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

Unsere Hilfsfunktion:

Function ComputerName() As String
Dim s As String

Einen Puffer erzeugen und mit Chr(0) füllen:

s = String$(200, 0)

Der Aufruf der API-Funktion:

If GetComputerName(s, 200) <> ...