;#CS  SharePoint - Query an existing entry: IT WORKS FINE!!! ---------------------------------------------------------------------
#include <String.au3>

$sWebUrl = 'https://yoursite.domain.com/sites/TechServices/infra/_vti_bin/Lists.asmx'
$sStatusList = 'ImplementationCalendar'

$query = '<Query><Where><Eq><FieldRef Name="CRQ_x0020_Number"></FieldRef><Value Type="Text">CRQ000000199042</Value></Eq></Where></Query>'

$request =  '<?xml version="1.0" encoding="utf-8"?>'
$request = $request & '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"'
$request = $request & '            xmlns:xsd="http://www.w3.org/2001/XMLSchema"'
$request = $request & '            xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'
$request = $request & '  <soap:Body>'
$request = $request & '    <GetListItems xmlns="http://schemas.microsoft.com/sharepoint/soap/">'
$request = $request & '              <listName>' & $sStatusList & '</listName>'
$request = $request & '              <query>' & $query & '</query>'
$request = $request & '    </GetListItems>'
$request = $request & '  </soap:Body>'
$request = $request & '</soap:Envelope>'
;ConsoleWrite ("$request: " & $request & @CRLF)

$objHTTP = ObjCreate("Microsoft.XMLHTTP")
$objHTTP.open ("post", $sWebUrl, False)
$objHTTP.setRequestHeader ("Content-Type", "text/xml; charset=utf-8")
$objHTTP.setRequestHeader ("SOAPAction", "http://schemas.microsoft.com/sharepoint/soap/GetListItems")
$objHTTP.send ($request)
$strReturn = $objHTTP.responseText
;ConsoleWrite (@CRLF & $strReturn & @CRLF)
Dim $ItemCount = _StringBetween ($strReturn, 'ItemCount="', '">')
$ID = LoadItem ($strReturn, 'ows_ID')

;<rs:data ItemCount="1">
ConsoleWrite ("ItemCount: " & $ItemCount [0] & @CR)
If $ItemCount [0] > 0 Then ConsoleWrite ("$ID: " & $ID [0] & @CR)

Func LoadItem($xml_data, $item_name)
   ;ConsoleWrite ($xml_data & @crlf)
   Return _StringBetween($xml_data, $item_name & '=', 'ows_')
EndFunc