GetComputerName-Funktion Diese Funktion liefert den Computernamen zurück, der bei Windowsinstallation bzw. in den Windows Netzwerk-Einstellungen festgelegt wurde.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  4.775

Beschreibung:
Diese Funktion liefert den Computernamen zurück, der bei Windowsinstallation bzw. in den Windows Netzwerk-Einstellungen festgelegt wurde.

Deklaration:

Declare Function GetComputerName Lib "kernel32.dll" _
  Alias "GetComputerNameA" ( _
  ByVal lpBuffer As String, _
  nSize As Long) As Long

Parameter:

lpBuffer	Erwartet einen Puffer, der mit dem Computernamen gefüllt wird./td>
nSize	Größe des Puffers in Bytes.

Rückgabewert:
Nach erfolgreichem Funktionsaufruf enthält lpBuffer den Computernamen und der Rückgabewert der Funktion ist ungleich "0". Tritt ein Fehler auf wird "0" zurückgegeben.

Beispiel:

Private Declare Function GetComputerName Lib "kernel32.dll" _
  Alias "GetComputerNameA" ( _
  ByVal lpBuffer As String, _
  nSize As Long) As Long

Private Sub Command1_Click () 
  Dim RetVal As Long
  Dim Puffer As String * 256 
  Dim ComputerName As String
 
  RetVal = GetComputerName(Puffer, Len(Puffer)) 
 
  ' Bei vbNullChar "abtrennen" und anzeigen
  If RetVal <> 0 Then
    ComputerName = Left$(Puffer, Instr(1, Puffer, vbNullChar) - 1)
    MsgBox "Der Computername ist: " & ComputerName 
  End If
End Sub