Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Поиск, удаление, а затем копирование файла для группы пользователей

Ответить
Настройки темы
VBS/WSH/JS - Поиск, удаление, а затем копирование файла для группы пользователей

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


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

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


Приветствую всех!
Есть задача. Нужно сделать скрипт, который бы удалял определенные файлы у всех пользователей, а затем копировал бы файлы пользователям определенной группы безопасности.

Я вижу начало как-то так:

Код: Выделить весь код
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" не удаляется
Еще не могу понять, как мне продолжить скрипт и копировать файл "buh8.rdp" только определенной группе домена, например "пользователи 1с"
В скриптах не силен, так что сильно не пинайте.
Заранее всем спасибо.

Отправлено: 12:06, 07-04-2017

 

Ветеран


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

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


Цитата lcnet:
Отрабатывает без ошибок, »
Угу, угу, без ошибок:
Цитата:
C:\Мои проекты\0060\0002.vbs(8, 1) Ошибка компиляции Microsoft vbscript: Предполагается наличие инструкции


Используйте предпочтения групповых политик для распространения buh8.rdp.

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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


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


Сообщения: 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


Ветеран


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

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


Цитата lcnet:
поскольку придется выносить группу безопасности отдельно »
Зачем? Фильтрация для чего дана?!

Отправлено: 00:22, 08-04-2017 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Поиск, удаление, а затем копирование файла для группы пользователей

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - Определение 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




 
Переход