Полезные скрипты , WSH (js, vbs) + WMI

Цитата shur_a1981 @ 27.03.08, 09:16

Какие службы на удаленном компьютере должны быть запущены чтобы функция 'GetObject("winmgmts:".......' работала?

Служба "Инструментарий управления Windows".
Однако причиной такой ошибки может быть ещё и некорректная работа DNS-сервера. В качестве проверки этого предположения предлагаю заменить DNS-имена на IP-адреса.

Сообщение отредактировано: Dmitrii - 28.03.08, 05:12

День добрый всем!

Такое дело: имеются работающие скрипты (все из "MS Script Center Ver 3.0") для изменения на компах ДНС-сервера (чтобы позднее ввести их в новый домен), вывода из старого домена, ввода в новый домен.

Вопрос 1: Как запустить эти три скрипта с одной машины на всех других не копируя вручную скрипты на компы, и не запуская их по очереди вручную же?

Вопрос 2: Может быть есть способ не перегружать машине между скриптами вывода из домена - и ввода в новый домен (другие скрипты?)?

Вопрос 3: "strComputer" - параметр в скриптах для подключения к удаленным компьютерам использует только имена? (у меня по IP не заработали скрипты).

Здравствуйте!
я новичок на этом форуме, меня зовут Сергей.
я далеко не профи, обучаюсь потихоньку.
вот одна из проблемок, с которой столкнулся.
Необходимо ввести в домен Win2003 несколько компьютеров, компов около 50, хотелось бы свести к минимуму затраченное на это время.
Вижу себе это с помощью скрипта, который планируется запустить на машине, который бы автоматически ввел ее в домен.
Умные книжки предлагают это сделать все в слудеющем виде (недостатки очевидны, необлходимо вводить имя компа для каждого, а нужно чтобы он брал эту инфу сам, т.е. результат такой д.б., запускаем скрипт на любом компе, подлюченном к локалке, после отработки скрипта он в домене, ребутаем и все. учетки польхзователей уже созданы, т.е. регить их не нужно):

'Этот код присоединяет компьютер к домену.
'Работает только под Windows XP, 2003.
 
'------КОНФИГУРАЦИЯ СЦЕНАРИЯ------
strComputer      = "<comp_1>"
strDomain        = "<domain_name>"
strDomainUser    = "<Administrator>"
strDomainPasswd  = "<admin_password>"
strLocalUser     = "<local_user_name>"
strLocalPasswd   = "<local_user_password>"
'------КОНЕЦ КОНФИГУРАЦИИ------
'########################
'Константы
'########################
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOIND = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
 
'########################
'Подключение к компьютеру
'########################
set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
objWMILocator.Security_.AuthenticationLevel = 6
set objWMIComputer = objWMILocator.ConnectServer(strComputer, _
                                                    "root\cimv2", _
                                                        strLocalUser, _
                                                        strLocalPasswd)
set objWMIComputerSystem = objWMIComputer.Get( _
                                       "Win32_ComputerSystem.Name='" & _
                                       strComputer & "'")
'###############################
'Подключение компьютера к домену
'###############################
rc = objWMIComputerSystem.JoinDomainOrWorkGroup(strDomain, _
                                                         strDomainPasswd, _
                                                         strDomainUser, _
                                                         vbNullString, _
                                                         JOIN_DOMAIN)
if rc <> 0 then
   WScript.Echo "Join failed with error: " & rc
else
   WScript.Echo "Successfully joined " & strComputer & " to " & strDomain
end if

Доброе время суток!

Подскажите, как задать сетевому адаптеру 2-а IP адреса?
Есть список из двух адресов, задаётся только один.

какая операционка?

Цитата se_ma @ 29.05.08, 05:41

Подскажите, как задать сетевому адаптеру 2-а IP адреса?

Воспользоваться поиском или хотя бы дочитать первую страницу этой темы , где в 3-м посте есть решение.

А как скриптом просканировать все вложенные папки и вытащить у них информацию "security"?

Цитата Ixtiander @ 31.05.08, 06:09

и вытащить у них информацию "security"?

Посмотрите сообщение #21, сценарий Check_File_SecuritySetting, этой темы.

Цитата Ixtiander @ 31.05.08, 06:09

просканировать все вложенные папки

Используйте рекурсию.

Цитата Dmitrii @ 02.06.08, 03:51

Цитата Ixtiander @ 31.05.08, 06:09

и вытащить у них информацию "security"?

Посмотрите сообщение #21, сценарий Check_File_SecuritySetting, этой темы.

Не работает под Win 2003 server

Цитата Ixtiander @ 02.06.08, 05:22

Не работает под Win 2003 server

Этот сценарий использовался под Windows Server 2003 неоднократно.
В чём именно выражается его неработоспособность в Вашем случае?

line 36
char 1
error not found
code 80041002
source SwbemServicesEx

Цитата Ixtiander @ 02.06.08, 08:36

line 36
char 1
error not found
code 80041002
source SwbemServicesEx

Причина - на диске С: отсутствует папка Temp.

Так. Заработало, но пишет

Запись DACL для заданного пользователя не обнаружена.

Ixtiander, обратите внимание на то, что этот пример предназначен для чтения той части содержимого дескриптора безопасности, которая касается ТЕКУЩЕГО пользователя. Чтобы изменить эту ситуацию в качестве значения переменной usrName задайте имя нужного пользователя.

kuhnsn, в какой умной книжке ты читал про этот скрипт. Просто попробовал попользоваться им, но вылетает ошибка "Не доступен сервер RPC" в строке

set objWMIComputer = objWMILocator.ConnectServer(strComputer, _
                                                    "root\cimv2", _
                                                        strLocalUser, _
                                                        strLocalPasswd)

непонятен параметр "root\cimv2" , может еще кто подскажет в чем проблема

система ХР
домен Win2003

Добавлено 11.06.08, 05:30
еще заметил такую закономерность, эта ошибка возникает во всех скриптах где указан этот параметр для разных методов