Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

NetUserGetInfo: Benutzerinformationen auslesen
Autor: Hawker
Datum: 07.12.06 12:47
Hi, ich habe folgendes Problem: Der folgende Code funktioniert bei mir nicht (obwohl ich ihn auf mehreren Computern getestet habe). Der Fehler triit bei dem Aufruf der CopyMemory-Funktion auf, weil nichts in den Puffer eingelesen werden kann. Merkwürdigerweise funktioniert der Code allerdings manchmal beim Auslesen des Benutzernamens oder des vollen Namens des Benutzers, aber nie, wenn ich z.B. versuche, das Passwort zu bekommen. Gibt es irgendeine Möglichkeit, dieses Problem zu umgehen oder über einen ganz anderen Weg z.B. das Passwort oder Last Logon / Last Logoff auszulesen? Private Type USER_INFO_3 usri3_name As Long 'LPWSTR in SDK usri3_password As Long 'LPWSTR in SDK usri3_password_age As Long 'DWORD in SDK usri3_priv As Long 'DWORD in SDK usri3_home_dir As Long 'LPWSTR in SDK usri3_comment As Long 'LPWSTR in SDK usri3_flags As Long 'DWORD in SDK usri3_script_path As Long 'LPWSTR in SDK usri3_auth_flags As Long 'DWORD in SDK usri3_full_name As Long 'LPWSTR in SDK usri3_usr_comment As Long 'LPWSTR in SDK usri3_parms As Long 'LPWSTR in SDK usri3_workstations As Long 'LPWSTR in SDK usri3_last_logon As Long 'DWORD in SDK usri3_last_logoff As Long 'DWORD in SDK usri3_acct_expires As Long 'DWORD in SDK usri3_max_storage As Long 'DWORD in SDK usri3_units_per_week As Long 'DWORD in SDK usri3_logon_hours As Long 'PBYTE in SDK usri3_bad_pw_count As Long 'DWORD in SDK usri3_num_logons As Long 'DWORD in SDK usri3_logon_server As Long 'LPWSTR in SDK usri3_country_code As Long 'DWORD in SDK usri3_code_page As Long 'DWORD in SDK usri3_user_id As Long 'DWORD in SDK usri3_primary_group_id As Long 'DWORD in SDK usri3_profile As Long 'LPWSTR in SDK usri3_home_dir_drive As Long 'LPWSTR in SDK usri3_password_expired As Long 'DWORD in SDK End Type Private Declare Function NetUserGetInfo Lib "netapi32.dll" ( _ strServerName As Any, strUserName As Any, ByVal dwLevel As Long, _ pBuffer As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Sub Command1_Click() Dim pServer() As Byte, pUser() As Byte pUser = "(Benutzername)" & vbNullChar pServer = "(Computername)" & vbNullChar Dim dwLevel As Long dwLevel = 3 Dim tmpBuffer As USER_INFO_3 Dim ptmpBuffer As Long NetUserGetInfo pServer(0), pUser(0), dwLevel, ptmpBuffer CopyMemory tmpBuffer, ptmpBuffer, LenB(tmpBuffer) Dim sUser As String Dim sByte() As Byte ReDim sByte(255) CopyMemory sByte(0), tmpBuffer.usri3_password, 256 sUser = sByte sUser = sUser & vbNullChar MsgBox Trim$(sUser) End Sub

NetUserGetInfo: Benutzerinformationen auslesen

2.394

Hawker

07.12.06 12:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen