Gruppe
API
Problem
Wie kann ich den Computernamen ermitteln?
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