Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 3

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Vadimsoul

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Так же вопрос, что я должен изменить в первой части этого скрипта, чтоб он просто у меня заработал:Dim WshNetwork, dn, UserName, strComputer, colItems, objUser
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
' берем имя компа и пользователя раб станции
Set WshNetwork = WScript.CreateObject ("WScript.Network")
strComputer = WshNetwork.ComputerName
UserName = WshNetwork.UserName
' вытаскиваем distinguishedName пользователя
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP")
Set colItems = objWMIService.ExecQuery("SELECT * FROM ads_user WHERE DS_sAMAccountName='" & UserName & "'", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
FullName = objItem.DS_Name
dn = objItem.DS_distinguishedName
Next
' подключаемся к АД и вносим имя компа в поле userWorkstations пользователя
Set objUser = GetObject ("LDAP://OU=company,OU=Users,OU=ttt,dc=domein,dc=ru")
objUser.Put "wWWHomePage",strComputer
objUser.SetInfo
'Прописываем пользователя в описание локальной машины
k = 34 ' ASCII-код кавычек
kk = Chr(k) ' преобразуем в символ для корректного применения в строке
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set net = WshShell.Exec ("net config server /srvcomment:" & kk & FullName & kk)
 
Права учетке выдал, скрипт выполняется . в userWorkstations  ничего не записывает.
При это в локальном описании все появляется.

Всего записей: 17 | Зарегистр. 29-05-2012 | Отправлено: 11:43 19-06-2012
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 3


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru

Рейтинг.ru