How to search the workspace using Web service?

saravanakumar38

Hi,

I am searching the workspace in Interwoven using web service.
I have set the profile search parameter as custom1.
But while searching it shows "[NRTSession ][SearchPages ]Access is denied.
"

code:


Dim workspaceSearchParameter As FolderSearchParameter() = New FolderSearchParameter(0) {}
workspaceSearchParameter(0) = New FolderSearchParameter()

Dim profileSearchParameter As ProfileSearchParameter() = New ProfileSearchParameter(0) {}
profileSearchParameter(0) = New ProfileSearchParameter()
profileSearchParameter(0).AttributeID = imProfileAttributeID.imProfileCustom1
profileSearchParameter(0).SearchValue = workspaceIdentifier

Dim input As New SearchWorkspacesInput()
Dim DBNames(0) As String
DBNames(0) = connectionInfo.DBname
input.Databases = DBNames
input.WorkspaceSearchParameters = workspaceSearchParameter
input.ProfileSearchParameters = profileSearchParameter

Dim output As SearchWorkspacesOutput = connectionInfo.Connection.IWOVServices.SearchWorkspaces(input)


ERROR :
"[NRTSession ][SearchPages ]Access is denied."

Can any one help to search the workspace using custom 1 value.


Thanks,

jny

Hi, I am searching the workspace in Interwoven using web service. I have set the profile search parameter as custom1. But while searching it shows "[NRTSession ][SearchPages ]Access is denied. " code: Dim workspaceSearchParameter As FolderSearchParameter() = New FolderSearchParameter(0) {} workspaceSearchParameter(0) = New FolderSearchParameter() Dim profileSearchParameter As ProfileSearchParameter() = New ProfileSearchParameter(0) {} profileSearchParameter(0) = New ProfileSearchParameter() profileSearchParameter(0).AttributeID = imProfileAttributeID.imProfileCustom1 profileSearchParameter(0).SearchValue = workspaceIdentifier Dim input As New SearchWorkspacesInput() Dim DBNames(0) As String DBNames(0) = connectionInfo.DBname input.Databases = DBNames input.WorkspaceSearchParameters = workspaceSearchParameter input.ProfileSearchParameters = profileSearchParameter Dim output As SearchWorkspacesOutput = connectionInfo.Connection.IWOVServices.SearchWorkspaces(input) ERROR : "[NRTSession ][SearchPages ]Access is denied." Can any one help to search the workspace using custom 1 value. Thanks,

This code successfully returns workspaces by the specified custom1 search value. It looks like both the workspacesearchparameters and profilesearchparameters must be populated. This could be a bug because only one of the two searchparameters collections is needed by the search method.

        Dim WSWSvcs As New IWOVServices()
        ' Attempt to authenticate
        WSWSvcs.PreAuthenticate = True
        WSWSvcs.AllowAutoRedirect = True
        WSWSvcs.Credentials = System.Net.CredentialCache.DefaultCredentials()

        ' ~~ Search workspaces example Begins ~~

        Dim wsparams(0) As FolderSearchParameter
        wsparams(0) = New FolderSearchParameter()
        wsparams(0).AttributeID = imFolderAttributeID.imFolderOwner
        wsparams(0).SearchValue = "JYEE" 'example of a valid userid

        Dim psparams(0) As ProfileSearchParameter
        psparams(0) = New ProfileSearchParameter()
        psparams(0).AttributeID = imProfileAttributeID.imProfileCustom1
        psparams(0).SearchValue = "5400" 'example of a valid custom1 Alias

        Dim DBNames(0) As String
        DBNames(0) = "WS8DSS1" 'example of a valid database name

        Dim input As New SearchWorkspacesInput()
        input.Databases = DBNames
        input.WorkspaceSearchParameters = wsparams
        input.ProfileSearchParameters = psparams

        Dim output As SearchWorkspacesOutput = WSWSvcs.SearchWorkspaces(input)

        Dim arrErrors = output.Errors
        Dim arrResults = output.Workspaces

        ' ~~ Search workspaces example ends ~~