Mit nachfolgender Funktion kannst Du den aktuellen Rechnernamen ermitteln, diesen anschl. in einer Tabelle suchen, sollte er schon vorkommen bingo und Datenbank schließen, wenn nicht gefunden Rechnername in Tabelle schreiben ...
'Im Deklarationsbereich des Moduls
'--- API-Funktion
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetNetworkComputerName() As String
Dim lngMaxLen As Long, lngResult As Long
Dim strComputerName As String
lngMaxLen = 16
strComputerName = String$(lngMaxLen, 0)
lngResult = GetComputerName(strComputerName, lngMaxLen)
If lngResult 0 Then
GetNetworkComputerName = Trim$(Left$(strComputerName, lngMaxLen))
Else
GetNetworkComputerName = ""
End If
End Function
Grüße vom Bodensee
Gerd
geschrieben von
Gerd74
,
24.04.2002, 19:24 Uhr
, 16 mal gelesen