Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Declare Function GetComputerName& Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long)

Sub CptName()
  Dim sTxt As String * 64
  Call GetComputerName(sTxt, 64)
  MsgBox sTxt
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen API und System