Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 33
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Решил с помощью UserLogon VBS'а и Powershell'a
Удаление через Powershell, копирование файла через VBS

Код: Выделить весь код
powershell.exe Remove-Item "c:\users\Public\Desktop\Торговля.rdp"
Код: Выделить весь код
On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
strAllUsersDesktop = WshShell.SpecialFolders("AllUsersDesktop")
    
set objNetwork = CreateObject("Wscript.Network")
strComputer = lcase(objNetwork.ComputerName)
strUser = lcase(objNetwork.UserName)
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set fso = CreateObject("Scripting.FileSystemObject")
set objSysInfo = WScript.CreateObject("ADSystemInfo") 

'используя ADSI получаем список групп, в которые входит пользователь
ADSpath = "WinNT://" & objNetwork.UserDomain & "/" & objNetwork.UserName
set ADSobj = GetObject(ADSpath)
RDPfile = strDesktop & "\Торговля.rdp"
RDPfileExists = false
for each group in adsobj.groups
 select case group.name
  case "Клиенты 1c"

'Копируем файл
objFSO.CopyFile "\\test.local\SysVol\test.local\Policies\{D71FB3F7-A087-485F-94B8-83E97CA9CDE9}\User\Scripts\Logon\Торговля.rdp", strDesktop & "\"

end select

Next

Set objShell = Nothing
Set objFSO = Nothing
Сделал помесь бульдога с носорогом ))
Может конечно и криво, но работает ))

Отправлено: 17:23, 07-04-2017 | #3