LansweeperRC leftovers

[danielm]

I decided to make a simple report that looks for the service "LansweeperRC" on all machines to find instances of where it does not get removed after usage. This can occur under various circumstances. If any are found active they should be removed by connecting with lsremote and then closing it properly to let it get removed.

Select Top 1000000 upgrade_tblComputers.Computername,
upgrade_tblComputers.ComputerUnique,
upgrade_tblComputers.Domain,
upgrade_Web40OSName.OSname,
upgrade_tblOperatingsystem.Description,
upgrade_tblServices.Lastchanged,
upgrade_Web40OSName.Compimage As icon
From upgrade_tblComputers
Inner Join upgrade_tblServices On upgrade_tblComputers.Computername =
upgrade_tblServices.Computername
Inner Join upgrade_web40ActiveComputers On upgrade_tblComputers.Computername =
upgrade_web40ActiveComputers.Computername
Inner Join upgrade_Web40OSName On upgrade_Web40OSName.Computername =
upgrade_tblComputers.Computername
Inner Join upgrade_tblOperatingsystem On upgrade_tblComputers.Computername =
upgrade_tblOperatingsystem.Computername
Where upgrade_tblServices.Caption Like '%LansweeperRC%' And
upgrade_tblServices.Started = 1
Order By upgrade_tblComputers.Computer

[Susan_A · Accepted solution]

Thank you for the contribution, danielm, but keep in mind that your report will only work in Lansweeper installations that were upgraded from version 4.X to 5.X. Users with new 5.X installations won't have the "upgrade_" views and will need to run the query below instead.

Select Top 1000000 tsysOS.Image As icon,
  tblAssets.AssetID,
  tblAssets.AssetName,
  tblAssets.Domain,
  tsysOS.OSname,
  tblAssets.Description,
  tblAssets.Firstseen,
  tblAssets.Lastseen
From tblAssets
  Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID
  Inner Join tblServices On tblAssets.AssetID = tblServices.AssetID
  Inner Join tblServicesUni On tblServicesUni.ServiceuniqueID =
    tblServices.ServiceuniqueID
  Inner Join tsysOS On tsysOS.OScode = tblAssets.OScode
Where tblAssetCustom.State = 1 And tblServicesUni.Caption Like '%LansweeperRC%'
  And tblServices.Started = 1
Order By tblAssets.Domain,
  tblAssets.AssetName