3. Метка тома == серийный номер ?
на мой взгляд не совсем удобно, метка тома отображается в проводнике и её без проблем может изменить простой юзер.
]]>%~dp0 ни как ?
1) Надо на vbs а не на bat.
2) Писалось выше что это не подходит, но я уже все сделал, спасибо всем что отписались
SNR93 хотелось бы получить некоторые уточнения:
1. Компьютеры связаны локальной сетью? Если да, то можно не морочиться с флешкой, а просто по сети собрать все файлы на комп админа (достаточно cmd).
2. Что будет делать Ваш скрипт если в компьютер вставят, например, 2 флешки?
3. В Вашем скрипте нет механизма определения "нужной" флешки.Чисто академически: используя WMI можно определить не только букву на которую подключилась флешка, но и параметры самой флешки, например, серийный номер оной (готовый способ определить "нужную" флешку). Опять же есть механизм сохранить процедуру идентификации "нужной" флешки и сам скрипт копирования файла в реестре системы что безопаснее хранения скрипта на диске компа, мало того нет необходимости в бесконечном цикле, поскольку система сама стартанет скрипт по событию подключения флешки (это не ауторан с флешки, а описание админом действий самой системы по её подключению). Можно реализовать запрет на использование левых флешек на компах конторы (проверяем серийный номер - если не наша флешка, то сразу же её отключаем или в более мягком варианте натравливаем на неё антивирь, буква уже есть, а авторан еще не работает). Для работы с WMI Microsoft выпустил утилитку scriptomatic, занятная штука позволяет сгенерить практически готовый скрипт. Очень мощное средство администрирования (и хакинга), как говорится: "Гугл тебе в помощь"
Скрипт еще не допилен, нет, эти компы не соединены, если вставится 2 флэшки, то скрипт определит, если на флэшке есть нужный файл идентификации, то начнет копировать, если нет, то забьет на нее.
]]>
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
For Each wmiDiskDrive In objWMI.ExecQuery("SELECT * FROM Win32_DiskDrive")
If wmiDiskDrive.InterfaceType = "USB" Then
With wmiDiskDrive
s = Left(Mid(.PNPDeviceID, InStrRev(.PNPDeviceID, "\") + 1), _
InStrRev(Mid(.PNPDeviceID, InStrRev(.PNPDeviceID, "\") + 1), "&") - 1)
End With
'проверяем серийник
If s = Серийник_Целевой_Флешки Then
For Each wmiDiskPartition In objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" _
& wmiDiskDrive.DeviceID & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
For Each wmiLogicalDisk In objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" _
& wmiDiskPartition.DeviceID & "'} WHERE AssocClass = Win32_LogicalDiskToPartition")
MsgBox "Серийный номер диска: " & s & vbCrLf & "Буква диска: " & wmiLogicalDisk.DeviceID
Next
Next
End If
End If
Nextvar fsoObj = WScript.CreateObject("Scripting.FileSystemObject");
drvColl = fsoObj.Drives;
coll = new Enumerator(drvColl);
for(coll.moveFirst(); !coll.atEnd(); coll.moveNext())
{
i = coll.item();
if(i.DriveType == 1)
{
WScript.Echo("Буква флешки = " + i.DriveLetter);
}
}2. Что будет делать Ваш скрипт если в компьютер вставят, например, 2 флешки?
Автору можно немного подправить для поиска определённого файла или каталога на этом носителе, чтобы однозначно идентифицировать свою флэшку.
]]>Чисто академически: используя WMI можно определить не только букву на которую подключилась флешка, но и параметры самой флешки, например, серийный номер оной (готовый способ определить "нужную" флешку). Опять же есть механизм сохранить процедуру идентификации "нужной" флешки и сам скрипт копирования файла в реестре системы что безопаснее хранения скрипта на диске компа, мало того нет необходимости в бесконечном цикле, поскольку система сама стартанет скрипт по событию подключения флешки (это не ауторан с флешки, а описание админом действий самой системы по её подключению). Можно реализовать запрет на использование левых флешек на компах конторы (проверяем серийный номер - если не наша флешка, то сразу же её отключаем или в более мягком варианте натравливаем на неё антивирь, буква уже есть, а авторан еще не работает). Для работы с WMI Microsoft выпустил утилитку scriptomatic, занятная штука позволяет сгенерить практически готовый скрипт. Очень мощное средство администрирования (и хакинга), как говорится: "Гугл тебе в помощь"
]]>
smaharbA
Тут не CopyHere, и объект тут FSO, а не Shell.
kopirovaniefaila.CopyFile "C:\FSO\ScriptLog.txt" , "F:\Archive\", OverwriteExisting, где F буква usb флэшки сделать
kopirovaniefaila.CopyFile "C:\FSO\ScriptLog.txt" , Drive + ":\Archive\", OverwriteExisting, где Drive - переменная в которой хранится буква usb - флэшки! Так как сделал я не работает! Нужно сделать рабочий вариант.
]]>