Database Search

TechHome

• AD Query of IP Network and SMS Database Query
• Average Ping Time in Milliseconds UDF
• Check If IP Address Is in Subnet
• Get IP And MAC Information From Current Network Card
• Get IP MAC UDF
• Get User SID
• GetUserNameEx - Get Canonical Names etc
• List Sharenames that Match the Resource Path
• NetMessageBufferSend UDF
• NetSetServerInfo
• NetWkstaGetInfo UDF
• NT - Active Directory Routines

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Average Ping Time in Milliseconds UDF

 Keywords: Ping Time Millieseconds  iPing ipPing wxPing udfGetAvgPingTime

#DefineFunction udfGetAvgPingTime(url)
	objShell = ObjectCreate("WScript.Shell")
	cmd = 'ping ':url
	objWshScriptExec = objShell.Exec(cmd)
	objStdOut = objWshScriptExec.StdOut
	Data = objStdOut.ReadAll
	startpos = Strindex( Data, 'Average', 1, @Fwdscan)+9
	endpos =   Strindex( Data, 'ms', startpos, @Fwdscan)
	avgtime =  StrSub( Data, startpos, endpos - startpos )
	objStdOut = 0
	objWshScriptExec = 0
	objShell = 0	
	Return avgtime
#EndFunction


ret = udfGetAvgPingTime('www.yahoo.com')
Pause('Average Ping Time in Milliseconds', ret) 

Exit

Article ID:   W18374

Filename:   Average Ping Time in Milliseconds UDF.txt

File Created: 2010:08:18:09:29:22

Last Updated: 2010:08:18:09:29:22