[Френк]

Здесь есть хорошие специалисты? Кто нибудь осилет мне помочь с такой сложной задачей господа?!

[DJ Mogarych]

Френк, нет здесь хороших специалистов, успокойтесь.
Тем более, кто по первому свистку бежит ваши хотелки реализовывать.

[Iska]

Френк, это плохая идея.

На WSH:

Скрытый текст

Код:

Option Explicit

Dim strComputerName
Dim objIADsContainer
Dim objIADsUser


strComputerName = WScript.CreateObject("WScript.Network").ComputerName

Set objIADsContainer = GetObject("WinNT://" & strComputerName & ",computer")
objIADsContainer.Filter = Array("user")

For Each objIADsUser In objIADsContainer
	WScript.Echo objIADsUser.Name
	
	objIADsUser.SetPassword "12345"
	objIADsUser.SetInfo
Next

Set objIADsContainer = Nothing

WScript.Quit 0

[Френк]

DJ Mogarych »

Почему это сразу по первому свисту? Я со всем должным уважением ко всем коллегам поднимаю данный вопрос!
И надеюсь услышать решение толковое.

Iska, благодарю Вас!!!
Ну кто же если не вы....
Сейчас пойду тестировать данный Вами написанный скрипт и сразу же отпишусь!

Iska , тебе респект!
Я протестировал все работает, как часы!
Единственное не хочу каждый раз нажимать подтверждение на выполнения работы.
Можно их убрать убрать как то?

[Iska]

Единственное не хочу каждый раз нажимать подтверждение на выполнения работы. »

Какое подтверждение?!

[Френк]

Iska, чтобы не нужно было каждый раз нажимать ОК.
Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....
чтобы без уведомлении все ставилось

[Френк]

Iska, чтобы не нужно было каждый раз нажимать ОК.
Когда выполняется процесс скрипта вылазии название учетки. жму ок потом вторая учетка вылазиит название жму ок и т.д....
чтобы без уведомлении все ставилось

[Iska]

Iska, чтобы не нужно было каждый раз нажимать ОК. »

Либо исполняйте под консольной версией — cscript.exe (вместо умолчальной wscript.exe), либо закомментируйте строку:

Код:

	WScript.Echo objIADsUser.Name

апострофом:

Код:

	'WScript.Echo objIADsUser.Name

Либо вообще удалите .

[Френк]

Пожалуй выберу третий вариант

Вопрос решен.
Спасибо Iska.