Assets out of warranty filtered by asset type

[yayitazale]

The list gives you the info of: Asset name, purchase date, warranty end date, serial number and IP location ordered by asset name (ascending). You have to change the highlithed number to match it with the device type you want to see.

There is no public list of the device type numbers (yet) so you can get that number by watching a asset type report. The link to that report contains the device type number. For example, for firewalls it will look like:

http:\\yourlansweeperserver:81/report.aspx?det=Web50getdevicebytype&title=All+Firewall+assets&@devicetype=2

Take that number and place it at the highlighted areas.

For already out of warranty:

Select Top 1000000 tblAssetCustom.AssetID,
  tblAssets.AssetName,
  tblAssetCustom.PurchaseDate As [Purchase Date],
  tblAssetCustom.Warrantydate As [Warranty Expiration],
  tblAssetCustom.Serialnumber,
  (Case
    When tsysIPLocations.IPLocation Is Not Null Then tsysIPLocations.IPLocation
    Else 'Undefined' End) As IPLocation
From tblAssetCustom
  Inner Join tblAssets On tblAssetCustom.AssetID = tblAssets.AssetID
  Inner Join tsysIPLocations On tblAssets.IPNumeric >= tsysIPLocations.StartIP
    And tblAssets.IPNumeric <= tsysIPLocations.EndIP
Where tblAssetCustom.Warrantydate < GetDate() + 30 And
  tblAssetCustom.Warrantydate < GetDate() And tblAssets.Assettype = X
  And tblAssetCustom.State = 1
Order By tblAssets.AssetName

For assets out of warranty in 30 days:

Select Top 1000000 tblAssetCustom.AssetID,
  tblAssets.AssetName,
  tblAssetCustom.PurchaseDate As [Purchase Date],
  tblAssetCustom.Warrantydate As [Warranty Expiration],
  tblAssetCustom.Serialnumber,
  (Case
    When tsysIPLocations.IPLocation Is Not Null Then tsysIPLocations.IPLocation
    Else 'Undefined' End) As IPLocation
From tblAssetCustom
  Inner Join tblAssets On tblAssetCustom.AssetID = tblAssets.AssetID
  Inner Join tsysIPLocations On tblAssets.IPNumeric >= tsysIPLocations.StartIP
    And tblAssets.IPNumeric <= tsysIPLocations.EndIP
Where tblAssetCustom.Warrantydate < GetDate() + 30 And
  tblAssetCustom.Warrantydate > GetDate() And tblAssets.Assettype = X
  And tblAssetCustom.State = 1
Order By tblAssets.AssetName