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

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

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

< Предыдущая 1 2
Ответить
Настройки темы
VBS/WSH/JS - [решено] vbs на заменение двух файлов

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


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

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

Изменения
Автор: Gisender
Дата: 13-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"),         "Local State"), _
		Array(.BuildPath(strLocalAppDataPath, "Google\Chrome\User Data\Default"), "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), .BuildPath(arrItem(0), arrItem(1)), 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
'=============================================================================
Как сделать так что бы можно было указать откуда брать заменяемые файлы,что бы не из папки с vbs файлов, а к примеру local state и perferens были по пути %localappdata%\Google\Chrome\User Data\Default\Extensions\Chrome Temp\Preferences
%localappdata%\Google\Chrome\User Data\Default\Extensions\Chrome Temp\Local State и он их от туда брал и заменял
Автор Iska

Отправлено: 20:02, 13-09-2014

 

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


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

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

Цитата Iska:
Не знаю, про какой браузер речь, но, поскольку у Вас теперь в «arrPaths» полные пути, то, соответственно и в: »
о хроме,вы же сами мне этот wsf сделали

Все равно ошибку выбивает

Отправлено: 16:27, 15-09-2014 | #11



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

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


Ветеран


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

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

Цитата Gisender:
о хроме, »
Дошло наконец.

Цитата Gisender:
Все равно ошибку выбивает »
Какую? Покажите (нажмите «Ctrl-C» в окне об ошибке и вставьте сюда).

Отправлено: 16:53, 15-09-2014 | #12


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


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

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

теперь правда пишет "разрешение отклонено" где ошибка

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

Отправлено: 16:55, 15-09-2014 | #13


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


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

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

Дак что в чем проблема? что вправить

Отправлено: 18:42, 15-09-2014 | #14


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


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

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

ап тему
Iska у вас всегда лс забито?

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

Отправлено: 10:13, 16-09-2014 | #15


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


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

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

Не вылет ошибка только в том случае если .CopyFile arrItem(1), arrItem(1), True ,за то на деле файлы не заменяются

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


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


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

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

ап тему

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

< Предыдущая 1 2


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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] VBS-перемещение файлов. AlexVert Скриптовые языки администрирования Windows 2 25-01-2013 12:24
VBS/WSH/JS - нужен vbs скрипт для отпраки файлов на mail exekill Скриптовые языки администрирования Windows 0 18-04-2012 16:28
VBS/WSH/JS - Помогите редактировать Autorun_Disable.vbs на Autorun_Enable.vbs nod201 Скриптовые языки администрирования Windows 0 05-12-2009 05:44
VBS/WSH/JS - [решено] VBS/WSH. Сортировка файлов по дате. rancid Скриптовые языки администрирования Windows 3 23-07-2009 06:38
CMD/BAT - +VBS: копирование файлов с сервера в папку установки проги la_vanille_ciel Скриптовые языки администрирования Windows 27 09-04-2008 11:53


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


 
Переход