Used Ping
how can I PING for a fixed time to a web site?
we are usually can use many options while we are using ping command, such as -t for continuous pinging, -n for number of ping request to send, -l for mentioning ping request size etc. But what I need is that I would like to ping to a web site for 20 or 30 minutes. How can i do that from a xp machine?
Dim strHost, nDelay, strLogFile, nThreshold
' EDIT THESE VARIABLES TO SUIT YOUR APPLICATION
strHost = "www.google.com" ' What do you want to ping
nDelay = 1 ' How many seconds to pause between pings
strLogFile = "C:\\ping.txt" ' Full Name and Path of logfile
nThreshold = 10 ' Anything response over this (in ms) will be flagged as "Slow"
Dim txtLogLine, objPing, objRetStatus, rc
rc = LogLine(strLogFile,"================================================================================")
rc = LogLine(strLogFile,FormatDateTime(Now(),0) & ": PINGING HOST: [" & strHost & "]")
rc = LogLine(strLogFile,"================================================================================")
Do While True
txtLogLine = ""
txtLogLine = txtLogLine & FormatDateTime(Now(),0) & ": "
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strHost & "'")
For each objRetStatus in objPing
If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
Ping = False
txtLogLine = txtLogLine & "Ping Failed"
Else
Ping = True
txtLogLine = txtLogLine & "Reply from " & objRetStatus.ProtocolAddress & ": "
txtLogLine = txtLogLine & "bytes=" & objRetStatus.BufferSize & " "
txtLogLine = txtLogLine & "time=" & objRetStatus.ResponseTime & "ms "
txtLogLine = txtLogLine & "TTL=" & objRetStatus.ResponseTimeToLive
If objRetStatus.ResponseTime >= nThreshold Then
txtLogLine = txtLogLine & " SLOW"
End If
End If
Next
WScript.Echo txtLogLine
rc = LogLine(strLogFile, txtLogLine)
WScript.Sleep nDelay * 1000
Loop
Function LogLine(strFile, strLine)
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile,8,True)
objFile.WriteLine(strLine)
objFile.Close
End Function
copy all the above thing and paste it in a notepad.
save that file as ping.vbs and change the "save as type" to "all files"
now right click the saved file and click on "open in command prompt"
it will store a log file in C drive as ping.txt with time..
i'm sorry..
i don have time to tune this for time limit as i'm very busy here...
Used Zildjian 22" A Ping Ride Cymbal 011509K
 |
 PING G20 DRIVER 105 ALDILA NVS STIFF 45 USED 2 RDS SAVE BIG  US $195.00
|
 Used Ping Sedona Putter US $19.95
|
 Ping Golf G15 Draw 3 wood 155 Regular Flex Right Hand USED US $99.99
|
 Ping G10 Fairway 4 Wood Golf Club 17 Regular flex mens used US $32.00
|
 Ping Golf G15 23 Hybrid Stiff Flex Right Hand USED US $79.99
|
 Ping Anser 6 milled putter barely used US $195.00
|
 PING EYE 2 plus Eye2 GREEN DOT 3 P IRON SET KT SHAFTS USED RH IRONS US $199.99
|
 PING ZING BLACK DOT WEDGE USED RH STEEL US $.99
|
 Ping iWedge 56 SAND WEDGE BLACK DOT GRAPHITE SHAFT LEFT HANDED USED US $9.99
|
 USED Ping G2i Anser Putter Golf Club 35 US $8.50
|
 USED Ping Moxie 3 Wood 24 degrees 37 US $.99
|
 Ping i3 Blade Irons black dot Used US $150.00
|
 Practice Ping Pong Balls (Table Tennis Balls), Pack of 144 balls List Price: Sale Price: $12.33 You save: $37.66 (75%)  Eligible for free shipping!Availability: Usually ships in 1-2 business days  |
 Used Ping I15 Fairway Wood |
 Viper Portable Table Tennis Top with Bag, Paddles, Net, Posts and Balls List Price: Sale Price: $79.00 You save: $60.99 (44%) Eligible for free shipping!Availability: Usually ships in 1-2 business days |
 Sportcraft Anywhere Table Tennis Set Sale Price: $19.99 Eligible for free shipping!Availability: Usually ships in 24 hours |
 Franklin Sports 6-In-1 Table Top Game Center List Price: Sale Price: $114.56 You save: $3.42 (3%) Eligible for free shipping!Availability: Usually ships in 1-2 business days |
 Used Ping G2 Driver |
 Used Ping Anser 4 Putter |
 Beer Pong Balls - 144/pk List Price: Sale Price: $12.28 You save: $27.71 (69%) Eligible for free shipping!Availability: Usually ships in 1-2 business days |
 Used Ping I10 Iron Set |
 Earth Products Earth Mini Ping Pong Table (Green) List Price: Sale Price: $69.00 You save: $41.00 (37%) Eligible for free shipping!Availability: Usually ships in 1-2 business days |