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


1-57452           Лана Розанова         2002-03-03 02:30  2002.03.18  
LongTimeFormat


14-57502          Дмитрий_Б             2002-01-18 15:34  2002.03.18  
Работает ли кто-нибудь в электросвязи ?


3-57294           skiph                 2002-02-14 09:14  2002.03.18  
Загрузка в TOLEContainer


1-57409           Zool                  2002-03-02 11:28  2002.03.18  
Lines