Disclaimer: This is an old post, which I am migrating from my old blog, for the sake of preserving it. It originally was posted on October, 14, 2008.
'
'SharePoint Warmup Script
'
'
'Create new object to ping URLs
Dim BaseURL
Dim NewURL
BaseURL = "http://my.sharePoint.installation/sites/mySiteCollection/"
NewURL = ""
Dim Ping
Set Ping = CreateObject( "Microsoft.XMLHTTP" )
'If we don't have capability to access the XML/AJAX Object, break out
if Err.Number <> 0 Then wscript.Quit
'Start attempting to open the following URLs:
'Copy/paste the code below for several different sites/subsites/collections.
'
'Base Portal Dashboard
'
NewURL = BaseURL & "" 'Enter your new extension of the main URL
wscript.Echo "Pinging: " & NewURL
Ping.Open "GET", NewURL, False
Ping.Send
No comments:
Post a Comment