发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 修改网络服务器或域上的密码
发信站: 哈工大紫丁香 (2002年01月19日15:44:30 星期六), 站内信件

摘　要：用代码修改指定网络服务器或域上的密码
关键字：密码 网络
类　别：网络
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
function NetUserChangePassword(Domain:PWideChar; UserName:PWideChar; OldPass
word:PWideChar; NewPassword:PWideChar): LongInt; stdcall; external 'netapi32
.dll' name 'NetUserChangePassword'; // 运行平台：Windows NT/2000/XP // Windo
ws 95/98/Me平台：可以用该函数修改用户的Windows登录密码procedure TForm1.Butto
n1Click(Sender: TObject); begin  NetUserChangePassword(PWideChar(WideString(
'\\COMPUTER')),  //计算机名                        PWideChar(WideString('use
rname')),    //用户                        PWideChar(WideString('oldpass')),
     //旧密码                        PWideChar(WideString('newpass')));    /
/新密码end;

--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]