Also eigentlich ist es schon in 30 Minuten ztu schaffen, wenn man sich nicht näher damit auseinandersetzt. In der
Unit:
http://www.luckie-online.de/Delphi/Sonstiges/NTUser.pas steht eigentlich alles drinne. (Sie benötigt allerdings noch
http://www.luckie-online.de/Delphi/S...s/MpuWinNT.pas )
In der
Unit NTUser.pas findet man dann zum Beispiel folgende Funktion:
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Procedure : AddUser
// Comment : Adds an account on a machine
function AddUser(const Server, User: WideString): NET_API_STATUS;
const
DOMAIN_GROUP_RID_USERS = $00000201;
var
ui3 : TUserInfo3;
NetError : DWORD;
begin
NetError := 0;
if User <> '' then
begin
ZeroMemory(@ui3, sizeof(TUserInfo3));
ui3.usri3_name := PWideChar(User);
ui3.usri3_primary_group_id := DOMAIN_GROUP_RID_USERS;
NetError := NetUserAdd(PWideChar(Server), 3, @ui3, nil);
end;
result := NetError;
end;
Einfach nur Computername und Benutzername angeben und der Benutzer wird angelegt. Allerdings gehört er dann noch zu
keiner Benutzergruppe!