Вывод информации о пользователе и смена его пароля

В листинге 8.4 приведен сценарий UserInfo.vbs, в котором выводится на экран информация о созданном в сценарии AddUser.vbs пользователе XUser. Для получения этой информации мы производим связывание с нужным пользователем, т.е. создаем экземпляр objUser объекта Userи читаем данные из полей этого объекта:

' Связываемся с пользователем XUser компьютера Popov

Set objUser = GetObject("WinNT://Popov/XUser,user")

' Формируем строку с информацией о пользователе

strResult = "Информация о пользователе XUser" & vbCrLf &_

"Имя: " & objUser.Name & vbCrLf & _

"Описание: " & objUser.Description & vbCrLf

' Выводим сформированную строку на экран

WScript.Echo strResult

После этого в сценарии выдается запрос на изменение пароля пользователя XUser. Для этого мы используем метод Popup() объекта WshShell:

' Создаем объект WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

' Запрос на изменение пароля

Res = WshShell.Popup("Изменить пароль у XUser?",0,_

"Администрирование пользователей",vbQuestion+vbYesNo)

В случае утвердительного ответа пароль изменяется с помощью метода SetPassword объекта User, после чего все произведенные изменения сохраняются на рабочей станции с помощью метода SetInfo:

If Res=vbYes Then ' Нажата кнопка Да

' Устанавливаем новый пароль

objUser.SetPassword "NewPassword"

' Сохраняем сделанные изменения

objUser.SetInfo

'********************************************************************

' Имя: UserInfo.vbs

' Язык: VBScript

' Описание: Вывод информации о пользователе компьютера и смена

' его пароля

'********************************************************************

Option Explicit

 

'Объявляем переменные

Dim objUser ' Экземпляр объекта User

Dim WshShell ' Объект WshShell

Dim Res ' Результат нажатия кнопки в диалоговом окне

Dim strPassword ' Строка с новым паролем

Dim strResult ' Строка для вывода на экран

 

'********************** Начало *************************************

' Связываемся с пользователем XUser компьютера Popov

Set objUser = GetObject("WinNT://Popov/XUser,user")

' Формируем строку с информацией о пользователе

strResult = "Информация о пользователе XUser" & vbCrLf &_

"Имя: " & objUser.Name & vbCrLf & _

"Описание: " & objUser.Description & vbCrLf

' Выводим сформированную строку на экран

WScript.Echo strResult

 

' Создаем объект WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

' Запрос на изменение пароля

Res = WshShell.Popup("Изменить пароль у XUser?",0,_

"Администрирование пользователей",vbQuestion+vbYesNo)

If Res=vbYes Then ' Нажата кнопка Да

' Устанавливаем новый пароль

objUser.SetPassword "NewPassword"

' Сохраняем сделанные изменения

objUser.SetInfo

WScript.Echo "Пароль был изменен"

Else

WScript.Echo "Вы отказались от изменения пароля"

End If

'************* Конец *********************************************/

Листинг 8.4. Вывод информации о пользователе компьютера и смена его пароля

 

<== предыдущая лекция | следующая лекция ==>
Создание пользователя и группы на рабочей станции | Удаление пользователя и группы на рабочей станции


Дата добавления: 2018-03-01; просмотров: 129; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2018 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.