Advertisement
Guest User

VBScript

a guest
Sep 22nd, 2015
176
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set objShell = CreateObject("WScript.Shell")
  2. Set WshShell = WScript.CreateObject("WScript.Shell")
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4.  
  5. wscript.sleep 5000
  6.  
  7. on error resume next
  8.  
  9. URLFilename = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & "\GH_WatchURLsClean.txt"
  10.  
  11. Set URLFile = fso.OpenTextFile(URLFilename)
  12.  
  13. do while not URLFile.AtEndOfStream
  14. fName = URLFile.ReadLine()
  15.  
  16. set IE = createobject("internetexplorer.application")
  17. IE.Visible = True
  18. navflags = 1
  19.  
  20. ie.navigate2 fname,navflags
  21.  
  22. 'wscript.echo URL
  23.  
  24. wscript.sleep 45000
  25.  
  26. ie.quit
  27.  
  28. loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement