![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - VBS изменение параметров учетной записи пользователя в AD |
|
2008 R2 - VBS изменение параметров учетной записи пользователя в AD
|
Пользователь Сообщения: 54 |
Доброе время.
Всех с прошедшими праздниками и наступающими!! Обращаюсь с такой вот проблемой имеется домен на 2008 r2 винде, с помощью скрипта пытаюсь изменить поля в учетной записи пользователя такие как должность, комната и т.д. Так вот после того как подключился к ад и пытаюсь внести изменения выдает ошибку "отказ в доступе", источник Active Directory. Set WshNetwork = CreateObject("WScript.Network") strUserNTName = WshNetwork.UserName Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Wscript.Echo strDNSDomain Set objTrans = CreateObject("NameTranslate") objTrans.Init 3, "" objTrans.Set 1, strDNSDomain strNetBIOSDomain = objTrans.Get(3) strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) objTrans.Set 3, strNetBIOSDomain & "\" & strUserNTName strUserDN = objTrans.Get(1) Set objUser = GetObject("LDAP://" & strUserDN) Set objOU = GetObject(objUser.Parent) 'Select Case Mid(objOU.Name, 4) 'Case "Admins" 'Wscript.Echo "objUser " & objUser ' вместо этого напишешь маппинг диска и прочее 'Case "SimpleUsers" 'Wscript.Echo "Hoho" ' аналогично 'End Select ' Set objADSystemInfo = CreateObject("ADSystemInfo") ' strUserDN = objADSystemInfo.UserName ' Wscript.Echo "метод 1: " & strUserDN ' 'Code Snippet strUserName = "hs" dtStart = TimeValue(Now()) Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = _ "<LDAP://dc=rkb,dc=local>;(&(objectCategory=User)" & _ "(samAccountName=" & strUserName & "));distinguishedName;subtree" Set objRecordSet = objCommand.Execute If objRecordset.RecordCount = 0 Then WScript.Echo "sAMAccountName: " & strUserName & " does not exist." Else WScript.Echo "|" & objRecordSet.Fields("distinguishedName") & "|" DNuser="LDAP://" & objRecordSet.Fields("distinguishedName") Set objUsers = GetObject (""& DNuser & "") objUsers.Put "Mobile", "9146556555" objUsers.SetInfo End If objConnection.Close |
|
Отправлено: 10:45, 10-01-2014 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Доступ - [решено] изменение типа учетной записи | дмитрий ходко | Microsoft Windows Vista | 1 | 28-02-2011 08:13 | |
VBS/WSH/JS - [решено] VBS, блокирование учетной записи пользователя на локальном компьютере. | hse2000 | Скриптовые языки администрирования Windows | 4 | 27-02-2009 12:38 | |
Разное - [решено] Настройка учетной записи пользователя | fergard | Microsoft Windows Vista | 21 | 06-07-2008 15:13 | |
смена имени пользователя (учетной записи) | vetalm | Microsoft Windows NT/2000/2003 | 2 | 24-05-2008 00:20 | |
VBS/WSH/JS - Изменение параметров почты через VBS | Pav | Программирование и базы данных | 5 | 18-06-2004 10:01 |
|