Function getContent(node)
      Dim iUserRole
      Dim sLogonUser
      Dim sDomainName
      Dim iSlash
      Dim sServerName
      Dim sWorkspaceName
      Dim blnIsFolder

 

      sServerName = "yourServerName" ' Enter Name of your Server
      
      sWorkspaceName = "yourWorkspaceName" ' Enter Name of your Workspace and Folder / File where you want to check user permissions
      
      blnIsFolder = TRUE ' If you specified a single file in sWorkspace, then blnIsFolder is FALSE

      sLogonUser = Factory.Variables.Item("LOGON_USER") 
      iSlash = InStr(sLogonUser, "\")

      If NOT iSlash = 0 Then
            sDomainName = Left(sLogonUser, iSlash - 1)
            sLogonUser = Mid(sLogonUser, iSlash + 1)
      End If

      iUserRole = AccessRights("http://" & sServerName & "/" & sWorkspaceName , blnIsFolder)
      getContent = iUserRole & " " & sLogonUser & " " & sDomainName

End Function