Untitled

Google API implementation

Here is an implementation of Google API in VBScript. I have modified the original source by David Watson. This code should run on any windows machine which has the Windows Scripting Host and Microsoft SOAP 2.0 Toolkit installed. You can run this script by saving it as a .vbs file and double clicking it or by issuing "csript <filename>" command at the command prompt.

REM Declare the variables
Dim soapClient, ResultCount, Results, i, key, query
Dim ResultElements, ResultCount
REM Create the object 
set soapClient = createobject("MSSOAP.SoapClient")
on error resume next
REM Extract the WSDL file from the googleapi.zip in the same directory as this script file
soapClient.mssoapinit("GoogleSearch.wsdl")
key = "Your key here"
query="Your query here"
if err then
     wscript.echo err.description
     wscript.echo "Faultstring =" + SOAPClient.faultString
     wscript.echo "Faultactor =" + SOAPClient.faultactor
     wscript.echo "Faultcode =" + SOAPClient.faultcode
     wscript.echo "Detail =" + SOAPClient.detail
end if
REM If you are connecting through a proxy server, Keep the following three lines
 soapClient.ClientProperty("ServerHTTPRequest") = True 
 soapClient.ConnectorProperty("ProxyServer") = "Proxy"
 soapClient.ConnectorProperty("ProxyPort") = 8080
set Results = soapClient.doGoogleSearch (key, query, 0, 3, False, "", False, "", "", "")
For i = 0 To Results.length - 1
  If Results.Item(i).nodeName = "resultElements" Then
       ResultElements = Results.Item(i).nodeTypedValue
       Exit For
  End If
Next
if err then
     wscript.echo err.description
     wscript.echo "Faultstring =" + SOAPClient.faultString
     wscript.echo "Faultactor =" + SOAPClient.faultactor
     wscript.echo "Faultcode =" + SOAPClient.faultcode
     wscript.echo "Detail =" + SOAPClient.detail
else
     wscript.echo ResultElements 
end if

This should return you three(3) results of your query. This example can be extended to take care of other search responses. For example the following will return you the estimated total number of results that exist for the query.

For i = 0 To Results.length - 1
 If Results.Item(i).nodeName = 
              "estimatedTotalResultsCount" Then
       ResultCount = Results.Item(i).nodeTypedValue
       Exit For
 End If
Next
wscript.echo ResultCount