Мой пример - скрипт scanNet.vbs в теме -- VBScript / WMI : Асинхронный мультипинг

Здравствуйте! Заранее хочу сказать спасибо за то что ответили.
Решил затестить скрипт scannet.vbs..... В функции Function CreateWindow(content,features,x,y,width,height) ругается на For Each ShellWindow in ShellWindows: form_id = Clng(ShellWindow.id)..... Объект не поддерживает это свойство или метод 'ShellWindow.id'....
Не могли бы Вы посодействовать в устранении ошибки. Скрипт, для меня, кажется шибко мудреным. Сам его не пережую.....
Уж очень хочу посмотреть на работу scanNet.vbs.....

В примере выше, пароль и юзер, указан явно, можно конечно inputbox задействовать. Но inputbox для имени еще можно смело использовать, а вот ввод пароля хотелось бы "защитить" от сторонних глаз. Нет ли у кого вариантов с защищенным вводом пароля (hta, иль еще как нибудь)

Я как-то воспользовался примером Xameleon из темы JScript: Создание окна, а также трансляция WScript в HTA для создания в vbs-скрипте окна для ввода/редактирования сразу нескольких параметров, мне там маскировать вводимое значение необходимости не было, но это легко добавить - "<input type=password ....>". Мой пример - скрипт scanNet.vbs в теме -- VBScript / WMI : Асинхронный мультипинг

Не знаю эту тему продолжить или же новую открыть, но вопрос следующий. В примере выше, пароль и юзер, указан явно, можно конечно inputbox задействовать. Но inputbox для имени еще можно смело использовать, а вот ввод пароля хотелось бы "защитить" от сторонних глаз. Нет ли у кого вариантов с защищенным вводом пароля (hta, иль еще как нибудь)

Как оказалось "а ларчик просто открывался....". OpenDSObject, как оказалось, с WinNT тож работает.....
Вот такой код вполне меня устроил:

Dim strGroup, strComputer, strDomain, strAdminName, strAdminPass
Dim objSWbemLocator, objSWbemServicesEx, objSWbemObjectEx
Dim objIADsGroup_Local, objIADsGroup_Global

Const ADS_SECURE_AUTHENTICATION = &H0001
'Const ADS_SERVER_BIND = &H0200

strGroup = "bla-bla-bla"

strComputer = "."
strDomain = "testDomain"

'Тут, лучше всего юзать inputbox
strAdminName = "Admin"
strAdminPass = "password"

Set objSWbemLocator     = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx  = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set objSWbemObjectEx    = objSWbemServicesEx.Get("Win32_SID='S-1-5-32-544'")

Set objIADsGroup_Local  = GetObject("WinNT://" & strComputer & "/" & objSWbemObjectEx.AccountName & ",group")
Set objIADsGroup_Global = GetObject("WinNT:").OpenDSObject("WinNT://" & strDomain & "/" & strGroup & ",group", strAdminName, strAdminPass, ADS_SECURE_AUTHENTICATION)

If Not objIADsGroup_Local.IsMember(objIADsGroup_Global.ADsPath) Then _
    objIADsGroup_Local.Add objIADsGroup_Global.ADsPath

Set objIADsGroup_Global = Nothing
Set objIADsGroup_Local  = Nothing

Set objSWbemObjectEx    = Nothing
Set objSWbemServicesEx  = Nothing
Set objSWbemLocator     = Nothing

Всем спасибо!

Подружить можно. Только нужно имена преобразовывать из одного стандарта в другой.

Может попытаться на AutoIt скрипт работы с GUI попробовать сваять - но это будет какое-то извращение.

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

TAOSoft пишет:

.ConnectServer() - Это про что? Если про WbemScripting.SWbemLocator, то он вообще при работе с группами не участвует.....

Таки да - это я был не прав.

А до добавления в лок.группу старт скрипта от имени доменной учетки, например, через psExec.exe - тоже безуспешен?

Имеет ли смысл запускать скрипт от какой либо записи домена, не имеющей прав на локальном компе? Ведь по задаче мне и надо "наделить" доменную уз пользователя/группы домена правами на лок машине, а если таких прав нет, то от кого будем psExec.exe запускать?

.ConnectServer() - Это про что? Если про WbemScripting.SWbemLocator, то он вообще при работе с группами не участвует.....

Таки да - это я был не прав.

А до добавления в лок.группу старт скрипта от имени доменной учетки, например, через psExec.exe - тоже безуспешен?

