Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB4, VB5, VB6 | 02.11.00 |
Computernamen ermitteln Möchten Sie wissen, wie der Rechnername im Netzwerk lautet, so hilft Ihnen nachfolgende Funktion weiter. | ||
Autor: Dieter Otter | Bewertung: | Views: 36.758 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Möchten Sie wissen, wie der Rechnername im Netzwerk lautet, so hilft Ihnen nachfolgende Funktion weiter.
' Hier die benötigten API-Deklarationen Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long ' Die Funktion ermittelt den Computer-Namen Public Function GetComputerInfo() As String Dim Result As Long Dim cInfo As String cInfo = Space$(256) Result = GetComputerName(cInfo, Len(cInfo)) If InStr(cInfo, Chr$(0)) > 0 Then _ cInfo = Left$(cInfo, InStr(cInfo, Chr$(0)) - 1) GetComputerInfo = cInfo End Function