Воскресенье, 24.09.2017
Уголок эникейщика
Меню сайта
Категории раздела
[13]
Windows (2000+)/общее [89]
Windows (ME-) [6]
Программы [69]
Mobile [2]
Скрипты [26]
Hard [7]
Android [5]
Советы от Влада [7]
Избранное

Рахни православні

Погода в Виннице
Сайт Экслера

Форум Ru.Board
CWER.ru

Hot Line - Цены
Яндекс.Маркет

Форум rutracker.org

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Скрипты

Копирование папки на флешку при ее подключении
ArcFolder = "D:\Arhiv\Backup"

Sub SINK_OnObjectReady(objReceivedEvent, objAsyncContext)
 Set WshShell = Wscript.CreateObject("Wscript.Shell")
 FlashName = objReceivedEvent.TargetInstance.Name
 CmdStro = "xcopy " + ArcFolder + " " + FlashName + "\Backup\ /D /E /Y"
 WshShell.Run CmdStro, 1
End Sub

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set MySink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")

objWMIservice.ExecNotificationQueryAsync MySink, "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_LogicalDisk' AND TargetInstance.DriveType = 2"

While (True)
 Wscript.Sleep(1000)
Wend


Источник: http://samag.ru/archive/article/634
Категория: Скрипты | Добавил: IgorDanyK (08.12.2015)
Просмотров: 183 | Рейтинг: 0.0/0
Облако тегов
сайт программы Статьи личное разочарования Windows 1c антивирус политика почитать рекомендую Prices math ссылки english скрипты total сеть VBS
Поиск
Google

WWW на сайте
Copyright IgorDanyK © 2017
Создать бесплатный сайт с uCoz