Stampa disponibilità lotti su magazzini diversi

Salve, avendo noi due magazzini, avrei la necessità di sapere per ogni magazzino quali lotti sono caricati di un determinato articolo, cercando un po' in giro tra manuale e forum non ho trovato nulla a riguardo, per cui ho provato a sviluppare uno script, ma credo che la proprietà "warehouselocation" non sia utilizzabile sui lotti,

Lo script è questo,


Option Explicit

Dim Lotto
Dim Elenco
dim Search
Elenco=""
For Each Search In Rdy.SearchProducts()
If Search.code="CAN3867C003AA" Then
    For Each Lotto in Search.AvailableSerialNumbers
        If Lotto.WarehouseLocation(1) then
            If Elenco<>"" Then
                Elenco=Elenco & ","  
            End If
            Elenco=Elenco & Lotto.Code
        End If
    Next
End If
Next
Response.Write(Elenco)


Ovviamente mi restituisce errore su riga 10:

Citazione:

Errore nell'esecuzione dello script
Riga : 10   Colonna : 8
Source : Errore di run-time di Microsoft VBScript
Dettaglio errore : Proprietà o metodo non supportati dall'oggetto: 'WarehouseLocation'