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