Может попытаться на AutoIt скрипт работы с GUI попробовать сваять - но это будет какое-то извращение.

Т.е. действие авторизуется этой доменной у/з.
В команде ".ConnectServer()" можно по идее третьим параметром указать имя своего доменного пользователя, а четвертым параметром - явно указать его пароль (есть смысл, конечно, не явно "забить" в код, а предварительно запрашивать через InputBox() ) - таким образом подключение и дальнейшие действия уже будут от имени Вашей доменной учетки.

.ConnectServer() - Это про что? Если про WbemScripting.SWbemLocator, то он вообще при работе с группами не участвует..... Поясните плиз, что вы подразумевали....

Народ предлагайте. Любые варианты рассмотрю, проверю, поправлю под себя....

Не используется доменная учётную запись по причине того что я не совсем "полноценный администратор" (нет права testDomain\Domain Administrators), мне лишь на уровне домена доступна определенная OU, в которой я "царь и бог". Группу из доступной OU я и хочу прописать в лок группу, пользователем которой и будет проводиться дальнейшая настройка.

По корпоративным порядкам права админа домена мне ни кто НЕ ДАСТ. У нас очень сложная структура домена. У каждого города свой OU (+ свой "Администратор") в AD.

Вот я и интересуюсь возможностью автоматизации действия (руками то это же действие я делаю без каких либо помех) при выполнении определенных условий/ограничений.

PS:

Я и думал как то "подружить" двух этих зверей на предмет авторизации в домене, но увы...

"Ручками", как я упомянул ранее, все ок.
Т.е. Мой компьютер - Управление - Локальные пользователи - Группы - Администраторы. Добавить - ввожу testDomain\WSAdmins - запрашивает доменного пользователя обладающего правами в домене testDomain (указываю testDomain\testAdm) - проверить имя - Ок
Далее вход в систему можно делать под testDomain\testAdm с админскими правами на этом ПК.

Т.е. действие авторизуется этой доменной у/з.
В команде ".ConnectServer()" можно по идее третьим параметром указать имя своего доменного пользователя, а четвертым параметром - явно указать его пароль (есть смысл, конечно, не явно "забить" в код, а предварительно запрашивать через InputBox() ) - таким образом подключение и дальнейшие действия уже будут от имени Вашей доменной учетки.

3 - ВОТ ТУТ Я И ЗАСТРЯЛ. Добавить доменную группу (WSAdmins) в лок админы.

Исполняя приведённый выше скрипт под доменным пользователем, входящем в группу Domain Administrators и, соответственно, имеющем административные полномочия как в домене, так и на локальной машине (поскольку при выполнении п.2 группа Domain Administrators включается в локальную группу Administrators), Вы получаете те условия, в которых я исполнял вышеприведённый скрипт у себя. Разумеется, после п.2 нужна перезагрузка машины.

Я не пойму, почему Вы не хотите сделать это под доменным администратором?

Делаю сетевую установку винды (что и как не про этот форум).
После установки запускается скрипт который:
1 - тестирует имя ПК на предмет "шаблона". При необходимости правит как надо...
2 - заводит комп в домен.
3 - ВОТ ТУТ Я И ЗАСТРЯЛ. Добавить доменную группу (WSAdmins) в лок админы.
4 - под доменным пользователем (из группы WSAdmins) делаю необходимые настройки ПК.

Не используется доменная учётную запись по причине того что я не совсем "полноценный администратор" (нет права testDomain\Domain Admins),
мне лишь на уровне домена доступна определенная OU, в которой я "царь и бог". Группу из доступной OU я и хочу прописать в лок группу,
пользователем которой и будет проводиться дальнейшая настройка.

"Ручками", как я упомянул ранее, все ок.
Т.е. Мой компьютер - Управление - Локальные пользователи - Группы - Администраторы. Добавить - ввожу testDomain\WSAdmins - запрашивает доменного пользователя обладающего правами в домене testDomain (указываю testDomain\testAdm) - проверить имя - Ок
Далее вход в систему можно делать под testDomain\testAdm с админскими правами на этом ПК.

У меня в «strGroup» — «bla-bla-bla». А у Вас? По описанию — должно быть «WSAdmins». Кроме того, раз Вы исполняете скрипт под локальным пользователем, вместо «WScript.CreateObject("WScript.Network").UserDomain» указывайте «testDomain». Ну, и надо смотреть, может ли локальный администратор сие проделать вообще. Вы пробовали «ручками», работает?