Checking MY IP using VBScript

bala150985 · 02-10-2010, 04:37 AM

Hi

I have three proxy server's in my environment and I want to check if each of them are able to process traffic which are passing through them.
So I have an internal machine which has a script on it to load [link removed] I want to hit this particular site because the amount of traffic will be very small and it will retrieve my static IP every time I hit that website.
If I am able to see my static IP I intend to keep quiet, if not I will have the script send out an email to me.
Now my doubt is how frequently I can hit the website [link removed] using the script? I am looking at once in every 2 minutes for each of the proxy boxes, which amounts to 15 hits for every 10 minutes. Is this okay?

wimiadmin · 02-10-2010, 06:09 AM

Hi, the site you are hitting is not ours so we can't say what the threshold is for their automation.

Our automation rules are once per every 300 seconds/5 minutes and our automation page is located here:
http://www.whatismyip.com/automation/n09230945.asp

bala150985 · 02-10-2010, 09:53 PM

Thanks Brian

bala150985 · 02-11-2010, 10:37 AM

Hi

I assembled this code with bits and pieces from all over the internet.

Just call a sub program at the point where error occurs, and WOLA you have your very own proxy checking code

On Error Resume Next
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.SetTimeouts 30000,9000,15000,15000
For i = 1 To 3
If i = 1 Then
WinHttpReq.SetProxy 2,"10.0.0.1:8080"
End If
If i = 2 Then
WinHttpReq.SetProxy 2,"10.0.0.2:8080"
End If
If i = 3 Then
WinHttpReq.SetProxy 2,"10.0.0.3:8080"
End If

WinHttpReq.Open "GET", "http://google.com", False
WinHttpReq.SetRequestHeader "Cache-Control", "no-cache"
WinHttpReq.SetRequestHeader "Pragma", "no-cache"
WinHttpReq.Send
If Err.Number = 0 Then
If WinHttpReq.Status = "200" Then
WScript.Echo "Google page worked"
Else
WScript.Echo "HTTP " & WinHttpReq.Status & " " & WinHttpReq.StatusText
End If
Else
WScript.Echo "Error " & " " & Err.Number & " " & Err.Source & " " & Err.Description
End If
Err.Clear
Next

bala150985 · 02-11-2010, 10:42 AM

Ofcourse you have to save that code on a test file an rename the extension to *.vbs

Open a cmd prompt

c:\>cscript <somename>.vbs

02-10-2010, 04:37 AM	#1
bala150985 Member Join Date: Feb 2010 Posts: 4	Checking MY IP using VBScript Hi I have three proxy server's in my environment and I want to check if each of them are able to process traffic which are passing through them. So I have an internal machine which has a script on it to load [link removed] I want to hit this particular site because the amount of traffic will be very small and it will retrieve my static IP every time I hit that website. If I am able to see my static IP I intend to keep quiet, if not I will have the script send out an email to me. Now my doubt is how frequently I can hit the website [link removed] using the script? I am looking at once in every 2 minutes for each of the proxy boxes, which amounts to 15 hits for every 10 minutes. Is this okay? Last edited by wimiadmin; 02-10-2010 at 06:08 AM.

02-10-2010, 06:09 AM	#2
wimiadmin Administrator Join Date: May 2008 Location: Pigeon Forge, TN Posts: 858	Hi, the site you are hitting is not ours so we can't say what the threshold is for their automation. Our automation rules are once per every 300 seconds/5 minutes and our automation page is located here: http://www.whatismyip.com/automation/n09230945.asp __________________ Brian Please Search Before Posting

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

02-10-2010, 09:53 PM	#3
bala150985 Member Join Date: Feb 2010 Posts: 4	Thanks Brian

02-11-2010, 10:37 AM	#4
bala150985 Member Join Date: Feb 2010 Posts: 4	Hi I assembled this code with bits and pieces from all over the internet. Just call a sub program at the point where error occurs, and WOLA you have your very own proxy checking code On Error Resume Next Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") WinHttpReq.SetTimeouts 30000,9000,15000,15000 For i = 1 To 3 If i = 1 Then WinHttpReq.SetProxy 2,"10.0.0.1:8080" End If If i = 2 Then WinHttpReq.SetProxy 2,"10.0.0.2:8080" End If If i = 3 Then WinHttpReq.SetProxy 2,"10.0.0.3:8080" End If WinHttpReq.Open "GET", "http://google.com", False WinHttpReq.SetRequestHeader "Cache-Control", "no-cache" WinHttpReq.SetRequestHeader "Pragma", "no-cache" WinHttpReq.Send If Err.Number = 0 Then If WinHttpReq.Status = "200" Then WScript.Echo "Google page worked" Else WScript.Echo "HTTP " & WinHttpReq.Status & " " & WinHttpReq.StatusText End If Else WScript.Echo "Error " & " " & Err.Number & " " & Err.Source & " " & Err.Description End If Err.Clear Next

02-11-2010, 10:42 AM	#5
bala150985 Member Join Date: Feb 2010 Posts: 4	Ofcourse you have to save that code on a test file an rename the extension to *.vbs Open a cmd prompt c:\>cscript <somename>.vbs