Sub Adduser
' Объявляем переменные
Dim strComputer, strUser, Res,Text,Title,objComputer, objUser, s
Dim ObjGroup, strGroup, myArray, Flag, a
On Error Resume Next
' Извлекаем имена компьютера, пользователя
strComputer = objDocument.all.selStation.Value
Title="Добавление пользователя"
Text = "Введите имя пользователя"
strUser = InputBox(Text, Title)
If strUser=vbcancel Then
WScript.Echo "Error"
End If
If strUser = "" Then
Text = " Вы не ввели имя пользователя"
WshShell.Popup Text, 0, Title, vbCritical
Else
Text="Вы точно хотите добавить пользователя " & strUser & " на компьтере " & strComputer
Res=MsgBox(Text,vbOkCancel+vbInformation+vbDefaultButton1,Title)
If Res=vbOk Then
'Связываемся с компьютером
Set objComputer = GetObject("WinNT://"& StrComputer & "")
If Err.Number <> 0 Then
Text = "Произошла ошибка при подключении к комьютерю " & strComputer & vbCrLf & "Описание: " & Err.Description
WshShell.Popup Text, 0, Title ,vbCritical
Err.Clear
Else
' Создаем объект класса User
Set objUser = objComputer.Create("user",strUser)
' Ввод пароля
s=InputBox("Введите пароль нового пользователя",Title)
objUser.SetPassword s
objUser.SetInfo
'Обработка ошибок
If Err.Number <> 0 Then
If Err.Number = "-2147022672" Then
Text = "Ошибка при добавление пользователя " & strUser & vbCrLf &_
"Описание: Такой пользователь уже существует"
WshShell.Popup Text, 0, Title, vbCritical+vbDefaultButton1
Else
Text = "Ошибка при добавление пользователя " & strUser & vbCrLf & "Описание: " & Err.description
WshShell.Popup Text, 0, Title ,vbCritical
' Очищаем свойства объекта Err
Err.Clear
End If
Else
For Each ObjGroup In objComputer
If ObjGroup.class = "Group" Then
strGroup = strGroup & ObjGroup.name &";"
End If
Next
myArray = Split (strGroup, ";",-1,1)
Flag = False
While Flag <> True
a = 0
strGroup = "0: Не добавлять пользователя к группе" & vbCrLf
While Flag <> True
If myArray(a) <> "" Then
strGroup =strGroup & a+1 & ": " & myArray(a) & vbCrLf
a = a+1
Else
Flag = True
End If
Wend
Flag = False
Text = "Введите номер группы к которой вы хотите добавить пользователя" &_
vbCrLf & strGroup
a = InputBox (Text, Title)
If a = 0 Then
WshShell.Popup "Вы отказались от добавления пользователя в группу",_
0, Title, vbOKOnly
Flag = True
Else
a = a - 1
strGroup = myArray(a)
Set ObjGroup = objComputer.Create("group", strGroup)
Err.Clear
ObjGroup.put strUser, strGroup
ObjGroup.setInfo
ObjGroup.add objUser.ADSpath
Text = "Хотите добавить пользователя еще в одну группу"
Res=MsgBox(Text,vbYesNo+vbInformation+vbDefaultButton1,Title)
If Res <> vbNo Then
Text = "Пользоователь добавлен"
WshShell.Popup Text, 0, Title, 1
Flag = True
End If
End If
Wend
End If
End If
Else
Text = " Вы отказались от добавления нового пользователя"
WshShell.Popup Text, 0, Title, vbOKOnly
End If
End If
End Sub |
)
