Private Function getAircashService(UserToken As String) As Aircash.AircashClient
        Dim acService As New Aircash.AircashClient()

        Try
            acService.ClientCredentials.UserName.UserName = UserToken
            acService.ClientCredentials.UserName.Password = FormsAuthentication.HashPasswordForStoringInConfigFile(UserToken, "SHA1")
            Return acService
        Catch

        End Try
        Return acService
    End Function