[Iska]

а если известно имя привода (метка), которая всегда одна и та же? »

Запросто (на WSH):

Код:

Option Explicit

Dim objVerb

For Each objVerb In WScript.CreateObject("Shell.Application").NameSpace("D:\").self.Verbs
	If StrComp(objVerb.Name, "&Извлечь", vbTextCompare) = 0 Then
		objVerb.DoIt
	End If
Next

WScript.Quit 0