var user,pass:string; begin user:='admin'; pass:='123456'; WinExec(pchar('cmd /c net user ' user ' ' pass),0); end;

------
学

請問： 此功能一定需要調用net嗎？Delphi本身可不可以做到，因為有些電腦的net程式可能會丟掉，最好不要因為系統環而影響到程式的執行結果
還請幫忙想想有無其他方法，謝謝.

net1 命令也是一样的
这类程序一般不会太容易丢失的 放心好了
至于api也是可以实现\不过程式不在这里\如果需要的话我可以给你mail

------
学

謝謝sadnui：

因我現時的環境有部分PC的NET程式就是被刪除了，因此還請發送相關API，謝謝
我的EMAIL： light.he@gmail.com

非常感謝

NetUserChangePassword
因為要OldPass，依你需求就不要用了。

改用
NetUserDel
刪掉(舊的使用者)
NetUserAdd 重建(舊的使用者)


參考這篇
http://topic.csdn.net/t/20030114/08/1355696.html
NetUserAdd的疑问

------
努力會更接近成功

編輯記錄

有些内置帐号是不可以删除的．所以先删除再建立是不可行的． NetUserSetInfo可以直接修改密码，但ＭＳＤＮ上的代码不是ＤＥＬＰＨＩ的，哪位可以帮忙转成DELPHI的代码，感谢．

NET_API_STATUS NetUserSetInfo( LPCWSTR servername, LPCWSTR username, DWORD level, LPBYTE buf, LPDWORD parm_err ); #include #include #include #pragma comment(lib,"netapi32.lib") int wmain(int argc, wchar_t *argv[]) { DWORD dwLevel = 1003; USER_INFO_1003 ui_1003; NET_API_STATUS nStatus; LPWSTR wNewPassword; LPWSTR wComputerName; LPWSTR wUserName; if (argc != 3) { fwprintf(stderr, L"Usage: %s UserName NewPassword\n", argv[0]); return 0; } wComputerName=NULL; wUserName=argv[1]; wNewPassword=argv[2]; ui_1003.usri1003_password=wNewPassword; nStatus = NetUserSetInfo(wComputerName,wUserName,dwLevel,(LPBYTE)&ui_1003,NULL); if (nStatus == NERR_Success) fwprintf(stderr, L"%s's password has been changed\n", argv[1]); else fprintf(stderr, "A system error has occurred: %d\n", nStatus); return 0; }

function NetUserSetInfo(Servername:PWideChar;Username:pWidechar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;stdcall; external 'netapi32.dll';
type
NET_API_STATUS = DWORD;
USER_INFO_1003 = Record
usri1003_password : PWideChar;
End;
procedure TForm1.Button1Click(Sender: TObject);
var
dwLevel:DWORD;
ui_1003 : USER_INFO_1003;
nStatus:NET_API_STATUS ;
wNewPassword, wComputerName, wUserName :LPWSTR;
begin
dwLevel:= 1003;
wComputerName:=nil;
wUserName:='11111';
wNewPassword:='00000';
ui_1003.usri1003_password:=wNewPassword;
nStatus := NetUserSetInfo(wComputerName,wUserName,dwLevel,@(ui_1003),0);
end;


// 我的代码没找到\ 只能帮你翻译一下你的代码 经测试可以修改 administrator 下用户密码 请测试一下

------
学

晚了一步, 我也試出來了.
http://topic.csdn.net/t/20020917/14/1030497.html
如何使用程序设置win2000中的用户名跟密码？

YourUserName';
usri1_password :='YouUserName',1,buf,@error);
memo1.lines.Add(format('NetUserSetInfo %d, %d',[i,error]));
memo1.lines.Add(inttostr(GetLastError));
freemem(buf);
end;

end.

------
努力會更接近成功

編輯記錄

經測試己經OK，代碼如下：
感謝sadnui,pceyes 的幫助。


uses
SysUtils,WINDOWS;

function NetUserSetInfo(Servername:PWideChar;Username:pWidechar;Level:DWORD;Buf:pointer;ParmError:dword):LongInt;stdcall; external 'netapi32.dll';
type
NET_API_STATUS = DWORD;
USER_INFO_1003 = Record
usri1003_password : PWideChar;
End;

var
dwLevel:DWORD;
ui_1003 : USER_INFO_1003;
wNewPassword, wComputerName, wUserName :LPWSTR;
begin
dwLevel:= 1003;
wComputerName:=nil;
wUserName:='administrator';
wNewPassword:='111111';
ui_1003.usri1003_password:=wNewPassword;
NetUserSetInfo(wComputerName,wUserName,dwLevel,@(ui_1003),0);
end.

請問這程序可以應用在 2003 SP2 以上的 AD 網域控制台嗎?