Network Thoughput Test

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Network Thoughput Test

Logged in as: Guest

arrSession:exec spGetSession 2,16,58374

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Network Thoughput Test
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Network Thoughput Test - 3/24/2008 2:55:36 PM

TomRiddle

Posts: 90
Score: 0
Joined: 2/7/2008
Status: offline

Factors like error correction and other network traffic are probably the reason the results are approximately 70% of the full rated link speed.
On high speed links there can be bottle necks on the computer like Disk IO.

'Script by TomRiddle 2008
'Network Upload/Download Speed test
'Tested on XPSP2 - Large Corporate Network ok.

Option Explicit

Dim z
 Dim objFSO, objShell, fileS
 Dim FileSize, strTempDir
 Dim w, q, v, u, t
 Dim answer
 Dim x, y, c

'UNC Path to large file on network - same folder will be used in upload test. 
'Select large file like 9MB
 z="\\server\share\largefile.zip"
 Const OverwriteExisting = TRUE
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objShell = CreateObject("WScript.Shell")
 Set fileS = objFSO.GetFile(z)

'Build names and variables to be used in script
 FileSize = fileS.size/1024/1024 
 strTempDir = objShell.ExpandEnvironmentStrings("%temp%")
 w=instrrev(z, "\") : q=len(z) 
 v=right(z, q-w)
 U=left(z, w)
 t=objFSO.GetTempName

'Question Start download or quit
 answer = msgbox ("Start Download speed Test with "&round(FileSize)&"Mb file.", 1, "Continue?")
 if answer <> 1 then 
    wscript.quit
 end if

'Time download
 x=(now)
 objFSO.CopyFile z , strTempDir&"\", OverwriteExisting
 y=(now)
 c=datediff("s", x, y)
 
'Check for problems
 if c=0 then
    msgbox "You clicked the script too quickly after it finished the last time"&vbcrlf&"Wait a few seconds before launching script the second time"&vbcrlf&"Or you selected too small a file"
    wscript.quit
 end if

'Report download speed
 msgbox "Download speed is "&round((fileSize/c)*8,2)&" megabits per second."

'Question Start upload or quit
 answer = msgbox ("Start Upload speed Test with "&round(FileSize)&"Mb file.", 1, "Continue?")
 if answer <> 1 then 
    objFSO.DeleteFile(strTempDir&"\"&v)
    wscript.quit
 end if

'Time upload
 x=(now)
 objFSO.CopyFile strTempDir&"\"&v , U&t , OverwriteExisting
 y=(now)
 c=datediff("s", x, y)

'Report upload speed
 msgbox "Upload speed is "&round((fileSize/c)*8,2)&" megabits per second."

'Clean up and quit
 objFSO.DeleteFile(strTempDir&"\"&v)
 objFSO.DeleteFile(U&t)
 set fileS = Nothing
 set objShell = Nothing
 Set objFSO = Nothing 
 wscript.quit

< Message edited by TomRiddle -- 3/24/2008 3:02:17 PM >

Revisions: 1 | Post #: 1

RE: Network Thoughput Test - 3/26/2008 6:04:16 AM

MartinDK

Posts: 1
Score: 0
Joined: 2/25/2008
Status: offline

hmm i can`t get this working

(in reply to TomRiddle)

Post #: 2

RE: Network Thoughput Test - 3/26/2008 8:21:11 PM

TomRiddle

Posts: 90
Score: 0
Joined: 2/7/2008
Status: offline

What symptoms/error messages are you experiencing?
What environment do you have i.e. XP Vista etc
The network location must be read/write access enabled.
Some anti virus products set on maximum protection could block the file as it is being copied with windows scripting host.
Mine does not block it but puts an entry in log something like "Would have been blocked if not in warning only mode, bla bla"

I just copied the script off the forum as a test, modified the following line

z="\\server\share\largefile.zip"

to

z="E:\backup images\images\DG\GEN98BSE2.GHO"

and it worked fine. "Upload speed is 366.27 megabits per second" that transfer speed is disk to disk internally.

< Message edited by TomRiddle -- 4/18/2008 12:02:15 PM >

(in reply to MartinDK)