[Iska]

Bruce Wayne, в рамках заявленной категории — никак. В рамках скриптовых языков — отчасти (в Vista и выше бывают проблемы с перечислением окон Проводника):

Код:

Option Explicit

With WScript.CreateObject("Shell.Application").Windows
	If .Count > 0 Then
		WScript.Echo .Item().Document.Folder.Self.Path
	Else
		WScript.Echo "Nothing found"
	End If
End With

WScript.Quit 0

Автор идеи «Shell.Windows.Item()» — wisgest (WSH: пункт «Найти объект» в контекстном меню ярлыков в Проводнике (Страница 1) — Windows Script Host, HTA (VBScript, JScript) — Серый форум).