Модераторы: bartram, Akella
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как запретить изменять пароль и имя? 
:(
    Опции темы
gud
Дата 31.3.2009, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 23.7.2008

Репутация: нет
Всего: нет
подскажите пожалйста через какие ключи в реестре запретить пользователям, не администраторам,  менять себе пароль и имя, и как запретить им всем доступ к реестру.
PM MAIL   Вверх
aik2029
Дата 31.3.2009, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 31.3.2009

Репутация: нет
Всего: нет
Как запретить смену имени не знаю, а запрет на смену пароля вот:

1) Панель управления -> Администрирование -> Управление компьютером -> Локальные пользователи и группы -> Пользователи

2) Правой кнопкой мыши по Имени пользователя -> Свойства -> Запретить смену пароля пользователем

Это сообщение отредактировал(а) aik2029 - 31.3.2009, 12:05
PM MAIL   Вверх
gud
Дата 31.3.2009, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 23.7.2008

Репутация: нет
Всего: нет
надо именно через реестр, т.к. запрещать предполагается программно,
и в home edition нет "Локальные пользователи и группы".
PM MAIL   Вверх
aik2029
Дата 31.3.2009, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 31.3.2009

Репутация: нет
Всего: нет
В реестре я не пробовал искать ключ для запрета 

Это сообщение отредактировал(а) aik2029 - 31.3.2009, 12:37
PM MAIL   Вверх
kin
Дата 31.3.2009, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 204
Регистрация: 9.5.2008

Репутация: 1
Всего: 6
Цитата(gud @  31.3.2009,  12:18 Найти цитируемый пост)
менять себе пароль и имя

Цитата(gud @  31.3.2009,  12:18 Найти цитируемый пост)
надо именно через реестр, т.к. запрещать предполагается программно,
и в home edition нет "Локальные пользователи и группы". 
 Что-то не совсем понятна конечная цель сего действия... Если у тебя задание написать это дело, так в MSDN очень хорошо все написано... Если надо управлять пользователями на домашнем ПК, дык командную строку еще никто не отменял. И уж совсем не понятно про смену имени...это как???
PM MAIL   Вверх
gud
Дата 31.3.2009, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 23.7.2008

Репутация: нет
Всего: нет
может я не все понял,
так вот я создаю пользователей и хочу всегда знать их имена и пароли т.е. как их создали первый раз.
для пароля ключ - DisableChangePassword,
а насчет имени не уверен т.е. вы хотите сказать пользователи, не администраторы, сами не могут менять свое имя? и не только в home edition?
PM MAIL   Вверх
Naghual
  Дата 31.3.2009, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 9
Всего: 49
Вирусописатели млин...
 smile 


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
gud
Дата 31.3.2009, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 23.7.2008

Репутация: нет
Всего: нет
протестую, обясните где не прав, первый раз создаю пользователей,  
PM MAIL   Вверх
kin
Дата 31.3.2009, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 204
Регистрация: 9.5.2008

Репутация: 1
Всего: 6
Цитата(gud @  31.3.2009,  13:35 Найти цитируемый пост)
а насчет имени не уверен т.е. вы хотите сказать пользователи, не администраторы, сами не могут менять свое имя? и не только в home edition?
 Да не могут, хотя все зависит от кривизны рук администратора... smile 
"...когда-то, на заре времЕн, первый сисадмин "опустил"  сервер господен, не сделав backup вовремя, чем сильно разгневал господа. И наслал господь на него кару небесную, создав пользователя обычного, дабы знал админ всезнающий, что святость backup-а незыблема... Ибо USER, прав не имеющий, сотворить однако может многое, даже то, что совсем невозможным уж кажется..." smile (шутка)

Цитата(gud @  31.3.2009,  14:16 Найти цитируемый пост)
протестую, обясните где не прав, первый раз создаю пользователей,  

Почитай про работу в сетях (что, зачем и как), хочешь здесь, а хочешь в networkdoc.ru, или google.ru, или...

Это сообщение отредактировал(а) kin - 31.3.2009, 16:51
PM MAIL   Вверх
mihanik
Дата 31.3.2009, 22:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Смотри тут: http://forum.vingrad.ru/index.php?showtopi...t&p=1499814

А именно

Код

