Benutzernamen und Organisation ermitteln Möchten Sie wissen, welcher Namen und welcher Organisation beim Installieren des Betriebbsystems eingegeben wurden, so hilft Ihnen nachfolgende Proz...
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.447
https://www.tools4vb.com	System:  Win9x, WinNT, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 20 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Möchten Sie wissen, welcher Namen und welcher Organisation beim Installieren des Betriebbsystems eingegeben wurden, so hilft Ihnen nachfolgende Prozedur weiter.

' Hier die benötigten API-Deklarationen
Declare Function GetModuleHandle Lib "kernel32" _
  Alias "GetModuleHandleA" ( _
  ByVal lpModuleName As String) As Long
Declare Function LoadString Lib "user32" _
  Alias "LoadStringA" ( _
  ByVal hInstance As Long, _
  ByVal wID As Long, _
  ByVal lpBuffer As String, _
  ByVal nBufferMax As Long) As Long
 
' Die Prozedur ermittelt den Benutzernamen und die
' Organisation
Public Sub GetUserName(UserName As String, OrgName As String)
  Dim Result As Long
  Dim hInst As Long
 
  UserName = Space$(256)
  OrgName = Space$(256)
  hInst = GetModuleHandle("user.exe")
  Result = LoadString(hInst, 514, UserName, Len(UserName))
  UserName = Left$(UserName, Result)
  Result = LoadString(hInst, 515, OrgName, Len(OrgName))
  OrgName = Left$(OrgName, Result)
 
  If InStr(UserName, Chr$(0)) > 0 Then _
    UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
  If InStr(OrgName, Chr$(0)) > 0 Then _
    OrgName = Left$(OrgName, InStr(OrgName, Chr$(0)) - 1)
End Sub