Серый форум — VBScript: Копирование файла с неизвестной буквой диска

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Fedor) — Mon, 03 Sep 2012 11:21:40 +0000

Serge Yolkin пишет:

3. Метка тома == серийный номер ?

на мой взгляд не совсем удобно, метка тома отображается в проводнике и её без проблем может изменить простой юзер.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (SNR93) — Sun, 02 Sep 2012 11:43:50 +0000

smaharbA пишет:

%~dp0 ни как ?

1) Надо на vbs а не на bat.
2) Писалось выше что это не подходит, но я уже все сделал, спасибо всем что отписались

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (smaharbA) — Sun, 02 Sep 2012 11:41:13 +0000

%~dp0 ни как ?

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (SNR93) — Sat, 01 Sep 2012 07:09:55 +0000

Fedor пишет:

SNR93 хотелось бы получить некоторые уточнения:
1. Компьютеры связаны локальной сетью? Если да, то можно не морочиться с флешкой, а просто по сети собрать все файлы на комп админа (достаточно cmd).
2. Что будет делать Ваш скрипт если в компьютер вставят, например, 2 флешки?
3. В Вашем скрипте нет механизма определения "нужной" флешки.
Чисто академически: используя WMI можно определить не только букву на которую подключилась флешка, но и параметры самой флешки, например, серийный номер оной (готовый способ определить "нужную" флешку). Опять же есть механизм сохранить процедуру идентификации "нужной" флешки и сам скрипт копирования файла в реестре системы что безопаснее хранения скрипта на диске компа, мало того нет необходимости в бесконечном цикле, поскольку система сама стартанет скрипт по событию подключения флешки (это не ауторан с флешки, а описание админом действий самой системы по её подключению). Можно реализовать запрет на использование левых флешек на компах конторы (проверяем серийный номер - если не наша флешка, то сразу же её отключаем или в более мягком варианте натравливаем на неё антивирь, буква уже есть, а авторан еще не работает). Для работы с WMI Microsoft выпустил утилитку scriptomatic, занятная штука позволяет сгенерить практически готовый скрипт. Очень мощное средство администрирования (и хакинга), как говорится: "Гугл тебе в помощь"

Скрипт еще не допилен, нет, эти компы не соединены, если вставится 2 флэшки, то скрипт определит, если на флэшке есть нужный файл идентификации, то начнет копировать, если нет, то забьет на нее.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (dab00) — Sat, 01 Sep 2012 06:43:47 +0000

На мой взгляд:


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
Next

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Serge Yolkin) — Fri, 31 Aug 2012 18:51:30 +0000

Fedor
3. Метка тома == серийный номер ?

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (im2002) — Fri, 31 Aug 2012 18:40:06 +0000

маленький кусок определит букву подключённой флешки, конечно, если флешка одна, а не много...
далее можно копировать, тем более, что исходное положение файла на компе, как я понял известно...
правда кусок на JS, но для знающих людей переложить на VBs минутное дело

var 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);
        }
    }

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Fedor) — Fri, 31 Aug 2012 16:51:05 +0000

Поразмыслил над проблемой идентификации флешки. Видится 2 варианта:
1. Серийный номер нужной флешки забитый в скрипте, недостаток - если поменяетя флешка, придётся модифицировать скрипт (а флешек у админа может быть много)
2. Скрытый файл на флешке с определенным содержимым, например, каким-то образом перекрученный серийный номер самой флешки. Даст возможность скрипту идентифицировать нужную флешку, но простое копирование его на другую флешку не сделает её доверенной. Недостаток то же есть - после форматирования флешки главное не забыть сделать её доверенной.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Jurii) — Thu, 30 Aug 2012 10:14:29 +0000

Fedor пишет:

2. Что будет делать Ваш скрипт если в компьютер вставят, например, 2 флешки?

Автору можно немного подправить для поиска определённого файла или каталога на этом носителе, чтобы однозначно идентифицировать свою флэшку.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Fedor) — Mon, 27 Aug 2012 22:08:50 +0000

SNR93 хотелось бы получить некоторые уточнения:
1. Компьютеры связаны локальной сетью? Если да, то можно не морочиться с флешкой, а просто по сети собрать все файлы на комп админа (достаточно cmd).
2. Что будет делать Ваш скрипт если в компьютер вставят, например, 2 флешки?
3. В Вашем скрипте нет механизма определения "нужной" флешки.

Чисто академически: используя WMI можно определить не только букву на которую подключилась флешка, но и параметры самой флешки, например, серийный номер оной (готовый способ определить "нужную" флешку). Опять же есть механизм сохранить процедуру идентификации "нужной" флешки и сам скрипт копирования файла в реестре системы что безопаснее хранения скрипта на диске компа, мало того нет необходимости в бесконечном цикле, поскольку система сама стартанет скрипт по событию подключения флешки (это не ауторан с флешки, а описание админом действий самой системы по её подключению). Можно реализовать запрет на использование левых флешек на компах конторы (проверяем серийный номер - если не наша флешка, то сразу же её отключаем или в более мягком варианте натравливаем на неё антивирь, буква уже есть, а авторан еще не работает). Для работы с WMI Microsoft выпустил утилитку scriptomatic, занятная штука позволяет сгенерить практически готовый скрипт. Очень мощное средство администрирования (и хакинга), как говорится: "Гугл тебе в помощь"

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (smaharbA) — Mon, 27 Aug 2012 18:01:14 +0000

в сабже как то ни странно - копихере
ааа - не прав, копифайл, был не внимая

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (Flasher) — Sat, 25 Aug 2012 20:50:45 +0000

SNR93
Бесконечный цикл, да ещё и Drv.IsReady.. Вы систему не боитесь травмировать?
А по поводу вашей проблемы всё просто: переведите переменную объекта коллекции Drives в строковый подтип данных через CStr, Trim и т.п.

smaharbA
Тут не CopyHere, и объект тут FSO, а не Shell.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (smaharbA) — Fri, 24 Aug 2012 16:49:43 +0000

Копихере имеет только два параметра, Вам второй не нужен ибо Вам его не возможно применить
Вам нужен только объект, который описывает назначение" и файл источника - все

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (SNR93) — Fri, 24 Aug 2012 16:42:33 +0000

Один я не понимаю что тут происходит, давайте заново, без постов выше(кроме основного). Мне нужно поправить скрипт. Код выше, работает все, кроме того, что я не могу сделать путь правильно. Нужная папка на флэшке есть, файл есть на компе. Проблема в том что не известна буква usb-накопителя, поэтому пришлось через vbs скрипт определять букву флэшки, скрипт ее определяет, и делает это правильно, теперь внимание! Нужно из допустим

kopirovaniefaila.CopyFile "C:\FSO\ScriptLog.txt" , "F:\Archive\", OverwriteExisting, где F буква usb флэшки сделать

kopirovaniefaila.CopyFile "C:\FSO\ScriptLog.txt" , Drive + ":\Archive\", OverwriteExisting, где Drive - переменная в которой хранится буква usb - флэшки! Так как сделал я не работает! Нужно сделать рабочий вариант.

Re: VBScript: Копирование файла с неизвестной буквой диска

null@example.com (alexii) — Fri, 24 Aug 2012 16:01:49 +0000

Можно использовать и USBDeview.