Comment tester la validité d'un URL Sharepoint avec VB.NET ?

Version imprimable

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:

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:

Citation:

'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

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

Code:

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:

Citation:

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

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

UPDATE:

J'ai essayé ce code :

Code:

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:

Citation:

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 ?

17/06/2024, 12h35
licardentaistor

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

https://stackoverflow.com/questions/...online-c-sharp
17/06/2024, 16h42
Golard

Citation:

Envoyé par licardentaistor

ç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 ?
24/06/2024, 18h39
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)