|
Wie ermittelt man den Computernamen?
Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long |
Function APIGetComputerName() As String
'// -----------------------------------------------------------------
'// Methode: | Ermittelt den Computernamen
'// -----------------------------------------------------------------
Dim sBuffer As String
sBuffer = String(1024, 0)
If GetComputerName(sBuffer, Len(sBuffer)) Then
APIGetComputerName = _
VBA.Left(sBuffer, VBA.InStr(sBuffer, vbNullChar) - 1)
End If
End Function |
Zum Ermitteln des angemeldeten Netzwerkusers verwenden Sie folgenden Aufruf:
MsgBox "Der aktuelle Computername: " & APIGetComputerName
Zurück zu Tipps und Tricks
|
