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.

232 Part III: Planning <strong>and</strong> Deployment<br />

‘ Purpose: Gets the default search page<br />

‘Note: We are searching here for the word home, you could of course<br />

‘change that<br />

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

Function GetSearch<br />

GetUrl SERVER & “/Search.aspx?k=Home", “GetSearch"<br />

End Function<br />

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

‘ TM_GetCategories<br />

‘ Purpose: Gets the main categories page<br />

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

Function GetCategories<br />

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

End Function<br />

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

‘ TM_GetTeamSite<br />

‘ Purpose: Gets a Team Site Homepage<br />

‘Note: In order for this script to work you will have to create<br />

‘a team site <strong>and</strong> enter its name into the URL below<br />

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

‘Get Team Site gets it own Object because can not access with Reader.<br />

Function GetTeamSite<br />

GetUrl SERVER & “/sites//default.aspx", “GetTeam-<br />

Site"<br />

End Function<br />

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

‘ TM_GetSiteRegistry<br />

‘ Purpose: Gets the site registry page<br />

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

Function GetSiteReg<br />

GetUrl SERVER & “/SiteDirectory/Lists/Sites/Summary.aspx", “GetSiteRegistry"<br />

End Function<br />

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

‘ GetUrl<br />

‘ Purpose: Gets the passed in URL. Send the pagename to be logged<br />

‘Note: the number 200 can be replaced by any number you wish as long as these<br />

‘users have been generated in the AD<br />

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

Sub GetUrl(strURL, strPage)<br />

RANDOMIZE<br />

F = INT(200 * RND)<br />

Test.GetCurrentUser<br />

tStart = Timer()<br />

Set oResponse = Test.SendRequest(strURL)<br />

tFinish = Timer()<br />

Test.GetNextUser<br />

End Sub<br />

Sub GetUrlMyPri(strURL, strPage)

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

Saved successfully!

Ooh no, something went wrong!