|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Поиск, удаление, а затем копирование файла для группы пользователей |
|
VBS/WSH/JS - Поиск, удаление, а затем копирование файла для группы пользователей
|
Новый участник Сообщения: 33 |
Приветствую всех!
Есть задача. Нужно сделать скрипт, который бы удалял определенные файлы у всех пользователей, а затем копировал бы файлы пользователям определенной группы безопасности. Я вижу начало как-то так: Dim FSO Set objFSO = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") strAllUsersDesktop = WshShell.SpecialFolders("AllUsersDesktop") 'Если файл существует, Удаляем его IF objFSO.FileExists(strDesktop & "buh8.rdp") Then File.Delete strDesktop & "\" End If Set objShell = Nothing Set objFSO = Nothing Еще не могу понять, как мне продолжить скрипт и копировать файл "buh8.rdp" только определенной группе домена, например "пользователи 1с" В скриптах не силен, так что сильно не пинайте. Заранее всем спасибо. |
|
Отправлено: 12:06, 07-04-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата lcnet:
Цитата:
Используйте предпочтения групповых политик для распространения buh8.rdp. |
||
Отправлено: 12:17, 07-04-2017 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 33
|
Профиль | Отправить PM | Цитировать Это слишком просто...
А если честно, то не вариант, поскольку придется выносить группу безопасности отдельно, а на ней уже много чего завязано и переписывать кучу уже имеющихся скриптов не хочется. Решил с помощью UserLogon VBS'а и Powershell'a Удаление через Powershell, копирование файла через VBS 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 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата lcnet:
|
|
Отправлено: 00:22, 08-04-2017 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - Определение hostname, поиск, копирование файла | KillHunter | Скриптовые языки администрирования Windows | 2 | 13-02-2015 06:59 | |
VBS/WSH/JS - Поиск и удаление папки у пользователей | Aventer | Скриптовые языки администрирования Windows | 5 | 24-02-2014 16:59 | |
CMD/BAT - [решено] Удаление файлов нулевого размера, а затем удаление пустых каталогов | ilyadud | Скриптовые языки администрирования Windows | 5 | 25-08-2012 10:57 | |
Любой язык - [решено] Удаление пользователей с группы Администраторы | Keeper2006 | Скриптовые языки администрирования Windows | 4 | 02-02-2010 16:54 | |
Разное - [решено] Удаление пользователей из Группы Пользователи | рэмбо | Microsoft Windows 2000/XP | 5 | 16-12-2008 20:34 |
|