VBScript to check Web Proxy

' This piece of code will check to see if it is able to access the Google's page via the four proxies listed.  It doesn't matter if it is accessible
' or not it will log an entry into the file C:\WebPage.txt. For this to happen all For loop should be changed from For i = 1 to 4 from present value.
' Apart from logging into the file C:\WebPage.txt it is simultaneously populating all the array's defined.
'
'We are then creating a file called as Proxy.txt on the Desktop give proper path for this file Proxy.txt, and populating all the values which we 
'acquired above.  Then we run a for loop one last time to check to see if any value of arrArray is above Zero.  If it is present then it means to say
'that some proxy was not able to process the http traffic and sent out an e-mail.
On Error Resume Next        'This line is used to make sure that we don't exit out on errors.
Set fso = CreateObject("Scripting.FileSystemObject")    'We are creating a File System Object.
Set objLOG = fso.OpenTextFile("C:\WebPage.txt",8,True)    'We are creating a logfile called Webpage.txt, 8 stands for appending, True means create the file if it is not present already
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")   'Here we are creating an object for HTTP
WinHttpReq.SetTimeouts 30000,9000,15000,15000     '30Sec for DNS Time out, 9 Sec for ConnectTimeout, 15 Sec for SendTimeout, 15 Sec for ReceiveTimeout.
Dim arrArray(3)         'This array holds just the index number of proxies which are being checked.
Dim ErrStatus(3)        'This array prints ErrStatus in the mail.
Dim ErrStatusText(3)        'This array prints ErrStatusText in the mail.
Dim ErrNumber(3)        'This array prints ErrNumber in the mail.
Dim ErrSource(3)        'This array prints ErrSource in the mail.
Dim ErrDescription(3)        'This array prints ErrDescription in the mail e.g. Operation Timed out.
j=0          'This value of J is going to Flip Flop so that all the array value will either have Zero or some good value
For i = 1 To 4         'The For loop is for looping through the number of proxy to be checked.
   If i = 1 Then
 WinHttpReq.SetProxy 2,"10.0.0.1:8080"     'This is the FIRST HTTP proxy which we will be checking, number 2 is to set the proxy as the next value.
   End If
   If i = 2 Then
 WinHttpReq.SetProxy 2,"10.0.0.2:8080"     'This is the SECOND HTTP proxy which we will be checking
   End If
   If i = 3 Then
 WinHttpReq.SetProxy 2,"10.0.0.3:8080"     'This is the THIRD HTTP proxy which we will be checking
   End If
   If i = 4 Then 
 WinHttpReq.SetProxy 2,"10.0.0.4:8080"     'This is the Fourth HTTP proxy which we will be checking
   End If
 WinHttpReq.Open "GET", "http://google.com", False   'Here we are trying to load the Google Page, False=Opens the HTTP connection in Synchronous mode.
 WinHttpReq.SetRequestHeader "Cache-Control", "no-cache"   'This is here not to load any cached page or something.
 WinHttpReq.SetRequestHeader "Pragma", "no-cache"   'This is here not to load any cached page or something.
 WinHttpReq.Send        'Here we are sending all the defined parameter to the proxy.
    If Err.Number = 0 Then      'Here we are checking to see if the Err.Number is ZERO.
  If WinHttpReq.Status = "200" Then    'Here we are checking to see that the Status is 200, which means to say that the page loaded properly.
     ErrStatus(i-1) = WinHttpReq.Status    'Here we are populating the ErrStatus when web-page loads properly will be 0.
     ErrStatusText(i-1) = WinHttpReq.StatusText   'We are populating the ErrStatusText when web-page loads properly will be 0.
     objLOG.WriteLine Now & ":- Google Accessible via the Proxy"  'We are logging to the file WebPage.txt
  Else
     j = 1       'The Value of J is Flipped.
     ErrStatus(i-1) = WinHttpReq.Status    'We are fillup up ErrStatus array with the error status.
     ErrStatusText(i-1) = WinHttpReq.StatusText   'Same as above 
     objLOG.WriteLine Now & ":- Google NOT ACCESSIBLE via the Proxy with ErrNumber = 0" 'We are logging to the file WebPage.txt
  End If
    Else
  j = 1        'The Value of J is Flipped.
  ErrNumber(i-1) = Err.Number     'ErrArray is populated.
  ErrSource(i-1) = Err.Source     'ErrSource is populated.
  ErrDescription(i-1) = Err.Description    'ErrDescription is populated. 
  ErrStatus(i-1) = 0      'ErrStatus is populated here.
  ErrStatusText(i-1) = 0      'ErrStatusText is populated here.
  objLOG.WriteLine Now & ":- Google NOT ACCESSIBLE via the Proxy" 'We are logging to the file WebPage.txt
    End If
   
  If j = 1 Then
     arrArray(i-1) = i      'Here element values of arrArray is populated to a value greater than zero i.e. equal to i.
  Else
     arrArray(i-1) = 0      'Here element values of arrArray is populated to Zero if proxy for this loop works.
     ErrNumber(i-1) = 0      'When no Error occurs ErrNumber is given a value of Zero.
     ErrSource(i-1) = 0      'When no Error occurs ErrSource is given a value of Zero.
     ErrDescription(i-1) = 0      'When no Error occurs ErrDescription is given a value of Zero.
  End If 
     j = 0       'The Value of J is flipped back to Zero for second Proxy checking.
  Err.Clear       'Here we are resetting the Error back to Zero.
Next          'Here we are going to increase the value of I by one and check for the second proxy.
objLOG.Close
Set objOutputFile = fso.OpenTextFile("C:\Proxy.txt",2,True)   'Here we are creating a text file called Proxy.txt, in Write Mode and creating it if it is not there already.
objOutputFile.WriteLine("CODE RED, CODE RED, CODE RED !!!!!!!")  
objOutputFile.WriteLine("Time: "&  Now)      'We are adding in the Time Stamp
objOutputFile.Writeline("============================")
For i = 1 To 4         'In this For loop we will populate with all our findings.
  If i = 1 Then
    objOutputFile.WriteLine("Proxy 1 = 10.0.0.1:8080")
  End If
  If i = 2 Then
    objOutputFile.WriteLine("Proxy 2 = 10.0.0.2:8080")
  End If
  If i = 3 Then
    objOutputFile.WriteLine("Proxy 3 = 10.0.0.3:8080")
  End If
  If i = 4 Then
    objOutputFile.WriteLine("Proxy 4 = 10.0.0.4:8080")
  End If
objOutputFile.WriteLine("Err Http Status is = " & ErrStatus(i-1))
objOutputFile.WriteLine("Err StatusText is = " & ErrStatusText(i-1))
objOutputFile.WriteLine("Err Number is = " & ErrNumber(i-1))
objOutputFile.WriteLine("Err Source is = " & ErrSource(i-1))
objOutputFile.WriteLine("Err Description is = " & ErrDescription(i-1))
 If ErrDescription(i-1) = 0 Then
  objOutputFile.Writeline(" ")
 End If
Next
objOutputFile.Close        'Here we are closing the file to be opened up in READ MODE.

j=0          'Here we are initilizing the value of J to Zero.
For i = 1 To 4
 If 0 < arrArray(i-1) Then      'If any one of the proxies failed one of the elements of arrArray will have a positive value.
  j = 1        'Here we flip the value of J to 1
 End If
Next
If j = 1 Then         'Here we are sending the email.
 Set objInputFile = fso.OpenTextFile("C:\Proxy.txt",1,True)  'Here we are opening the Proxy.txt in Read Only mode.
  Set objEmail = CreateObject("CDO.Message")   'Here we are creating the Mail Object.
   objEmail.From = "HTTPTest@somedomain.com"  'All others are self explainatory
   objEmail.To = "mssbusybee@somedomain.com"
   objEmail.Subject = "vbs bounce"
   objEmail.Textbody = objInputFile.ReadAll  'I am reading out all that is on the text file Proxy.txt as the body of the email.
   objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MAIL Server IP"
   objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
   objEmail.Configuration.Fields.Update
   objEmail.Send
 objInputFile.Close
End If