Microsoft Sharepoint Products and Technologies Resource Kit eBook

234 Part III: Planning and Deployment
the operations per second determined in planning the portal site. If it is not, your
portal site will not be able to handle the load you planned for.
It is also important to note the average time to last byte. This is the amount of
time a user would have to wait for a requested page. The number is in milliseconds,
so a number greater than 1000 indicates that under the simulated load conditions an
end user would have to wait more than 1 second for the requested page. This number
is especially important to pay attention to if your users will not tolerate wait
times.
While the scripts just shown actually already do generate good stress on the
servers, there is one thing that was not taken into consideration so far: the caching
of site components such as style sheets, .gif, .jpg, and so on. If you are testing for
environments over slow links, this is very important. The following script opens the
default Home page, default.aspx, and checks the modified date of the site’s cascading
style sheets (CSS) file against the local file if one exists. If the file had not been
downloaded, the script will not download another copy. The code is as follows:
RANDOMIZE
Test.SetGlobalVariable “g_SERVER", “http://“
servername = ““
SERVER = Test.GetGlobalVariable(“g_SERVER”)
Call GetHomepage
Function GetHomepage
GetUrl SERVER & “/default.aspx", “Homepage"
’in this script we have added only one file. You can add more of
‘these files if you want. (path of these ’ ’
’ can be found out by looking at the page’s source)
GetLastModifiedUrl “/styles/sps.css"
End Function
Sub GetUrl(strURL, strPage)
RANDOMIZE
‘usernumber can be changed to your preference
F = INT(200 * RND)
Test.GetCurrentUser
tStart = Timer()
Set oResponse = Test.SendRequest(strURL)
tFinish = Timer()
Test.GetNextUser
End Sub
Sub GetLastModifiedUrl(strURL)
‘Open a new connection to the Web server
dim oConnection
Set oConnection = Test.CreateConnection(SERVERNAME, 80, False)
If (oConnection Is Nothing) Then
Test.Trace(“Error: Unable to create connection."&Servername)
Else
’Create a new Request
Set oRequest = Test.CreateRequest
Set oUser = Test.GetCurrentUser