Batch mit Text und Datum in txt-Datei und IE-Aufruf mit mehreren Fenstern

Option Explicit

Const sPath = "H:\"             'Pfad der Textdatei (H:\Username.txt)  

Const iTaskHeight = 60          'Höhe der Taskleiste  

Const sURL1 = "about:blank"     'URLs anpassen   
Const sURL2 = "about:blank"  
Const sURL3 = "about:blank"  
Const sURL4 = "about:blank"  

Dim sUsername, iWidth, iHeight
    
'Benutzername ermitteln  
sUsername = CreateObject("WScript.Network").UserName  

'Textdatei erzeugen  
With CreateObject("Scripting.FileSystemObject")  
    .CreateTextFile(sPath & sUsername & ".txt").WriteLine sUsername & ", " & Now  
End With

'Auflösung (Breite/Höhe) ermitteln  
With CreateObject("InternetExplorer.Application")  
    .FullScreen = True
     iWidth = .Width / 2
     iHeight = (.Height - iTaskHeight) / 2
    .Quit
End With
    
'IE-Fenster 1 - oben, links  
With CreateObject("InternetExplorer.Application")  
    .Top = 0
    .Left = 0
    .Height = iHeight
    .Width = iWidth
    .Visible = True
    .Navigate sURL1
End With
    
'IE-Fenster 2 - oben, rechts  
With CreateObject("InternetExplorer.Application")  
    .Top = 0
    .Left = iWidth + 1
    .Height = iHeight
    .Width = iWidth
    .Visible = True
    .Navigate sURL2
End With
    
'IE-Fenster 3 - unten, links  
With CreateObject("InternetExplorer.Application")  
    .Top = iHeight + 1
    .Left = 0
    .Height = iHeight
    .Width = iWidth
    .Visible = True
    .Navigate sURL3
End With

'IE-Fenster 4 - unten, rechts  
With CreateObject("InternetExplorer.Application")  
    .Top = iHeight + 1
    .Left = iWidth + 1
    .Height = iHeight
    .Width = iWidth
    .Visible = True
    .Navigate sURL4
End With