ie = new ActiveXObject("InternetExplorer.Application");

var itm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2").ExecQuery("Select * from Win32_DesktopMonitor");

for (var enm = new Enumerator(itm); !enm.atEnd(); enm.moveNext()) {
  var res = enm.item();
};

// Задаём опции окна IE
ie.left       = res.ScreenWidth/2 - 300;
ie.top        = res.ScreenHeight/2 - 275;
ie.height     = 550;
ie.width      = 600;
ie.menubar    = false;
ie.toolbar    = false;
ie.statusbar  = false;

// Задаем пустую страницу
ie.navigate(url);

// Показывем IE
ie.visible=true;

Set objIE =  WScript.CreateObject("InternetExplorer.Application", "IE_")

'var itm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2").ExecQuery("Select * from Win32_DesktopMonitor");

'for (var enm = new Enumerator(itm); !enm.atEnd(); enm.moveNext()) {
'  var res = enm.item();
'};

' Задаём опции окна IE
'objIE.left       = res.ScreenWidth/2 - 300;
'objIE.top        = res.ScreenHeight/2 - 275;
objIE.Left       = 200
objIE.Top        = 200
objIE.Height     = 550
objIE.Width      = 600

objIE.AddressBar = False
objIE.MenuBar = False
objIE.ToolBar = False
objIE.StatusBar  = False
objIE.RegisterAsBrowser = True

objIE.Navigate url

While objIE.Busy
    Wscript.Sleep 200
Wend

objIE.Visible = 1

While 0=0
    WScript.Sleep 1000
Wend

Sub IE_OnQuit()
    ny = MsgBox("OnQuit event!", 32+4)
	'6 - Да 7 - Нет
	if ny = 6 Then WScript.Quit
End Sub

objIE.Left       = res.ScreenWidth/2 - 300;

Set itm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2").ExecQuery("Select * from Win32_DesktopMonitor")

Dim Z As Variant     'Z is the value to hold the zoom level.
Z = 0
objIE.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z

objIE.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 100, 0

objIE.ExecWB 19, 2, 0, 0

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor", "100000", "REG_SZ"

Set win = CreateObject("window.manager")
win.ActivateWindow objIE.HWND

Set shell = CreateObject("WScript.Shell")

shell.SendKeys "%{TAB}"

'Option Explicit
Declare apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hDC as integer, aRect as Rect)
apiShowWindow IE.hwnd, SW_MAXIMIZE

strProcessToKill = "iexplore.exe"
Set objWMIService = GetObject("winmgmts:" _ 
   & "{impersonationLevel=impersonate}!\\" _ 
   & strComputer _ 
   & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")

RUNDLL32.EXE user32,ShowWindow 458222, 1

'Масштаб на 100%
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor", "100000", "REG_SZ"
sReg = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor")

'Создание объекта IE
Set objIE =  WScript.CreateObject("InternetExplorer.Application", "IE_")

'Определяем разрешение экрана, для центровки окна
Set itm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_DesktopMonitor")
Dim res
For Each res In itm
    Exit For
Next

' Задаём опции окна IE
objIE.Left       = res.ScreenWidth/2 - 300
objIE.Top        = res.ScreenHeight/2 - 275
objIE.Height     = 550
objIE.Width      = 600
objIE.AddressBar = False
objIE.MenuBar = False
objIE.ToolBar = False
objIE.StatusBar  = False
objIE.RegisterAsBrowser = True

'Задаем вэб-приложение
objIE.Navigate url

'Открываем вэб-приложение
objIE.Visible = True

'ФИШКА В ЭТОМ
MsgBox "Загружается..."

'Ждем пока не загрузится приложение
While objIE.Busy
    Wscript.Sleep 200
Wend

While 0=0
    WScript.Sleep 1000
Wend

'=====================================
Sub IE_OnQuit()
	WScript.Quit
End Sub

Set shell = CreateObject("WScript.Shell")
shell.Run "cscript run.vbs", 2

'Пауза что бы успела загрузиться консоль
WScript.Sleep 200

'убиваем процесс консоль cscript.exe
Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess
strComputer = "."
strProcessToKill = "cscript.exe"
Set objWMIService = GetObject("winmgmts:" _ 
   & "{impersonationLevel=impersonate}!\\" _ 
   & strComputer _ 
   & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
   objProcess.Terminate()
Next