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 , 17 mal gelesen