Dim command_line_args 
Set command_line_args = Wscript.Arguments
page = command_line_args.Item(0)
Set MyShell = CreateObject("Wscript.Shell")
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Toolbar=0
.Navigate page
.Visible=true
.FullScreen=true
End With
Set MyShell = CreateObject("Wscript.Shell")
Set ObjShell = WScript.CreateObject("WScript.Shell")
objShell.AppActivate("Internet Explorer")
'objShell.Sendkeys "% x"