Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set objShell = CreateObject("WScript.Shell")
- Set WshShell = WScript.CreateObject("WScript.Shell")
- Set fso = CreateObject("Scripting.FileSystemObject")
- wscript.sleep 5000
- on error resume next
- URLFilename = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & "\GH_WatchURLsClean.txt"
- Set URLFile = fso.OpenTextFile(URLFilename)
- do while not URLFile.AtEndOfStream
- fName = URLFile.ReadLine()
- set IE = createobject("internetexplorer.application")
- IE.Visible = True
- navflags = 1
- ie.navigate2 fname,navflags
- 'wscript.echo URL
- wscript.sleep 45000
- ie.quit
- loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement