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

В листинге 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 ' Строка для вывода на экран

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