XMLHTTP et Avertissement de sécurité

**Oliv-** · 28/04/2016, 11h45

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)

Nom : Avertissement_pas_sous_contrôle.png
Affichages : 985
Taille : 5,2 Ko

Nom : Avertissement_pas_sous_contrôle.png
Affichages : 985
Taille : 5,2 Ko

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** · 28/04/2016, 11h55

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** · 28/04/2016, 11h59

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

**Marc-L** · 28/04/2016, 12h01

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

**joe.levrai** · 28/04/2016, 12h06

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** · 28/04/2016, 16h21

Oh un petit gpupdate /force + fermeture de session aurait suffit

@Marc-L :

Envoyé par Marc-L

En passant, si vous tenez réellement à créer une variable objet, ne pas oublier alors de la libérer en fin de procédure !

Set VariableObjet = Nothing …

Ca va de sois, mais la nous sommes en phase R&D

**Oliv-** · 28/04/2016, 16h52

Comme j'ai bidouillé sur mon pc je n'ai plus cet avertissement avec aucune des 3 méthodes !

Mais sur un autre PC, lorsque j'ai bien le message d'avertissement avec "Msxml2.XMLHTTP",

je ne l'ai plus ni avec "Msxml2.ServerXMLHTTP.6.0" ni avec "WinHttp.WinHttpRequest.5.1"

Merci c'est déjà SUPER !

Est ce que les 3 renvoient bien la même chose dans le .ResponseText ? y en a-t-il un plus rapide ?

En principe mon proxy ne change pas mais y a t'il une méthode pour le renseigner automatiquement sachant que nous utilisons un script de configuration automatique du type

http://Serverproxy:9001/proxy.pac

Y a-t-il un parser pour ce genre de fichier ?

**cerede2000** · 28/04/2016, 15h43

j'ai un PROXY

Ah !!!!!!!!!!!!!! En effet c'est une information qui à énormément son importance !

Essaye ça :

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
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
With oRequest
    .setProxy 2, "serveurproxy:8080", ""
    .SetCredentials "User Name", "Password", 1
    .Option(6) = True 'Pour autoriser la redirection
    .Option(12) = True 'Pour autoriser la redirection HTTPS to HTTP
    .Open "GET", sUrl, False
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
    .send '"{range:9129370}"
    .WaitForResponse
    sResult = .ResponseText
    Debug.Print sResult
    sResult = oRequest.Status
    Debug.Print sResult
End With

En mettant ton serveur proxy et login/pass

Edit : Pas sur que cette ligne => .setProxy 2, "serveurproxy:8080", "" soit obligatoire

**Oliv-** · 28/04/2016, 15h56

Merci ce code fonctionne sans Message d'avertissement, mais il faut que je reboot pour voir avec la GPO, à tout de suite !

**cerede2000** · 28/04/2016, 12h08

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** · 28/04/2016, 13h09

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-** · 28/04/2016, 14h15

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

**Marc-L** · 28/04/2016, 14h23

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 !

**cerede2000** · 28/04/2016, 14h31

Envoyé par 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 !

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 ?

**Marc-L** · 28/04/2016, 14h39

Envoyé par cerede2000

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** · 03/05/2016, 08h02

???????

La dedans, en direct (sans proxy donc) tu n'obtiens jamais de Statut 200 ! Je viens de la rester et je confirme !
Au mieux tu obtiens donc le statut 200 de ton Proxy !

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub Go_Traitement_Msxml2XMLHTTP()
 
 
    sirens = Array(813023868, 813156973, 813157476, 813622552, 813837507, 813986635, 814095113, 814279881, 814406989, 817727571, 818756991, 818993800, 819058124, 819130758, 819132135, 819253956, 886180694, 950516047, 957504061, 962227351)
 
    Dim i, j, k, l, elements, SP As String
    Dim htmlTabElement() As IHTMLElement
    Dim GenericElem As HTMLGenericElement
    Dim MyTags
    Dim MonDiv As HTMLDivElement
    Dim VERIF_siren
 
    ' selection des contacts
    Dim URLSTE, Titre As String, donnée_brut, donnée_propre
 
    '   Set MyXMLHttp = CreateObject("Microsoft.XMLHTTP")
    Set MyXMLHttp = CreateObject("Msxml2.XMLHTTP")
    Dim t0 As Double
    t0 = Time
    verrouEvent = True
    For Each contact In sirens
 
        mySIREN = contact
        URL$ = "https://www.ellisphere.fr/entreprise/" & mySIREN
 
 
        With MyXMLHttp
            .Open "get", URL, False
            .setRequestHeader "DNT", "1"
            On Error Resume Next
            .send
            On Error GoTo 0
 
            If .Status = 200 Then
                SP = .responseText
 
 
                '                    If InStr(1, SP, "app.entreprise = app.entreprise || {};", vbTextCompare) Then
                '                        'Call EXTRACT_DONNEES(SP)
                '                        Call EXTRACT_DONNEES_JSON_Contacts(SP, contact)
                '                    End If
 
            End If
 
        End With
 
        On Error GoTo 0
suivant:
    Next contact
    Debug.Print "Msxml2XMLHTTP" & vbTab & UBound(sirens) & vbTab & CStr(Time - t0)
    MsgBox CStr(Time - t0)
End Sub

PS : Pourquoi inhibe tu les erreurs avant le .Send ?

Code :

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

1
2
3
On Error Resume Next
.send
On Error GoTo 0

**cerede2000** · 28/04/2016, 16h55

Comme tu as un proxy tu dois passer par WinHttp.WinHttpRequest.5.1 car les autres ne le gère tout simplement pas.
Ton proxy requière-t-il un login/MDP ?

Est-ce que tu as essayer de ne pas le définir (juste la partie serveur) ?
On pourrait surement rapatrier le fichier PAC et le traiter pour aller chercher le proxy dedans mais bon ça complique pas mal le truc.
Je pense qu'il est plus simple de mettre directement ton serveur proxy sortant

PS : Penses à appliquer le conseil de ta signature

**Oliv-** · 28/04/2016, 17h28

non les 3 peuvent fonctionner avec le proxy

"Msxml2.XMLHTTP" le détecte automatiquement via IE

"Msxml2.ServerXMLHTTP.6.0" fonctionne aussi avec cette syntaxe

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
Sub cerede()
 
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    pXmlHttp.setProxy 2, "10.15.0.10:80", ""
 
    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
End Sub

et donc le 3ème comme tu le disais.

Non j'ai pas besoin de mettre de mot de passe pour le proxy.

J'ai trouvé ce projet, très complet et un brin complexe

https://github.com/VBA-tools/VBA-Web

dans le fichier VBA-Web-4.0.21\examples\VBA-Web - Example.xlsm
il y a une procédure qui configure le proxy avec "WinHttp.WinHttpRequest.5.1"

Code :

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

1
2
3
4
5
 
' Load auto-proxy (if needed)
    If Me.EnableAutoProxy Then
        web_LoadAutoProxy Request
    End If

**cerede2000** · 28/04/2016, 14h19

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 ?

**Oliv-** · 28/04/2016, 14h23

Envoyé par 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 ?

Malheureusement cela provoque une "erreur automation"

XMLHTTP et Avertissement de sécurité [Toutes versions]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager