Discussion :

[Oliv-]

Bonjour,
j'utilise un requête XMLHTTP pour recueillir des informations sur internet.

Le problème c'est qu'une GPO de mer.. provoque l'affichage d'un Avertissement de sécurité Windows, que je n'ai pas si je lance le lien directement avec IE (11)

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
Sub xml()
 Set MyXMLHttp = CreateObject("Msxml2.XMLHTTP")
            URL$ = "https://www.ellisphere.fr/entreprise/327733184"
             With MyXMLHttp
                .Open "get", URL, False
                .setRequestHeader "DNT", "1"
                On Error Resume Next
                .send
                On Error GoTo 0
 
                If .Status = 200 Then
                    SP = .responseText
                    MsgBox SP
                Else
                    MsgBox "Erreur " & .Status & " " & .StatusText & " !"
                End If
            End With
End Sub

une solution ?

[Marc-L]

Bonjour,

de mon côté sans GPO lors du premier lancement il y a une alerte de sécurité
à cause des informations manquantes de la révocation du certificat de sécurité du site.

Voir en désactivant la propriété DisplayAlerts, sait-on jamais …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[cerede2000]

Chez moi pas d'avertissement mais je tombe dans le cas erreur messagebox avec 0.

[Marc-L]

Oui pareil de mon côté, il faudrait peut-être essayer avec l'adresse finale vu la redirection …

[joe.levrai]

Bonjour,

le DisplayAlerts ne changera pas la chose, puisqu'il s'applique aux alertes de l'application ... là c'est IE qui l'envoi ?

j'avais aussi tenté Application.Parent.DisplayAlerts, sans succès

[cerede2000]

Hum ouai pas facile à traiter en XMLHTTP ça.
Il va falloir récupérer les headers pour suivre les redirections.....

Possible à faire ça ? Marc-L ?

Concernant la possibilité de cacher les message oublié ça immédiatement !
Ce n'est tout simplement pas possible pour une raison évidente de sécurité !
Les paramètres IE qui permette de régler ça sont au niveau des zones de sécurités, après il est possible de jouer avec mais c'est directement dans le registre sans effet garantie.
Tout ça pour justement éviter à un code très malicieux de faire ce qu'il veux !

[cerede2000]

Voilà genre ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    pXmlHttp.Open "GET", "https://www.ellisphere.fr/entreprise/327733184", False
    pXmlHttp.send
 
    While pXmlHttp.Status Like "3##"
        pXmlHttp.Open "GET", pXmlHttp.getResponseHeader("Location"), False
        pXmlHttp.send
    Wend
    Debug.Print pXmlHttp.ResponseText

Si la réponse est une redirection alors on y va

[Oliv-]

Merci pour votre intérêt.

J'ai essayé via le registre en jouant sur les clés suivantes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function ajout_site_de_confiance()
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ellisphere.fr", "http", 2)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ellisphere.fr", "https", 2)
 
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1", "1406", 1)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", "1406", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1406", 3)
End Function

Mais le résultat n'est pas là il y a des Policies (GPO) qui semblent ne pas les rendre opérationnelles, dans cette ruche :

HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings

[cerede2000]

En effet Oliv- les GPO prennes forcément le dessus des paramètre utilisateurs, c'est le principe
Par je n'aurais pas pensé qu'elles se seraient appliqués sur l'objet Msxml2.ServerXMLHTTP

Est-ce que tu as essayer le code de mon post précédent ?
Tu as le même phénomène ?

[Marc-L]

Je pensais plutôt à appeler directement l'adresse finale …

Sinon bien vu !

J'ai vu une autre manière pour la redirection mais la tienne à l'avantage d'être simple sans besoin d'adaptation …



Quand tu veux tu changes ta signature !

[Oliv-]

En effet Oliv- les GPO prennes forcément le dessus des paramètre utilisateurs, c'est le principe
Par je n'aurais pas pensé qu'elles se seraient appliqués sur l'objet Msxml2.ServerXMLHTTP

Est-ce que tu as essayer le code de mon post précédent ?
Tu as le même phénomène ?

Malheureusement cela provoque une "erreur automation"

[cerede2000]

Essaye sans le .6.0 :

Code :

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

1
2
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")

[Marc-L]

Ou encore avec WinHttp.WinHttpRequest.5.1 …

[cerede2000]

Je pensais plutôt à appeler directement l'adresse finale …

Sinon bien vu !

J'ai vu une autre manière pour la redirection mais la tienne à l'avantage d'être simple sans besoin d'adaptation …



Quand tu veux tu changes ta signature !

Merci

Hum le truc c'est qu'en faite le but avoué est d'appeler l'adresse avec juste un numéro de SIRET !
Hors l'adresse final contient le nom de l'entreprise que tu ne connais pas forcément
Donc en suivant simplement les redirections successives tu est tranquille et tu arrive à destination sans problème

Autre manière comment ?

[Oliv-]

Pareil
erreur sur le pXmlHttp.send

suis sous W7 (64BIT) OFFICE 2010-32BITS

[cerede2000]

Ha mince !
Je suis sous W10 x64/O2k16 x32 pas de soucis et je ne l'ai pas encore rencontré

Faut qu'on trouve il n'y a pas de raisons !

[Marc-L]

Autre manière comment ?

C'était sur un site étranger, je me rappelle que je l'avais trouvé compliquée à réutiliser
car dans le send initial il y avait une commande REDIRECT et j'avais demandé à l'auteur
comment il l'avait trouvé la séquence, question restée sans réponse …

La tienne est efficace et sans besoin d'adaptation spécifique à une autre URL.

[cerede2000]

Ben en fait la mienne fais comme un webbrowser lambda ou un conducteur sur l'autoroute
On lui dit : cette route est fermé, il y a une déviation, suivez donc les panneaux

Edit : C'est vraiment bizarre @Oliv- je viens de tester sur un XP/O2k3 et ça fonctionne aussi !!

[Oliv-]

En fait par défaut chez nous, les menus de sécurité de IE sont masqués.

Si je les réactive, et que je fais "réinitialisé" dans la ZONE INTERNET, je n'ai plus ce message.

[cerede2000]

Heu attends parce que là on est partie dans deux direction.
Il y a le message d'avertissement de sécurité qui est une chose et tout a l'heure tu as parlé d’erreur automation.

Du coup avec Msxml2.ServerXMLHTTP ou WinHttp.WinHttpRequest.5.1 ça donne quoi ?
Avertissement de sécurité ou automation ?

Si tu réinit la zone de sécurité IE tu n'as plus l'avertissement ok.
Et l'automation ?

Edit : En passant @Marc-L, on ne l'utilise pas souvent mais le WinHttp.WinHttpRequest permet la redirection directement via ses options !
Like this :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    pXmlHttp.Option(6) = True 'Pour autoriser la redirection
    pXmlHttp.Option(12) = True 'Pour autoriser la redirection HTTPS to HTTP
    pXmlHttp.Open "GET", "https://www.ellisphere.fr/entreprise/327733184", False
    pXmlHttp.send
 
    Debug.Print pXmlHttp.ResponseText
End Sub

Les différentes options : https://msdn.microsoft.com/fr-fr/lib...(v=vs.85).aspx
Plutôt pratique