[Iska]

Только в случае запуска скрипта из открытого окна Проводника:

Код:

Option Explicit

Dim objFolderViewMode


Set objFolderViewMode = WScript.CreateObject("Scripting.Dictionary")

With objFolderViewMode
	.Add 1, "Icon"
	.Add 2, "Small Icon"
	.Add 3, "List"
	.Add 4, "Details"
	.Add 5, "Thumbnail"
	.Add 6, "Tile"
	.Add 7, "Thumbstrip"
	.Add 8, "Content"
End With

With WScript.CreateObject("Shell.Application")
	With .Windows.Item()
		If TypeName(.Document) = "IShellFolderViewDual2" Then
			With .Document
				WScript.Echo .Folder.self.Path, objFolderViewMode.Item(CInt(.CurrentViewMode))
			End With
		End If
	End With
End With

objFolderViewMode.RemoveAll
Set objFolderViewMode = Nothing

WScript.Quit 0