就是想知道怎么实现在一台电脑里合法修改另一台电脑里用户名的密码(非黑客行为的)

解决方案 »

  1.   

    change a user's password for a specified network server or domain ? 
    Author: Simon Grossenbacher  
    Homepage: http://www.swissdelphicenter.ch 
    function NetUserChangePassword(Domain: PWideChar; UserName: PWideChar; OldPassword: PWideChar; 
      NewPassword: PWideChar): Longint; stdcall; external 'netapi32.dll' 
      Name 'NetUserChangePassword'; // Changes a user's password for a specified network server or domain. 
    // Requirements:  Windows NT/2000/XP 
    // Windows 95/98/Me: You can use the PwdChangePassword function to change a user's 
    // Windows logon password on these platforms procedure TForm1.Button1Click(Sender: TObject); 
    begin 
      NetUserChangePassword(PWideChar(WideString('\\COMPUTER')), 
        PWideChar(WideString('username')), 
        PWideChar(WideString('oldpass')), 
        PWideChar(WideString('newpass'))); 
    end;