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

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

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

Ответить
Настройки темы
VBS/WSH/JS - Ошибка "Разрешение отклонено"

Пользователь


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

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

Изменения
Автор: Gisender
Дата: 17-09-2014
Код: Выделить весь код
Option Explicit

Dim strProcessName
Dim arrPaths

Dim strLocalAppDataPath
Dim arrItem

Dim objSWbemServicesEx


strProcessName = "chrome.exe"

strLocalAppDataPath = WScript.CreateObject("Shell.Application").NameSpace("shell:Local AppData").self.Path

With WScript.CreateObject("Scripting.FileSystemObject")
	arrPaths = Array( _ 
		Array(.BuildPath(strLocalAppDataPath, "Google\Chrome\User Data"), .BuildPath(strLocalAppDataPath, "Google\Chrome\User Data\Default\Extensions\Chrome Temp\Local State")), _
		Array(.BuildPath(strLocalAppDataPath, "Google\Chrome\User Data\Default"), .BuildPath(strLocalAppDataPath, "Google\Chrome\User Data\Default\Extensions\Chrome Temp\Preferences")) _
	)
	
	For Each arrItem In arrPaths
		If Not .FileExists(arrItem(1)) Then
			WScript.Echo "Source file [" & arrItem(1) & "] not found."
			WScript.Quit 1
		End If
		
		If Not .FolderExists(arrItem(0)) Then
			WScript.Echo "Destination folder [" & arrItem(0) & "] not found."
			WScript.Quit 2
		End If
	Next
	
	Set objSWbemServicesEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	
	Do
		WaitForCloseAllProcesses
		
		For Each arrItem In arrPaths
			.CopyFile arrItem(1), arrItem(0), True
		Next
		
		WaitForStartAnyProcess
	Loop
	
	Set objSWbemServicesEx = Nothing
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub WaitForCloseAllProcesses()
	Do Until objSWbemServicesEx.ExecQuery( _
		"SELECT * FROM Win32_Process WHERE Name = '" & strProcessName & "'" _
	).Count = 0
		objSWbemServicesEx.ExecNotificationQuery( _
			"SELECT * FROM __InstanceDeletionEvent " & _
			"WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND " & _
			"TargetInstance.Name = '" & strProcessName & "'" _
		).NextEvent
	Loop
End Sub
'=============================================================================

'=============================================================================
Sub WaitForStartAnyProcess()
	objSWbemServicesEx.ExecNotificationQuery( _
		"SELECT * FROM __InstanceCreationEvent " & _
		"WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND " & _
		"TargetInstance.Name = '" & strProcessName & "'" _
	).NextEvent
End Sub
'=============================================================================
При запуске выбивает ошибку "разрешение отклонено",я так понял это происходит когда сценарий доходит до фазы копирования,ибо сам скрипт заменяет 2 файла при закрытии программы,при этом если программа открыта и его запустить все нормально,как только она закрывается вылетает ошибка,помогите вправить.

Отправлено: 16:00, 17-09-2014

 

Ветеран


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

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

Gisender, нет смысла дублировать темы. Равно как и «Up'ать» тему чаще, чем раз в три дня. Или бомбить личку. Наберитесь терпения.

Отправлено: 16:54, 17-09-2014 | #2



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

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


Пользователь


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

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

Я ту как бы отметил помеченной (решенной),просто 3 день жду((
Личку не бомбил

Последний раз редактировалось Gisender, 17-09-2014 в 17:13.

Отправлено: 16:59, 17-09-2014 | #3


Ветеран


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

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

Цитата Gisender:
Личку не бомбил »
И слава богу (но посылали). Она помимо Вас уже забомблена одним очень нетерпеливым и агрессивным товарисчем. До сих пор отвращает лезть разбирать.

Отправлено: 19:46, 17-09-2014 | #4


Пользователь


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

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

Цитата Iska:
Личку не бомбил »
И слава богу (но посылали). Она помимо Вас уже забомблена одним очень нетерпеливым и агрессивным товарисчем. До сих пор отвращает лезть разбирать. »
1 сообщение послал
Дак вы мне можете помочь? пробовал через кмд с правами администратора запустить не вышло.,понятия не имею что делать,билд патч местами менял и тд не чего не выходит

Отправлено: 20:04, 17-09-2014 | #5


Ветеран


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

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

Gisender, мне нужно время и свежая голова.

Отправлено: 20:07, 17-09-2014 | #6


Пользователь


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

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

Цитата Iska:
Gisender, мне нужно время и свежая голова. »
Буду ждать

Отправлено: 20:44, 17-09-2014 | #7


Пользователь


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

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

Ап тему

Отправлено: 16:29, 22-09-2014 | #8



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Уменьшается разрешение дисплея при инициализации режима "Клон". Ser6720 Microsoft Windows Vista 8 19-01-2011 16:08
[решено] ошибка при отображении "свойства системы"-"общие" Dz_mikael Проект WinStyle 5 28-07-2009 20:46
разрешение отклонено vrogin Microsoft Windows 2000/XP 2 29-09-2006 14:23
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") submaster Microsoft Windows NT/2000/2003 5 13-09-2006 12:29
Код 800А0046. Разрешение отклонено Alex3 Microsoft Windows NT/2000/2003 8 06-11-2005 23:13


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


 
Переход