Изменить рабочую группу.

[Морфий]

Как программно вписать новое название рабочей группы, в которую входит локальный комп?

[deepslam]

Бу... может открыть окно изменение имени комьютера и туда в текстбокс свои данные вбить?
как думаешь?

[Морфий]

не. не прокатит. надо, чтобы прога сама все записывала, а то юзер там понапишет, в этом окне =))

[deepslam]

не. не прокатит. надо, чтобы прога сама все записывала, а то юзер там понапишет, в этом окне =))

Да не ты не понял, в общем программно открываешь окно, ищешь hwnd текстбокса с названием и прогаммно его изменяешь и нажимаешь ok

[Морфий]

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

[deepslam]

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

[Морфий]

Вот что я нашел тут http://www.codenet.ru/progr/vbasic/domains.php:

Код: Выделить всё

Private Sub Form_Load()
Dim domain As IADsDomain 'Объявляем переменную типа домена
Dim grp As IADsGroup 'Объявляем переменную типа группа

Set domain = GetObject("WinNT://Test") ' Получаем объект домена Test
Set grp = domain.Create("group", "TestGroup") 'Создаем новую группу пользователей
grp.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP ' Устанавливаем свойство типа группы.
grp.Put "Description", "Группа для примера работы с доменом" ' Пишем описание группы
grp.SetInfo ' Вот тут вылетает, говорит, мол неизвестная ошибка во время выполнения программы.
End Sub

Что делать-то Уже вторую неделю пытаюсь понять, как ети рабочие группы создавать

[Морфий]

Помогите, пожалста, уже неделю не могу сделать ничего с етой рабочей группой блин , а мне бы надо уже покончить с ней

[Sebas]

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = "FABRIKAM"
strPassword = "ls4k5ywA"
strUser = "shenalan"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, _
strDomain & "\" & strUser, _
NULL, _
JOIN_DOMAIN + ACCT_CREATE)


это в домен, попробуй переделать под группу

[Морфий]

Если тебе не влом, напиши код для workgroup, у меня этот код определяет имя компа, а домен не прописывает. И в MSDN про JoinDomainOrWorkGroup написано как то слишком поверхостно.

[Морфий]

Как же все-таки изменить имя рабочей группы

[Konst_One]

Код: Выделить всё

NET LOCALGROUP mygroup /ADD

[Морфий]

Код: Выделить всё

NET LOCALGROUP mygroup /ADD

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

[Konst_One]

а понятия ИЗМЕНИТЬ - нет в природе,
есть только Удалить и Добавить

[Морфий]

Ладно. Мне надо удалить старую сетевую рабочую группу, а потом добавить новую на локальный комп.
Лучше б скали как это сделать, чем философстовать про понятия в природе.

[Konst_One]

читай описание команды NET

[Морфий]

Специально для тех, кто придирается к понятиям:

Надо создать эффект точно такой же, если бы я вписал в отмеченное текстовое поле новое имя рабочей группы и нажал кнопку «ОК»

[Konst_One]

Examples
To display a list of all the local groups on the local server, type:

Код: Выделить всё

net localgroup

To add a local group called Exec to the local user accounts database, type:

Код: Выделить всё

net localgroup exec /add

To add a local group called Exec to the domain user accounts database, type:

Код: Выделить всё

net localgroup exec /add /domain

To add the existing user accounts stevev, ralphr (from the Sales domain), and jennyt to the Exec local group on the local computer, type:

Код: Выделить всё

net localgroup exec stevev sales\ralphr jennyt /add

To add the existing user accounts stevev, ralphr, and jennyt to the Exec group of a domain, type:

Код: Выделить всё

net localgroup exec stevev ralphr jennyt /add /domain

To display users in the Exec local group, type:

Код: Выделить всё

net localgroup exec

To add a comment to the Exec local group record, type:

Код: Выделить всё

net localgroup exec /comment:"The executive staff."

[/code]

[Konst_One]

никто и не придирался - тебе сразу ответ написали, просто ты его не понял

[Морфий]

Examples
To display a list of all the local groups on the local server, type:...

Примеры
Чтобы вывести список всех локальных групп на локальном сервере, введите:...

Это локальные группы на локальном компе.
А мне нужны сетевые группы.

[Ennor]

Учитывая твой скриншот, Sebas прав, посоветовав тебе вот этот метод, а вот Konst_One явно понял тебя неправильно.

[Морфий]

Ну так вот этот метод и не работает у меня:

Код: Выделить всё

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = "HOME"
strPassword = "pass"
strUser = "user"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Debug.Print strComputer 'Выводит имя локального компа

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

returnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, _
strDomain & "\" & strUser, _
Null, _
JOIN_DOMAIN + ACCT_CREATE)

Debug.Print returnValue 'Выводит 1355


[Sebas]

Неужели в течении 2(!) меяцев нельзя догадаться убрать параметр
JOIN_DOMAIN

?!?!?!?

[Морфий]

Да, точняк, ты прав =)))
В течение 2 месяцев я этим не занимался, если бы занимался, может быть и догадался