Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

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

Ответить
Настройки темы
VBS/WSH/JS - Проблема со скриптом очистки обменной папки

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


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

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

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

При выполнении скрипта Windows Script Host выдает ошибку:
>Строка: 19
>Символ: 3
>Ошибка: Файл уже существует
>Код: 800A003A

Помогите разобраться в чем проблема. Как заставить FSO перезаписывать папки. Да и непонятно почему идет перезапись, если в скрипте удаляются папки и файлы (FSO.DeleteFolder // FSO.DeleteFile) в каталоге Exchange.

Собственно сам скрипт:

Код: Выделить весь код
Dim FSO 
 Dim CMDName,DirName 
 Dim strFolderName 
 Dim strFullFolderName 
 Dim PatchF,PatchA 
 Dim objADsSecurity 
 Dim objSecurityDescriptor 
 Dim cmd 
 PatchF ="F:\Exchange" 
 set WshShell = WScript.CreateObject("WScript.Shell") 
 Set objGroup    = GetObject("LDAP://cn=ExchangeUsers,OU=XXX,OU=XXX,OU=XXX,dc=domain,dc=ru") 
 Set FSO = CreateObject("Scripting.FileSystemObject") 
 set cmd = WScript.CreateObject("WScript.Shell") 
 FSO.DeleteFolder FSO.BuildPath(PatchF, "*.*"), True 
 FSO.DeleteFile FSO.BuildPath(PatchF, "*.*"), True 
 for each objMember in objGroup.Members 
   DirName = (objMember.sn+" "+objMember.givenName) 
   FSO.CreateFolder FSO.BuildPath (PatchF,DirName) 
   PatchA = FSO.BuildPath (PatchF,DirName) 
   CMDName = "CSCRIPT.EXE F:\script\XCACLS.VBS " & chr(34) & PatchA & chr(34) & " /g " & "domain\" & objMember.sAMAccountName & ":f " & chr(34) & "domain\Администраторы домена" & chr(34) & ":f " & chr(34) & "domain\Пользователи домена" & chr(34) & ":l " & chr(34) & "domain\Пользователи домена" & chr(34) & ":w >>1.log"  
 next 
 Wscript.Echo ("Done !!!")

Отправлено: 23:04, 30-07-2012

 

Ветеран


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

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

Проще проверить существование:
Код: Выделить весь код
   strFolder = FSO.BuildPath(PatchF,DirName)
   
   If Not FSO.FolderExists(strFolder) Then
      FSO.CreateFolder strFolder
   End If

Отправлено: 01:31, 31-07-2012 | #2



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

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



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - запуск скрипта очистки папки в заданное время noob88 Скриптовые языки администрирования Windows 3 03-04-2012 13:32
PowerShell - [Решено]Автоматизация очистки папки от мусора gleban666 Скриптовые языки администрирования Windows 4 09-11-2011 20:37
CMD/BAT - [решено] Дополнить батник для очистки папки aggressor_ Скриптовые языки администрирования Windows 14 06-02-2011 02:38
VBS/WSH/JS - [решено] Скрипт очистки папки обмена stolyar Скриптовые языки администрирования Windows 9 15-02-2010 08:44
Вывод размера папки в отдельный файл скриптом Whiteee Microsoft Windows NT/2000/2003 1 16-07-2008 14:06


« Предыдущая тема | Следующая тема »


 
Переход