16.01.2013 Views

Microsoft Sharepoint Products and Technologies Resource Kit eBook

Microsoft Sharepoint Products and Technologies Resource Kit eBook

Microsoft Sharepoint Products and Technologies Resource Kit eBook

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Chapter 9: Capacity Planning 231<br />

RANDOMIZE<br />

Test.SetGlobalVariable “g_SERVER", “http://“<br />

SERVER = Test.GetGlobalVariable(“g_SERVER”)<br />

‘*****************************************************************************<br />

‘ Mixed Scenario Script<br />

‘*****************************************************************************<br />

Select Case int(2*RND)<br />

’50% GetHomePage<br />

Case 0<br />

Call GetHomepage<br />

Case 1<br />

Select Case int(10*RND)<br />

’20% GetMyPage<br />

Case 0, 1, 2, 3<br />

Call GetSearch<br />

’15% GetSearch<br />

Case 4, 5, 6<br />

Call GetSearch<br />

’5% GetSiteReg<br />

’5% GetCategories<br />

Case 7, 8, 9<br />

Select Case int(3*RND)<br />

Case 0<br />

Call GetTeamSite<br />

Case 1<br />

Call GetSiteReg<br />

Case 2<br />

Call GetCategories<br />

End Select<br />

End Select<br />

End Select<br />

‘*****************************************************************************<br />

‘ TM_GetHomepage<br />

‘ Purpose: Gets the default homepage<br />

‘*****************************************************************************<br />

Function GetHomepage<br />

GetUrl SERVER & “/default.aspx", “Homepage"<br />

End Function<br />

‘*****************************************************************************<br />

‘ TM_GetMyPage<br />

‘ Purpose: Gets my page<br />

‘Note: In order to have this work you will have to import the users from the AD<br />

‘ on the SharePoint Portal Server portal site <strong>and</strong> give them the necessary rights<br />

‘to have their own My Sites<br />

‘You will have to also use the PortalCramIt tool to generate the<br />

‘sites so that you will really hit existing My Sites<br />

‘*****************************************************************************<br />

Function GetMyPage<br />

GetUrlMyPri SERVER & “/MySite/default.aspx", “MyPage"<br />

End Function<br />

‘*****************************************************************************<br />

‘ TM_GetSearch

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!