This problem happen when calling to https, but works fine when call to http.

How do i resolve this?

Full working code at below:

Option Explicit

On Error Resume Next

Dim strURL, objWinHttp, strResponse

Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

objWinHttp.SetRequestHeader "Content-Type", "application/x-world wide web-form-urlencoded"

'Calling to https neglect to retrieve content

strURL= "https://210.5.42.59:8443/sitepreview/http/test2.com/readme.txt"

WScript.Echo strURL

strResponse= CallHTTPTest(strURL)

WScript.Echo strResponse

'Calling to http effectively retrieve content

strURL= "http://ezinearticles.com/?How-To-Clean-a-Vehicle-With-Vehicle-Signs&id=6452594"

WScript.Echo strURL

strResponse= CallHTTPTest(strURL)

WScript.Echo strResponse

Function CallHTTPTest(strURL)

    objWinHttp.Open "Publish", strURL, false

    objWinHttp.Send

    objWinHttp.SetTimeouts 5000, 60000, 30000, 420000

    objWinHttp.WaitforResponse(440000)

    CallHTTPTest= objWinHttp.ResponseText

Finish Function

I believe you'll have to negotiate the SSL certificates:

Using SSL with WinHTTP