Computernamen ermitteln Möchten Sie wissen, wie der Rechnername im Netzwerk lautet, so hilft Ihnen nachfolgende Funktion weiter.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  37.514
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 79 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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