Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Visted Domains Comments
- yahoo.com
- google.com
- hotmail.com
- $ExcelObject = New-Object -comobject Excel.Application
- $ExcelObject.Visible = $true
- $ExcelObject.DisplayAlerts = $False
- $excelFile = "C:UsersmuafzalDocumentsFilesEMIEAnalyzinglist.xlsx"
- $Workbook = $ExcelObject.workbooks.open($excelFile)
- $Sheet = $Workbook.Worksheets.Item(1)
- $row = [int]2
- $domain = @() # beginnt bei 2,1... 3,1... 4,1
- Do {
- $domain += $Sheet.Cells.Item($row,2).Text ; $row = $row + [int]1
- } until (!$Sheet.Cells.Item($row,1).Text)
- ForEach($url in $domain){
- #Start IE and make it visible
- $ie = new-object -com "InternetExplorer.Application"
- $ie.Visible = $true
- #Navigate to the URL
- $ie.Navigate($url)
- # Output URL that have been visited to a text file.
- $url | Out-File $done -Append
- #Sleep while IE is running
- while($ie.visible){
- start-sleep -s 1
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement