а если так
пароли менять только вечером когда никто не работает.
после этого вышибать всех из 1с.

Если нет пароля в спец файле то его ( пароль ) должен назначить не пользователь сам себе а администратор.

могу скинуть exe ( писал давно текстов нет )
который по файлу users.usr (  обновленному )
восстанавливает файл dba

Z1 писал(а) 03. Июня 2010 :: 10:19:

Спасибо По-моему у меня подобное где-то было
А алгоритма парсинга Users.usr нет?

Для тех, у кого нет автовхода можно поступить точно также: прячем от них родной 1C.exe, кидаем им ярлык на свою прогу и далее по той же схеме.
Для нетерминальщиков, думаю, можно поступить аналогично.

vde69 : можешь использовать в некомерческих проектах,

вот интерфейс:

// описание интерфейса библиотеки DLL_Info77.dll версия 1.0.1.0
//
// vde69@mail.ru
//
//
//************************************************************
//
// ПРИМЕР ИСПОЛЬЗОВАНИЯ
//
//************************************************************
type

TVariantBase77 = (Files, SQL, None);
PItemConfigUserBase77 = ^TItemConfigUserBase77;
PItemConectUserBase77 = ^TItemConectUserBase77;

TItemConfigUserBase77 = record
Base77UserName: String;
Base77UserPage: String;
Base77UserFullName: String;
Base77UserPass: String;
end;

TItemConectUserBase77 = record
Base77UserName: String;
RunMode: String;
IsMono: Boolean;
DateTime: String;
ComputerName: String;
end;

TFunctionGetStr = Function: String;
TFunctionGetList = Function: TList;
TFunctionGetVariantBase77 = Function: TVariantBase77;
TProcedureItitializate = procedure (Path:string);
TProcedure = procedure;
THandle = Integer;


var
HandleDLL: THandle;
GetSQLServer,
GetSQLBase,
GetSQLUser,
GetSQLPass,
GetFilePath,
GetFileNameMD,
GetFileNameLinks,
GetFileNameUsers,
GetFileNameDBA: TFunctionGetStr;
GetVariantBase: TFunctionGetVariantBase77;
GetListUserConfig,
GetListActiveUsers: TFunctionGetList;
LoadSetConfig: TProcedureItitializate;
LoadActiveUsers: TProcedure;

procedure TMainForm.FormCreate(Sender: TObject);
begin
HandleDLL := LoadLibrary('DLL_Info77.dll');
if Handle <> 0 then
begin

@GetSQLServer := GetProcAddress(Handle, 'GetSQLServer');
@GetSQLBase := GetProcAddress(Handle, 'GetSQLBase');
@GetSQLUser := GetProcAddress(Handle, 'GetSQLUser');
@GetSQLPass := GetProcAddress(Handle, 'GetSQLPass');
@GetFilePath := GetProcAddress(Handle, 'GetFilePath');
@GetFileNameMD := GetProcAddress(Handle, 'GetFileNameMD');
@GetFileNameLinks := GetProcAddress(Handle, 'GetFileNameLinks');
@GetFileNameUsers := GetProcAddress(Handle, 'GetFileNameUsers');
@GetFileNameDBA := GetProcAddress(Handle, 'GetFileNameDBA');
@GetVariantBase := GetProcAddress(Handle, 'GetVariantBase');
@GetListUserConfig := GetProcAddress(Handle, 'GetListUserConfig');
@GetListActiveUsers := GetProcAddress(Handle, 'GetListActiveUsers');
@LoadSetConfig := GetProcAddress(Handle, 'LoadSetConfig');
@LoadActiveUsers := GetProcAddress(Handle, 'LoadActiveUsers');

//
// по хорошему тут еще надо проверить полученные адреса на корректность
// if @GetSQLServer <> nil then
//
end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
if Handle <> 0 then FreeLibrary(Handle);
end;