Single Run User Notice Using VB Script – Internet Explorer Output

Option Explicit

'Delivery - run only if text file is not present

DIM fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("N:\RedirectedProfileFolders\surveymonkey.txt")) Then

 WScript.Quit()

Else

'Payload - open url and create blank text file used by delivery section of script

dim wShell:Set wShell=CreateObject("WScript.Shell")
dim i
i=wShell.Run("iexplore.exe O:\Students\surveys\surveymonkey_students.url",1,False)
Set wShell=Nothing

Dim successful_run
Set successful_run = fso.CreateTextFile("N:\RedirectedProfileFolders\surveymonkey.txt",True)

End if
 WScript.Quit()