VBScript demo of how to check a list of links in a text file

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile("C:\New Folder\ReadList.txt")
Set objFolder = objFSO.GetFolder("C:\New Folder")
Set TextStream200 = objFolder.CreateTextFile("WriteList200.txt")
Set TextStreamN = objFolder.CreateTextFile("WriteListNot200.txt")
On Error Resume Next

Dim arrFileLines()
i = 0
Do Until objReadFile.AtEndOfStream
    Redim Preserve arrFileLines(i)
    arrFileLines(i) = objReadFile.ReadLine
    i = i + 1
Loop
objReadFile.Close

WScript.Echo "Number of links to be checked:"
arrCount = UBound(arrFileLines)+1
WScript.Echo arrCount

Set objhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
For Each strLine in arrFileLines
   WScript.Echo strLine
   objhttp.Open "GET", strLine, False
   objhttp.send ""

   WScript.Echo objhttp.status
   WScript.Echo objhttp.statusText

   If objhttp.status = 200 Then
   TextStream200.WriteLine strLine
   Else
   TextStreamN.WriteLine strLine
   End If
   WScript.Sleep 1250 '1.3 seconds 1300 milli-
Next 'line 22

TextStream200.Close
TextStreamN.Close
WScript.Echo "Number of links checked:"
WScript.Echo arrCount