Archive for the ‘usable vbscript. google analytics vbscript’ tag
Get Number of Pages Indexed by Google with Vbscript
Have you ever needed to track the number of pages indexed daily for a site within Google? To save you some time, the following vbscript will grab the number of estimated pages Google returns as a single integer, the same as if you entered: site:crribs.com into the ‘Search’ box. The returned page gives you back – for example – Results 1 – 10 of about 171 from crribs.com. (0.19 seconds) . This script would return the number 171, for analytical/statistical tracking purposes. Make sure to enter the correct cannonical version of your site for the variable if youve specified one in Google Webmaster Tools.
varSite = "crribs.com"
WScript.Echo getGoogIndexedPages(varSite)
Function getGoogIndexedPages(strUrl)
strUrl = "http://www.google.com/search?hl=en&source=hp&q=site:" & strUrl & "&aq=f&aqi=&aql=&oq=&gs_rfai="
Set xmlhttp = createobject("msxml2.xmlhttp.3.0")
xmlhttp.open "get", strUrl, false
xmlhttp.send
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "of about \[\d|\,]*\<\/b\>" (Google updated the format of this page. Replace the RegEx and itll work again.)
objRegEx.Pattern = "About.\d+.\d+"
strSearchString = xmlhttp.responseText
Set colMatches = objRegEx.Execute(strSearchString)
If colMatches.count > 0 Then
For Each match In colMatches
strMatch = match
Next
End If
strMatch = Replace(strMatch, "of about ", "")
strMatch = Replace(strMatch, "", "")
getGoogIndexedPages = strMatch
End Function
