CMD/BAT

Iska · Отправлено: **16:13, 09-04-2015** | #2

Купите себе флэшку с защитой от записи.

KaSpieC 666 · Отправлено: **16:34, 09-04-2015** | #3

Iska
Хоть это и не по теме (так как батник нужен), но не могли бы Вы кинуть ссылку на такие флешки (хочеться прицениться)

Iska · Отправлено: **16:54, 09-04-2015** | #4

Цитата KaSpieC 666:

не могли бы Вы кинуть ссылку на такие флешки (хочеться прицениться) »

USB Flash drive - выбор по параметрам на Яндекс.Маркете

KaSpieC 666 · Отправлено: **17:22, 09-04-2015** | #5

Iska,
Хоть там и не было цен, забил в гугл USB Flash drive - довольно ощутимо, по сравнению с простыми...

Iska · Отправлено: **18:27, 09-04-2015** | #6

Цитата KaSpieC 666:

Хоть там и не было цен »

Я вижу цены:

Скрытый текст

Цитата KaSpieC 666:

довольно ощутимо, по сравнению с простыми... »

Тысяча с небольшим за 32 Gb — разве это цена?!

Скрытый текст

KaSpieC 666 · Отправлено: **19:24, 09-04-2015** | #7

Iska,
Я из Украины, может в этом причина, так как цен нету (нет в продаже):

Скрытый текст

А если выставить галочку В продаже:

Скрытый текст

Но не суть... Я поискал по украинским сайтам - в 3 раза дороже, чем такойже фирмы и объема, но без защиты от записи.

Возвращаясь к батнику - и чтобы переименовывать папку нельзя было на NTFS, FAT32, exFat.

Iska · Отправлено: **20:18, 09-04-2015** | #8

KaSpieC 666, ясно. Возможно, поэтому.

Цитата KaSpieC 666:

и чтобы переименовывать папку нельзя было на NTFS, FAT32, exFat. »

Никак. Что можно создать — то можно и переименовать, и удалить.

KaSpieC 666 · Отправлено: **16:24, 10-04-2015** | #9

Iska
Понятно. Ну тогда первоначальную задачу может кто поможет сделать.

Iska · Отправлено: **17:21, 10-04-2015** | #10

На WSH:

Скрытый текст

Код:

Option Explicit

Const ReadOnly = 1
Const Hidden   = 2
Const System   = 4


Dim strDrive

If WScript.Arguments.Count = 1 Then
	strDrive = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .DriveExists(strDrive) Then
			With .CreateFolder(.BuildPath(strDrive, "Autorun.inf"))
				.Attributes = .Attributes Or (ReadOnly + Hidden + System)
			End With
		End If
	End With
End If

WScript.Quit 0

Просто перетаскиваете в Проводнике искомый диск на скрипт.