VPF::VBScript + AD + GUI - Форум программистов

Bugavka

Дата 10.7.2008, 07:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Проблема вот в чем. Есть домен, есть группы. есть скрипт для создания нового пользователя, но он не добавляет пользователя в группы. Задача: сделать какой-нить gui для выбора групп, в которые добавиться созданный пользователь. Помогите кто чем )

Akina

Дата 10.7.2008, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Вызвать соотв. апплет панели управления (доменные пользователи и группы).

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Bugavka

Дата 10.7.2008, 08:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Вот и я думаю что нужно вызвать. а как?

Akina

Дата 10.7.2008, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Например, используя Shell(). Или более продвинутые способы порождения дочернего процесса.

--------------------

Bugavka

Дата 10.7.2008, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Про shell вот догнал только, но что-то не нравится такой вариант. Хотелось бы решить задачу так: чтобы в окне вывился список с выбором группы, чкажем, выделил сколько надо групп, нажал ок, и скрипт добавил эти группы пользователю, вот как сделать, чтобы можно было выделить эти группы, скриптов по поиску групп в домене море, но вывод только в переменную или файл. а чтобы в элемент управления - такого не нашел.
А в дочерних это как?

Это сообщение отредактировал(а) Bugavka - 10.7.2008, 12:52

Bugavka

Дата 11.7.2008, 04:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Как можно вызвать окно свойств пользователя в аплете юзеры и компьютеры VBSом???

Bugavka

Дата 11.7.2008, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Код


Sub AddGroup (Domain, Login)
On Error Resume Next 
Set objDomain = GetObject("WinNT://" & Domain)
For Each ObjGroup In objDomain
    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  
        Err.Clear 
        a = a - 1 
        strGroup = myArray(a) 
        Set ObjGroup = GetObject("WinNT://" & Domain & "/" & strGroup & ", group")
        Set ObjUser = GetObject("WinNT://" & Domain & "/" & Login & ", user")
        ObjGroup.Add (objUser.ADSpath) 
        If Err.Number <> 0 Then 
          If Err.Number = "-2147022660" Then 
            Text = "Ошибка при добавление пользователя " & strUser & vbCrLf & "Описание: Такой пользователь уже существует" 
            WshShell.Popup Text, 0, Title, vbCritical+vbDefaultButton1 
          Else  
            Text = "Ошибка при добавление пользователя " & strUser & vbCrLf & "Описание: " & Err.description 
            WshShell.Popup Text, 0, Title ,vbCritical 
            Err.Clear 
          End If
        End If 
        Text = "Хотите добавить пользователя еще в одну группу"
        Res = MsgBox(Text,vbYesNo+vbInformation+vbDefaultButton1,Title) 
        If Res <> vbNo Then 
            Text = "Пользователь добавлен" 
            WshShell.Popup Text, 0, Title, 1 
            Flag = False
        Else
            Flag = True
        End If 
    End If
Wend
End Sub

Вообщем, пока решилось так. Принимаются предложения по оптимизации.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »