kazavo4ka
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
А может быть кому-нибудь данный скрипт поможет
On Error Resume Next
Dim target
Dim grin
Dim gradd
Set fs=WScript.CreateObject("Scripting.FileSystemObject")
target=InputBox("Задайте имя домена","Ввод домена","<Введите имя домена ЗДЕСЬ>")
grin=InputBox("Задайте имя группы, В КОТОРУЮ вы хотите добавить другую группу","ЗАДАНИЕ ГРУППЫ","<Введите имя группы ЗДЕСЬ>")
gradd=InputBox("Задайте имя группы, КОТОРУЮ вы хотите добавить в другую группу","ЗАДАНИЕ ГРУППЫ","<Введите имя группы ЗДЕСЬ>")
Set domain=GetObject("WinNT://"&target)
domain.Filter = Array("Computer")
Set groupadd=GetObject("WinNT://" & target & "/" & gradd & ",group")
Set f=fs.OpenTextFile("ALL Computers.txt",2,True)
For Each Computer In Domain
f.WriteLine Computer.Name
Next
f.Close
Set f=fs.OpenTextFile("All Computers done.txt",2,True)
err.clear
For Each Computer In Domain
if Computer.Name = "MRI2-000" then
Set groupin = GetObject("WinNT://" & target & "/" & Computer.Name & "/" & grin & ",group")
groupin.Add(groupadd.ADsPath)
If Err.Number <> 0 Then
MsgBox "При попытке исполнить команду на компьютере "&Computer.Name&"Произошла ошибка. Возможно компьютер выключен или находиться вне зоны действия сети."&Chr(13)&"Номер и описание ошибки:"&Chr(13)&Err.Number&" "&Err.Description,16,"Произошла ошибка!"
f.WriteLine "ERROR " & Err.Description &" "&Computer.Name
err.clear
else
f.WriteLine Computer.Name
End If
end if
Next
f.Close
MsgBox "Задача выполнена! Смотри файлы All Computers done.txt и ALL Computers.txt для проверки",0+64, "Завершение работы"
сохранить в vbs, а дальше скрипт сам запросит домен, группу доменную, и в какую локальную группу добавлять.
|
