Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / System / Windows / Login

Angemeldeter User und Computer

Möchte man in einem VB-Programm wissen, wer sich am Rechner angemeldet hat (bzw. an welchem Rechner), dann können folgende Routinen hilfreich sein:
'Deklarationsteil:
Private Declare Function GetComputerNameA Lib "kernel32" _
    (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserNameA Lib "advapi32.dll" _
    (ByVal lpBuffer As String, nSize As Long) As Long

'Prozeduren:
Public Function WhereAmI() As String
  Dim s As String * 255
  GetComputerNameA s, Len(s)
  WhereAmI = Left$(s, InStr(s, vbNullChar) - 1)
End Function

Public Function WhoAmI() As String
  Dim s As String * 255
  GetUserNameA s, Len(s)
  WhoAmI = Left$(s, InStr(s, vbNullChar) - 1)
End Function

© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/login.htm