Start up IE maximized through a vbs file

[r...@rodharrison.com]

I have this written this script to run on XP Pro:
the script is named script.vbs and I call it from a batch file.
**************************************************************************

set Shell = createobject("wscript.shell")
Shell.Run "http://peso.ubalt.edu/portal.html",3
wscript.quit

DIM IE
Set IE = CreateObject("IExplorer.exe")
maxx=screen.availWidth
maxy=screen.availHeight
ie.left=0
ie.top=0
ie.height=maxy
ie.width=maxx
wscript.quit

*************************************************************************

It doesn't always open Internet Explorer as full screen.

I can do batch scripts well but do not really know wsh or vbs well.
Can anyone clean this up for me

[Joey D]

You could do it like this...

set Shell = createobject("wscript.shell")

Shell.Run "iexplore http://www.microsoft.com",3
wscript.quit

The value at the end will allow you to set how to open.

3 = full screen
2 = Minimized
1 = normal

However, you did not say what you wanted in terms of fullscreen, but if
you are looking for a kiosk type mode...

set Shell = createobject("wscript.shell")

Shell.Run "iexplore -k http://www.microsoft.com"
wscript.quit

ALT+F4 will exit you out of kiosk mode.

["Crash" Dummy]

This will work:

'----------Script--------
Set IE = CreateObject("InternetExplorer.Application")
IE.FullScreen=True
IE.visible=True
IE.navigate "http://peso.ubalt.edu/portal.html"
'--------------------------

Use ALT-F4 to exit.

If you want to keep it hidden until the page is loaded, you can rearrange it
thusly:

'----------Script--------
Set IE = CreateObject("InternetExplorer.Application")
IE.FullScreen=True
IE.navigate "http://peso.ubalt.edu/portal.html"

do while IE.ReadyState<4
wscript.sleep 100
loop

IE.visible=True

'--------------------------
--
Crash