גודל חלון נפתח של Internet Explorer

אני מעדיף שחלונות דפדפן Internet Explorer יפתחו תמיד למלוא שטח המסך, במיוחד כאשר אני גולש בנטבוק עם מסך 10".

מאחר שגודל החלון משתנה לעתים, כתבתי תוכנת VBS (קישור להרצה) שמתקנת את החלון למלוא שטח המסך:

strComputer = "."

const HKEY_CURRENT_USER = &H80000001
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")

For Each objItem in colItems
    v = Array(&H2C,&H00,&H00,&H00,&H02,&H00,&H00,&H00,&H03,&H00,&H00,&H00,&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,_
&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,&Hff,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,_
CByte(objItem.ScreenWidth/256),CByte(objItem.ScreenWidth Mod 256),&H00,&H00,_
CByte(objItem.ScreenHeight/256),CByte(objItem.ScreenHeight Mod 256),&H00)
    oReg.SetBinaryValue HKEY_CURRENT_USER,"Software\Microsoft\Internet   Explorer\Main","Window_Placement",v
    MsgBox "Internet Explorer window adjusted to " & objItem.ScreenWidth & "x" & objItem.ScreenHeight
    Exit For
Next