[Kazun]

PowerShell:

Код:

$u = [ADSI]"WinNT://$env:computer/$name"
$u.InvokeSet("MaxDisconnectionTime",1)
$u.SetInfo()

vbscript:

Код:

strAccount = "Пользователь"

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

Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User") 
objUser.MaxDisconnectionTime = 1
objUser.SetInfo

[Skylear]

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

[Skylear]

Ошибка в ps
хочется чтобы все было в одном батнике, сверху ввел имя и пароль - остальное переменными

[Kazun]

Сохранить скрипт C:\Scripts\ms.ps1:

Код:

param($name)
$u = [ADSI]"WinNT://$env:computername/$name"
$u.InvokeSet("MaxDisconnectionTime",1)
$u.SetInfo()

В батник добавить:

Код:

powershell -NoLogo -ExecutionPolicy ByPass -NoProfile -File C:\Scripts\ms.ps1 %name%

[Skylear]

о да! синтаксис для меня не особо знакомый)) но работает!
еще тогда просьба - дабы доработать это все. как снять галочку "Запрашивать разрешение пользователя"

[Kazun]

$u.InvokeSet("EnableRemoteControl",2)

[Skylear]

ОК!!!
В итоге имеем такую картину:
скрипт батника

Код:

set name=User
set pass=Password
set comm="Пользователь"

net user %name% %pass% /add /comment:%comm% /countrycode:0 /expires:never /fullname:"%name%" /passwordchg:no
net localgroup "Пользователи удаленного рабочего стола" %name% /add
wmic path Win32_UserAccount where Name=%name% set PasswordExpires=false


powershell -NoLogo -ExecutionPolicy ByPass -NoProfile -File %SystemDrive%\Users\Администратор\Desktop\ADD\ms.ps1 %name%


cd %SystemDrive%\Users\Администратор\Desktop\ADD
runasusr.exe %name% %pass% "%windir%\system32\explorer.exe"

xcopy "%SystemDrive%\Users\Администратор\Desktop\ADD\1C" "%SystemDrive%\Users\%name%\AppData\Roaming\1C\" /H /Y /C /R /S

утилита runasusr.exe позволяет запустить от имени созданного пользователя эксплорер для создания системой пользовательского каталога и передает пароль, чего не умеет делать runas
далее копируем готовый конфиг 1С с прописанными путями
И в итоге имеем полностью чистого юзера, готового к работе в RemoteAPP с 1С

конфиг скрипта ms.ps1

Код:

param($name)
$u = [ADSI]"WinNT://$env:computername/$name"
$u.InvokeSet("MaxDisconnectionTime",5)
$u.InvokeSet("EnableRemoteControl",2)
$u.SetInfo()

[Skylear]

Kazun, еще вопрос пока не закрыли тему)))
как автоматизировать этот процесс, чтобы создавать несколько пользователей за раз, как указывать? где? через запятую или из файла?
подскажи!


В этом батнике получается нужно указывать переменную с паролем и логином для одного - и все ОК!
вопрос такой в связи с ситуацией:
есть сервер рабочий и нужно создать пользователей с такими параметрами как написано выше в количестве 100 человек и занести их куда нибудь, в csv например и потом из этого же csv их пересоздать на зеркальном сервере (без домена, без всего, просто запасная терминалка). получается держать пользователей в таблице очень удобно и создавать "клонов" на другом сервере. скорее всего же достаточно будет иметь в таблице только указанные в батнике переменные, так как остальные параметры идентичны

[Skylear]

добавил переменную на путь, теперь где бы ни лежали файлы и скрипты - в любой папке (главное чтобы в пути не было кириллицы, иначе ps1 не работает) - запускается создание нового пользователя

Код:

set name=60
set pass=passwords
set comm="Пользователь"

set road=%cd%

net user %name% %pass% /add /comment:%comm% /countrycode:0 /expires:never /fullname:"%name%" /passwordchg:no
net localgroup "Пользователи удаленного рабочего стола" %name% /add
wmic path Win32_UserAccount where Name=%name% set PasswordExpires=false


powershell -NoLogo -ExecutionPolicy ByPass -NoProfile -File %road%\ms.ps1 %name%


cd %road%
runasusr.exe %name% %pass% "%windir%\system32\explorer.exe"

xcopy "%road%\1C" "%SystemDrive%\Users\%name%\AppData\Roaming\1C\" /H /Y /C /R /S

разобрался с путями, надо заключить в кавычки путь до ps1 и тогда что на кириллице что на латинице с пробелами и без путь считывается корректно

Код:

set name=67
set pass=psswords
set comm="Пользователь"

set road=%cd%


net user %name% %pass% /add /comment:%comm% /countrycode:0 /expires:never /fullname:"%name%" /passwordchg:no
net localgroup "Пользователи удаленного рабочего стола" %name% /add
wmic path Win32_UserAccount where Name=%name% set PasswordExpires=false


powershell -NoLogo -ExecutionPolicy ByPass -NoProfile -File "%road%\ms.ps1" %name%


cd %road%
runasusr.exe %name% %pass% "%windir%\system32\explorer.exe"

xcopy "%road%\1C" "%SystemDrive%\Users\%name%\AppData\Roaming\1C\" /H /Y /C /R /S

главное это кавычки "%road%\ms.ps1"