[Iska]

1. Букву диска можно не указывать? А просто прописать именно имя-метку привода? »

Нет, нельзя не указывать.

Если речь про «Label», то потребуется расширить код таким образом:

Код:

Option Explicit

Dim strLabel

Dim objDrive
Dim objVerb


strLabel = "My Disk"

For Each objDrive In WScript.CreateObject("Scripting.FileSystemObject").Drives
	If StrComp(objDrive.VolumeName, strLabel, vbTextCompare) = 0 Then
		For Each objVerb In WScript.CreateObject("Shell.Application").NameSpace(objDrive.RootFolder.Path).self.Verbs
			If StrComp(objVerb.Name, "&Извлечь", vbTextCompare) = 0 Then
				objVerb.DoIt
			End If
		Next
	End If
Next

WScript.Quit 0

2. Этот вот WSH, его как сохранить, в каком формате (расширение файла какое)? Потом просто его в автозагрузку кинуть и он будет работать или надо какие-то еще действия делать? »

Сохранить в файл с расширением «.vbs», поместить в любое место, поместить ярлык на него в папку «Автозагрузка» личного Главного меню, либо указать путь к файлу в реестре в любом из мест автозагрузки.