Discussion :

[kawaiyush]

Bonjour à tous,

Je voudrais importer des fichiers dans un serveur à distance, avec "intermapper remote access". Pour cela, j'ai créé un script vbs puis j'ai créé un batch pour le lancer. J'ai lancer alors le fichier.bat dans le console windows, et j'obtient l'erreur suivant:

WinHttp.WinHttpRequest: La connexion avec le serveur a été interrompue anormalement

Je crois que l'erreur viens alors de WinHttp.WinHttpRequest. Ci joint le bout de 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
22
23
24
25
26
27
28
Function FetchURL(url, user, password, textonly)
  Dim http, result
 
'create an http object
  Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
 
'download the http url
  http.Open "GET", url, False
 
  If user <> ""  Then
    http.SetCredentials user, password, 0
  End If
 
  http.Send
 
  if http.Status = 200 then
    if textonly Then
      result = http.ResponseText
    Else
      result = http.ResponseBody
    End If
  Else
    result = ""
  End If
 
  Set http = Nothing
  FetchURL = result
End Function

je suis encore novice avec vbs, je travaille sur java mais pour le scipt il faut que ça soit en vbs. Alors comment faire?
Merci d'avance

[tsuji]

Pas de promesse... essayez-ceci.

Code vbscript :

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

1
2
3
  Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
  http.option(9)=&H0028    'ajoutée
  http.Open "GET", url, False

Il semble le support de ssl 2.0 et ssl 3.0 n'est pas automatique d'après la documentation ? Mais je ne suis pas 100% sûr à vrai dit l'ampleur du problème. Il y a là quelque difficulté liée aux limitations de vbs propre. Essayer pour voir.

[kawaiyush]

Merci tsuji,

J'ai essayé mais ça ne marche pas, le même erreur apparaît
WinHttp.WinHttpRequest: La connexion avec le serveur a été interrompue anormalement

Qui d'autre a déjà eu cet erreur, et comment aviez vous faits pour le résoudre. Sinon Quelqu'un pourrait-il m'aider svp.

merci d'avance

[kawaiyush]

en faite pour l'appel de l'"hôte" "port" "username" "password", j'ai fais comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If WScript.Arguments.Named.Exists("host") Then
  remoteAddr = WScript.Arguments.Named.Item("host")
Else
  WScript.Echo "Must specify a remote InterMapper host to synchronize with"
  WScript.Quit
End If
 
 
If WScript.Arguments.Named.Exists("port") Then
  remotePort = WScript.Arguments.Named.Item("port")
Else
  remotePort = 80
End If
....

et pour l'url:

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
Function MakeURLBase(user, password, host, port, secure)
  Dim protocol, fullhost
  If secure Then
    protocol = "https://"
  Else
    protocol = "http://"
  End If
 
  If (port <> "") Then
    fullhost = host & ":" & port
  Else
    fullhost = host
  End If
 
  MakeURLBase = protocol & fullhost & "/~files"
End Function

' Get list of supported folders
puis j'ai rajouté mon code avec le votre:

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
....
urlBase = MakeURLBase(remoteUser, remotePassword, remoteAddr, remotePort, secureConnection)
.....
'create an http object
  Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
 
'download the http urlBase
http.option(9)= &H0028  'ajoutée
  http.Open "GET", urlBase, False
 
  If user <> ""  Then
    http.SetCredentials user, password, 0
  End If
 
  http.Send
....

Voilà, je crois que vous pourriez mieux comprendre comme ça
Merci