'#####################################################################
'#
'# Процедура SetCommonProperties
'# Описание: Управляет общими свойствами (галками) учётной записи.
'#             
'# Вход    : byVal strUserName                    - имя пользователя
'#             ByVal blnRequireChangePassword     - требовать/не требовать менять пароль при следующем входе
'#             ByVal blnUserCanNotChangePassword  - может/не может пользователь менять свой пароль
'#             ByVal blnNeverExpirePassword        - пароль пользователя никогда не "сгорает" (да/нет)
'#             ByVal blnAccountDisabled            - пользователь включен/выключен
'# Выход   : Нет
'#####################################################################
Sub SetCommonProperties (byVal strUserName, ByVal blnRequireChangePassword, _
                                            ByVal blnUserCanNotChangePassword, _
                                            ByVal blnNeverExpirePassword, _
                                            ByVal blnAccountDisabled )
Dim objComputer
Dim strComputer
Dim colAccounts
Dim objFlag
Dim objUserFlags
Dim objUser


Const ADS_UF_SCRIPT = &H1                             ' The logon script will be executed
Const ADS_UF_ACCOUNTDISABLE = &H2                     ' Disable user account
Const ADS_UF_HOMEDIR_REQUIRED = &H8                   ' Requires a root directory
Const ADS_UF_LOCKOUT = &H10                           ' Account is locked out
Const ADS_UF_PASSWD_NOTREQD = &H20                    ' No password is required
Const ADS_UF_PASSWD_CANT_CHANGE = &H40                ' The user cannot change the password
Const ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = &H80   ' Encrypted password allowed
Const ADS_UF_TEMP_DUPLICATE_ACCOUNT = &H100           ' Local user account
Const ADS_UF_NORMAL_ACCOUNT = &H200                   ' Typical user account
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

    On Error Resume Next

'# Определяем имя компьютера
    Set objComputer = CreateObject("Shell.LocalMachine")
        strComputer = objComputer.MachineName
    Set objComputer = Nothing

'# Устанавливаем/Снимает галку с пункта
'# "Потребвать сену пароля при следующем входе в систему"    
If Not IsNull(blnRequireChangePassword) Then    
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & ", user")
            
            If blnRequireChangePassword Then 
                objUser.Put "PasswordExpired", 1
            Else
                objUser.Put "PasswordExpired", 0
            End If
        
        objUser.SetInfo
        
        Set objUser = Nothing
End if

'# Устанавливаем/Снимает галку с пункта
'# "Запретить смену пароля пользователем"
If Not IsNull(blnUserCanNotChangePassword) Then    

        Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & ", user")
            
            objUserFlags = objUser.Get("UserFlags")
            
            If blnUserCanNotChangePassword Then
             objFlag = objUserFlags Or ADS_UF_PASSWD_CANT_CHANGE
         Else
             objFlag = objUserFlags And Not ADS_UF_PASSWD_CANT_CHANGE
         End If
            
            objUser.Put "userFlags", objFlag 
            objUser.SetInfo
     
        Set objUser = Nothing
End If

'# Устанавливаем/Снимает галку с пункта
'# "Срок действия пароля не ограничен"
If Not IsNull(blnNeverExpirePassword) Then    
    
        Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & ", user")
            
            objUserFlags = objUser.Get("UserFlags")
            
            If blnNeverExpirePassword Then
                objFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
            Else
                objFlag = objUserFlags And Not ADS_UF_DONT_EXPIRE_PASSWD
            End If
            
            objUser.Put "userFlags", objFlag 
            objUser.SetInfo
            
        Set objUser = Nothing
End if

'# Устанавливаем включена/выключена учётная запись
If Not IsNull(blnAccountDisabled) Then    

    Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & ", user")
        
        objUserFlags = objUser.Get("UserFlags")
        
        If blnAccountDisabled Then
            objFlag = objUserFlags OR ADS_UF_ACCOUNTDISABLE
        Else
            objFlag = objUserFlags And Not ADS_UF_ACCOUNTDISABLE
        End If
        
        objUser.Put "userFlags", objFlag 
        objUser.SetInfo
        
    Set objUser = Nothing
    
End if    

    On Error Goto 0
    
End Sub



Добавлено через 1 минуту и 35 секунд
А ещё лучше тут: http://forum.vingrad.ru/index.php?showtopi...t&p=1507682



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0794 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.