cli batch WinHttp.WinHttpRequest get

Version imprimable

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:

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

04/12/2014, 16h55
tsuji
Pas de promesse... essayez-ceci.
Code:

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.
05/12/2014, 07h10
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

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

Code:

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:

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:

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