Dim oArgs, ArgNum, t, key, searchRes 
  
 Set oArgs = WScript.Arguments 
 ArgNum = 0 
  
 While ArgNum < oArgs.Count 
   FullParameter = FullParameter + oArgs(ArgNum) + " " 
   ArgNum = ArgNum + 1 
 Wend 
  
 '填写为自己申请到的Licence就可以了 
 key = "fewCIPdQFHIhHaO+vWpBTjlblc6ajHKN" 
  
 set t = CreateObject("pocketsOAP.HTTPTransport") 
 't.SetProxy "localhost", 7070  '设置Proxy 
  
 set res = GoogleSearch ( FullParameter, 0, 10, true, "", true, "", "", "" ) 
 WScript.Echo String(80, "_") 
 Wscript.Echo "已向英特网搜索" & FullParameter  
 Wscript.Echo "共约有" & res.ItemByName("estimatedTotalResultsCount").Value & "项查询结果" 
 Wscript.Echo "搜索结果如下:" 
 WScript.Echo String(80, "_") 
 searchRes = res.ItemByName("resultElements").Value 
 for i = lbound(searchRes) to ubound(searchRes) 
     wscript.echo searchRes(i).Nodes.ItemByName("title").Value & vbCRLF & vbTab & _ 
 searchRes(i).Nodes.ItemByName("URL").Value &  
  
 vbCRLF 
 next 
  
 Function GoogleSearch ( searchTerm, _ 
                         start, _ 
                         maxResults, _ 
                         MatchFilter, _ 
                         restrict,  _ 
                         safeSearch, _ 
                         languageRestrict, _ 
                         inputEncoding, _ 
                         outputEncoding ) 
     dim e                     
     set e = CreateObject("PocketSOAP.Envelope.2") 
     e.SetMethod "doGoogleSearch", "urn:GoogleSearch" 
  
     e.Parameters.Create "key", key 
     e.Parameters.Create "q", searchTerm 
     e.Parameters.Create "start", start 
     e.Parameters.Create "maxResults", maxResults 
     e.Parameters.Create "filter", MatchFilter 
     e.Parameters.Create "restrict", restrict 
     e.Parameters.Create "safeSearch", safeSearch 
     e.Parameters.Create "lr", languageRestrict 
     e.Parameters.Create "ie", inputEncoding 
     e.Parameters.Create "oe", outputEncoding 
      
      
     t.SOAPAction = "urn:GoogleSearchAction" 
      
     t.send "http://api.google.com/search/beta2", e.serialize 
     e.parse t 
     set GoogleSearch = e.parameters.item(0).Nodes 
 end Function