Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

NetUserAdd and NetUserSetInfo 


BigFoot   (2002-01-19 10:04) [0]

Здравствуйте, уважаемые.
Пишу программу, которая бы разгребала екселевский файл с именами и создавала бы юзерей в домене, присваивая бы им пароль, а также домашний каталог и каталог с профайлами. Да вот что-то не получается.
Нет ли у кого готовых функций ? А то надо срочно.



VuDZ   (2002-01-19 15:34) [1]


#include "stdafx.h"
#include <windows.h>
#include <Lm.h>
#include <conio.h>
#include <process.h>

int wmain(int argc, wchar_t *argv[])
{
USER_INFO_1 ui;
DWORD dwLevel = 1;
DWORD dwError = 0;
NET_API_STATUS nStatus;

if (argc != 3)
{
fwprintf(stderr, L"Usage: %s \\\\ServerName UserName\n", argv[0]);
exit(1);
}
//
// Set up the USER_INFO_1 structure.
// USER_PRIV_USER: name identifies a user,
// rather than an administrator or a guest.
// UF_SCRIPT: required for LAN Manager 2.0 and
// Windows NT/Windows 2000.
//
ui.usri1_name = argv[2];
ui.usri1_password = argv[2];
ui.usri1_priv = USER_PRIV_USER;
ui.usri1_home_dir = NULL;
ui.usri1_comment = NULL;
ui.usri1_flags = UF_SCRIPT;
ui.usri1_script_path = NULL;
//
// Call the NetUserAdd function, specifying level 1.
//
nStatus = NetUserAdd(argv[1],
dwLevel,
(LPBYTE)&ui,
&dwError);
//
// If the call succeeds, inform the user.
//
if (nStatus == NERR_Success)
fwprintf(stderr, L"User %s has been successfully added on %s\n",
argv[2], argv[1]);
//
// Otherwise, print the system error.
//
else
fprintf(stderr, "A system error has occurred: %d\n", nStatus);

return 0;
}



Tosov   (2002-01-19 22:35) [2]

NetUserAdd
http://delphi.xonix.ru/faq/users/newuser01.shtml




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
1-57454           Григорий Ситнин       2002-02-27 15:03  2002.03.18  
Алгоритмы сравнения файлов...


14-57517          VictorT               2002-02-04 11:24  2002.03.18  
Градский


1-57422           ravil                 2002-03-03 02:37  2002.03.18  
help


1-57434           AndreyK               2002-03-03 13:33  2002.03.18  
Срочно


3-57322           Malder                2002-02-17 18:50  2002.03.18  
Управление доступом к базе данных InterBase