VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

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