[Iska]

Код:

Option Explicit

Dim objWebBrowser

With WScript.CreateObject("Shell.Application")
	.MinimizeAll
	WScript.Sleep 500
	
	.Explore "c:\"
	.Explore "d:\"
	WScript.Sleep 500
	
	.TileVertically
	WScript.Sleep 500
	
	For Each objWebBrowser In .Windows
		If StrComp(objWebBrowser.FullName, "C:\WINDOWS\Explorer.EXE", vbTextCompare) = 0 Then
			Select Case LCase(objWebBrowser.document.Folder.self.Path)
				Case "c:\", "d:\"
					objWebBrowser.Height = objWebBrowser.Height / 2
			End Select
		End If
	Next
End With

WScript.Quit 0

Если не успевает отрабатывать — увеличьте время задержек в «WScript.Sleep».

[teapot08]

спасибо.
всё работает как надо.