Форум: "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.018 c
14-57494          Builder               2002-01-31 15:46  2002.03.18  
Распостранение Компонентов.


1-57432           phenix                2002-03-03 12:44  2002.03.18  
по существу (delphi 6)


14-57501          HDD                   2002-02-02 17:25  2002.03.18  
Помогите пожалуйста!


3-57333           Андре                 2002-02-20 08:58  2002.03.18  
Поиск по базе


7-57529           Serega__2             2001-12-10 09:29  2002.03.18  
Подскажите плз, как програмно вставить строку в Excel.