Lokalen Hostnamen/Computernamen ermitteln Kurzinfo: Diese Funktion ermittelt den lokalen Hostnamen per API über den kernel32 Access-Version(en): Access 97, 2000 und XP Autor: Günther Kramer Homepage: http://www.access-paradies.de

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!

Code:

Private Const MAX_COMPUTERNAME As Long = 16   Private Declare Function apiGetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long   Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long   Private Declare Function lstrlenW Lib "kernel32" _ (ByVal lpString As Long) As Long   '// ----------------------------------------------------------------------- '// Function Public Function GetLocalComputerName() As String '// ----------------------------------------------------------------------- '// Methode: | Ermittelt den Computername '// ----------------------------------------------------------------------- '// Parameter: | keine '// ----------------------------------------------------------------------- '// Rückgabe: | Computername des aktuellen PCs '// ----------------------------------------------------------------------- Public Function GetLocalComputerName() As String On Error GoTo Err_GetLocalComputerName   Dim tmp As String   tmp = Space$(MAX_COMPUTERNAME)   If GetComputerName(tmp, Len(tmp)) <> 0 Then GetLocalComputerName = TrimNull(tmp) End If   Exit_GetLocalComputerName: Exit Function   Err_GetLocalComputerName: MsgBox Err.Description Resume Exit_GetLocalComputerName   End Function   '// ----------------------------------------------------------------------- '// Function Private Function TrimNull(startstr As String) As String '// ----------------------------------------------------------------------- '// Methode: | Zusatzfunktion, die für GetLocalComputerName '// | benötigt wird '// ----------------------------------------------------------------------- '// Parameter: | Übergabestring '// ----------------------------------------------------------------------- '// Rückgabe: | Rückgabestring '// ----------------------------------------------------------------------- Private Function TrimNull(startstr As String) As String   TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr)))   End Function

MsgBox GetLocalComputerName

Neuen Tipp melden

Neuen Download melden

Copyright 2000-2003 Microsys Kramer– Alle Rechte vorbehalten - Der Download von Tipps und Programmen von den Seiten www.access-paradies.de erfolgt auf eigene Gefahr. Microsys Kramer haftet nicht für Schäden, die aus der Installation oder der Nutzung von Tipps oder Software aus dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung ist eine Haftung für Schäden und Beeinträchtigungen durch Computerviren ausgeschlossen. Schadenersatzansprüche, aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden wie Datenverlust.