Also wenn ich hier an meinem lokalen Rechner, das mache:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sUser: String;
ui1: Pointer;
begin
sUser := GetUser();
NetUserGetInfo('deepthought', PWideChar(WideString(sUser)), 1, ui1);
Label1.Caption := PUserInfo1(ui1)^.usri1_name;
NetApiBufferFree(ui1);
end;
Geht es wunderbar.
Hast du das jetzt schon mal über das Netzwerk probiert?