» Автоматизация администрирования

логично - ты же сам ответил на свой вопрос - у компьютеров нет достоточных прав чтобы поменять свое имя
в конце концов можно упростить, ничего не создавать а исспользовать группу domain computers

Я уже начинаю отчаиваться, т.к. не получается. Что я сделал
1.Завел ОЮ тест
2. перекинул туда комп акаунт своей машины
3. на этот ОЮ настроил ГП и там в computer configuration для startup script указываю скрипт который должен переименовать мою машину
4. В этом ОЮ создал группу и делегировал ей права на этот ОЮ
5 на всякий случай в секьюрити ОЮ добавил домэйн комп и дал права на ОЮ
6. перезагрузил комп

и ничего
А у тебя пользователя имеют права локального админа?

gpupdate
если не помогло gpupdate /force
пользователи да, но когда я проверял я не логинился на комп админом, скрипт выполняется от имени системы

Добавлено:
после 1й перезагрузки меняется значение имя в ад - ну и после 2й имя компа

я делал ускоренное обновление ГП, не помогает.
Ты не могбы выложить свой скрипт, может у меня в скрипте что то не так?
Заранее благодарен!!!!!!!

из азбуки брал

Цитата:

Rename a Computer and Computer Account
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
err = objComputer.Rename("WebServer")
Next

проверь свой скрипт локальзо запустив администратором домена

Запустил локально под админом домена и скрипт отработал.

смотри - может недостаточно прав дал дай Full

Самое странное, что запускаю этот скрипт с правами админа с другой машины и пишет что пермишен денайд на процедуру getobject

Я тут недавно писал, нужен был скрипт для сбора данных об использовании программ, скрипт написали, но он странно как-то запускается:
групповой политикой из общей папки запускаем батник, в котором

Код:
start cscript monsoftusage.vbs
rem pause

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

Добавлено:
KLESK: а ты не пробывал с помощью скрипта переименовывать машину в домене?

Pser
Нет, не пробовал. И по железу и на переименование скрипты уже были, смотри в версии для Печати, если мега хороший скрипт - выкладывай.

Добавлено:
Можно удаленно подключившись (еще до логона) от имени какого-нибудь пользователя запустить, а вот политикой никак.

знаю что было, но искать очень долго, а мне нужно как можно раньше.

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

Дополнительно интересует можно ли как-нибудь из .txt считывать строки - команды.
Вставлять их в hyperterminal и выполнять.

проблема: есть куча машин в домен, часть машин с поднятым сервисом файл шеринг, а часть без, так вот кто нибудь знает как через скрипт поднять службу файл шеринг или может еще каким нибудь образом. Вручную на каждой машине замучаюсь. Если подниму файл шеринг, то смогу переименовывать машины в домене с помощью нетдом.
Помогите уже задолбался!

Имхо LanSafety - самый простой способ:



Снял галочки - и готово!

Добавлено:
Ссылка на скачивание: http://lantricks.ru/download/

Pser
что нить получилось?


Sk1f



Цитата:

set Shell=WScript.CreateObject("WScript.Shell")
Shell.run "notepad", 1, False
WScript.Sleep 500
Shell.SendKeys "Tratata" + vbCrLf

а что ты хочеш с hyperterminal делать?

urel, Cisco конфигурить. Только мне лень конфиг вручную вбивать. А так можно написать скрипт. Он все то что написано вставит в конфиг и запустит

Pser RussianNeuroMancer
а не проще такие вещи решать GP ???

Добавлено:
Sk1f

может стоит заюзать чтонить вроде PuTTY Link?

а вобщ киски у на редкие животные...

Urel:
Скрипт у меня такой же как у тебя, тоже взял из МСДН. Пробывал все что ты говорил. Не дает переименовывать. Решил пойти через нетдом, но для этого надо вкл службу фал шеринга на некоторых машинах. А как ты предлагаешь через ГПО вкл эту службу? там нельзя выставить в службах эту службу! или я не нашел.

RussianNeuroMancer:
я так понимаю , что эту штуку надо ставить не все машины и снимать или ставить эту галочку. Это очень неудобно на мой взгляд.

Pser
служба называется server / lanmanserver
в gp comp config - windows settings - security - system services


Добавлено:
PS: скрипт переименования я проверял на свежей вм только заведенной в домен

urel:
Не все так просто. Служба не отключена (галочка снята), а анинсталена (удалена). Поэтому видимо ее сначало необходимо установить.

Pser
ну эт очень странно - только если снесил ветку
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver
альтернативный вариант импорт ветки с рабочей машины =)
svhost уж наверно не анинстален

urel, Не то слово редкие. Я бы сказал одна другой краше. И подход к себе требуют индивидуальный

скажите плиз кто разбирается в VBS как можно определить размер массива в процессе работы скрипта (т.е. в екселе в макросе вызываем инпутбокс и вводим туда число, например 150, так вот нужно что бы далее по программе шло определние массива). Можно ли это как нибудь реализовать?

Pser
RTFM
dim a()
redim a(10)
l = 150
redim preserve a(l)

Добрый День!
Помогите скриптом плиз.
Есть 300 пользователей, есть файлик txt или ексель где они все забиты (OU;Имя пользователя;Логон имя;Пароль;адрес почты).
так вот если ли какой-нибудь скрипт, чтобы он читал мой файлик и добавлял оттуда юзеров.

2kaaaa

Цитата:

Set RootDSE = GetObject("LDAP://RootDSE")
Set DefaultDomain = GetObject("LDAP://" & RootDSE.Get("DefaultNamingContext"))
WScript.Echo DefaultDomain.distinguishedName
WScript.Echo VbCrLf

On Error Resume Next

'----------------------------------------------------------------------------------'
' Text of Program
'----------------------------------------------------------------------------------'
path_file="c:\************************.xls"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open (path_file)_

intRow = 2 ' [b]начальная строчка в excel[b]

Do Until objExcel.Cells(intRow,1).Value = ""
Set objOU = GetObject("LDAP://" & "ou=Test," & RootDSE.Get("DefaultNamingContext"))
Set objUser = objOU.Create _
("User", "cn=" & objExcel.Cells(intRow, ).Value)

objUser.SetPassword "" & objExcel.Cells(intRow, ).Value
objUser.sAMAccountName = objExcel.Cells(intRow, ).Value
'objUser.GivenName = objExcel.Cells(intRow, ).Value
'objUser.SN = objExcel.Cells(intRow, ).Value
objUser.AccountDisabled = False
objUser.SetInfo
intRow = intRow + 1
Loop
objExcel.Quit

Цитата:

objExcel.Cells(intRow, ).Value - Cells (строка, столбец)

параметры которые тебе нужны ищи в msdn - "object user"

Sk1f
Спасибо, попробую.

kaaa, могу доработать до твоих нужд, если что непонятно.

Sk1f
Если не трудно. Буду очень признателен.
С objExcel.Cells(intRow, ).Value разобрался.
Запускаю скрипт, вылетает окно с dc=***,dc=***, затем пустое и все.
Ни ответа ни привета.
туда бы еще добавить: password never expires и было бы здорово.

Еще вот непонятно, что нужно вписывать в эти кавычки:
Do Until objExcel.Cells(intRow,1).Value = ""