Форум: "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.023 c
4-57561           Mastak                2002-01-20 15:21  2002.03.18  
Помогите!!! Нужна инфа по поводу функции...


1-57428           snoup                 2002-03-03 01:39  2002.03.18  
Как скрыть/показать НАСТРОЙКА в меню ПУСК!


3-57287           Dimedrol              2002-02-18 15:33  2002.03.18  
UDF и Interbase


3-57329           Dim                   2002-02-18 09:18  2002.03.18  
Нет сортировки по Order by field


1-57416           Olgerd                2002-03-01 20:07  2002.03.18  
Сортировка в ListView