Discussion :

[Golard]

Bonjour,

Je souhaite tester

• la validité d'un URL Sharepoint
• l'existence d'un fichier sur Sharepoint

Je m'arrache les cheveux car je ne trouve pas de code qui fonctionne.

J'ai essayé par exemple ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
       Try
           Dim request As WebRequest = WebRequest.Create(strHost)
           Dim response As WebResponse = request.GetResponse()
           Call MsgBox("SUCCES: " & response.ToString)
       Catch ex As Exception
           Call MsgBox("ERREUR: " & ex.ToString)
           Return False
       End Try
       Return True

ça fonctionne bien sur des URL standard de la toile (google, developpez.com, ...), mais pas pour Sharepoint qui génère une exception pour des pbs d'autorisation.

Par ailleurs, WebRequest semble déconseillé par l'environnement Visual Studio 2022 qui donne l'alerte suivante:

'WebRequest, HttpWebRequest, ServicePoint, and WebClient are obsolete. Use HttpClient instead.

Je souhaite effectivement utiliser les objets de la plateforme .NET, et la méthode la plus propre possible.
Cependant je ne trouve pas de code avec HttpClient en visual basic.
J'apprécierai toute proposition de code avec grand plaisir.

Merci d'avance

[Golard]

En complément, j'ai essayé d'ajouter UseDefaultCredentials et PreAuthenticate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Function RemoteFileExist(ByVal strHost As String) As Boolean
    '// OBJET: Teste la validité d'un URL ciblant un fichier sur Sharepoint
    '// ENTREE: strHost= URL à vérifier commençant par http:// ou https://
    '// RETOUR: True si le fichier existe
 
    '''// 11.06.24 Test d'une syntaxe avec WebRequest: Ne fonctionne pas pour des problèmes d'autorisation
    '''// Les 2 Imports suivants doivent être mis en début de module
    '''// Imports System.IO
    '''// Imports System.Net
 
    Try
        Dim request As WebRequest = WebRequest.Create(strHost)
        request.UseDefaultCredentials = True
        request.PreAuthenticate = True
        Dim response As WebResponse = request.GetResponse()
        Call MsgBox("SUCCES: " & response.ToString)
    Catch ex As Exception
        Call MsgBox("ERREUR: " & ex.ToString)
        Return False
    End Try
    Return True
 
End Function

J'obtiens toujours l'erreur suivante:

System.Net.WebException: The remote server returned an error: (401) Unauthorized

Avez-vous une idée de quoi faire pour que cela fonctionne ?

[Golard]

UPDATE:

J'ai essayé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Function SharepointFileExist_Test2(ByVal strHost As String) As Boolean
 Dim oRequest As System.Net.HttpWebRequest = Nothing
 Dim oResponse As System.Net.HttpWebResponse = Nothing
 
 Try
     oRequest = CType(System.Net.WebRequest.Create(strHost), System.Net.HttpWebRequest)
     'Les 2 lignes suivantes permettent de s'authentifier automatiquement par exemple sur un site Sharepoint
     oRequest.UseDefaultCredentials = True
     oRequest.PreAuthenticate = True
     oResponse = CType(oRequest.GetResponse, System.Net.HttpWebResponse)
     Select Case oResponse.StatusCode
         Case Net.HttpStatusCode.OK
             oResponse.Close()
             Return True
         Case Else
             Return False
     End Select
 Catch generatedExceptionVariable0 As Exception
     Return False
 End Try
 End Function

ça ne fonctionne pas mieux, j'ai toujours l'erreur:

The remote server returned an error: (401) Unauthorized

Help!!!!! Quelqu'un d'expérimenté en VB.Net/Sharepoint peut-il m'aider à tester la présence d'un fichier sur Sharepoint ?

[licardentaistor]

ça n'est pas en passant ces booléens que l'on s'authentifie..



https://stackoverflow.com/questions/...online-c-sharp

[Golard]

ça n'est pas en passant ces booléens que l'on s'authentifie..

Bonjour licardentaistor,

Effectivement, mes variables booléennes ne sont pas censées remplacer une authentification.
Mais je travaille sur un poste d'entreprise avec une authentification automatique: J'avais lu quelque part que ces booléens permettait au code de préciser au système d'utiliser l'authentification automatique du poste... mais ça ne semble pas fonctionner

Comme mon application ne doit pas fonctionner que sur mon poste, mais aussi sur les postes d'autres utilisateurs, je ne peux pas connaitre le login/mot de passe de la personne qui exécutera mon programme. Je dois être authentifié sur Sharepoint automatiquement comme quand l'utilisateur lance son navigateur... la connexion à Sharepoint est automatique.

Aurais-tu une idée pour coder cela ?

[umfred]

un début d réponse => https://learn.microsoft.com/fr-fr/sh...cation-cookies

utilisation donc de SPHttpClient pour éviter les problèmes de connexions (problème, comme toi, je ne trouve pas d'exemple en VB.NET, mais on doit pouvoir en faire la "traduction" assez facilement)