Удаление пользователя и группы на рабочей станции

Для удаления созданных с помощью сценариев AddUser.vbs и AddGroup.vbs пользователя XUser и группы XGroup, мы создадим сценарий DelUserAndGroup.vbs, который представлен в листинге 8.5.

Замечание

Для удаления пользователя или группы у вас в системе должны быть назначены права, которыми обладает администратор.

В принципе, удалить пользователя и группу так же просто, как и создать — нужно связаться с объектом Computer:

Set objComputer = GetObject("WinNT://Popov")

и вызвать метод Delete, указав в качестве первого параметра класс объекта, который мы хотим удалить, и в качестве второго параметра — имя этого объекта:

' Удаляем пользователя

objComputer.Delete "user", strUser

Однако здесь могут возникнуть ошибки (например, мы не запускали предварительно сценарий AddUser.vbs и у нас на компьютере не зарегистрирован пользователь, которого мы хотим удалить). Поэтому в сценарии DelUserAndGroup.vbs предусмотрена обработка исключительных ситуаций с помощью стандартного объекта Err:

If Err.Number <> 0 Then

strMess="Ошибка при удалении пользователя " & strUser & vbCrLf & _

"Код ошибки: " & Err.number & "Описание: " & Err.description

WshShell.Popup strMess,0,"Удаление пользователя",vbCritical

' Очищаем свойства объекта Err

Err.Clear

Else

' Все в порядке

strMess = "Пользователь " & strUser & " удален"

WshShell.Popup strMess,0,"Удаление пользователя",vbInformation

End If

Как мы видим, если при вызове метода Delete произойдет какая-либо ошибка, то на экран с помощью метода Popup объекта WshShellвыведется соответствующее сообщение. Если же удаление прошло успешно (свойство Number объекта Err равно нулю), то на экран также выведется соответствующее диалоговое окно.

Процесс удаления группы в сценарии проходит аналогично.

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

' Имя: DelUserAndGroup.vbs

' Язык: VBScript

' Описание: Удаление пользователя и группы компьютера

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

Option Explicit

On Error Resume Next

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

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

Dim strUser ' Имя удаляемого пользователя

Dim strGroup ' Имя удаляемой группы

Dim WshShell ' Объект WshShell

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

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

' Имя удаляемого пользователя

strUser = "XUser"

' Имя удаляемой группы

strGroup = "XGroup"

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

Set objComputer = GetObject("WinNT://Popov")

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

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

'************* Удаление пользователя ***********************

' Удаляем пользователя

objComputer.Delete "user", strUser

' Обрабатываем ошибки

If Err.Number <> 0 Then

strMess="Ошибка при удалении пользователя " & strUser & vbCrLf & _

"Код ошибки: " & Err.number & "Описание: " & Err.description

WshShell.Popup strMess,0,"Удаление пользователя",vbCritical

' Очищаем свойства объекта Err

Err.Clear

Else

' Все в порядке

strMess = "Пользователь " & strUser & " удален"

WshShell.Popup strMess,0,"Удаление пользователя",vbInformation

End If

'************* Удаление группы ***********************/

objComputer.Delete "group", strGroup

' Обрабатываем ошибки

If Err.Number <> 0 Then

strMess="Ошибка при удалении группы " & strGroup & vbCrLf & _

"Код ошибки: " & Err.number & "Описание: " & Err.description

' Очищаем свойства объекта Err

Err.Clear

Else

' Все в порядке

strMess="Группа " & strGroup & " удалена"

WshShell.Popup strMess,0,"Удаление группы",vbInformation

End If

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

Листинг 8.5. Удаление пользователя и группы на рабочей станции