User Notice Using VB Script – Internet Explorer Output

Option Explicit
DIM fso
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("\\FILE_SERVER\NOTICE$\live.url")) Then

dim wShell:Set wShell=CreateObject("WScript.Shell")
dim i
i=wShell.Run("iexplore.exe \\FILE_SERVER\NOTICE$\live.url",1,False)
Set wShell=Nothing

Else
 WScript.Quit()
End if
 WScript.Quit()