function ProcessRequest(WinHttpReq, callback)
{
    var window = new ActiveXObject("HTMLFile").parentWindow;
    window.document.close();

    var Interval = window.setInterval(function () {if (WinHttpReq.WaitForResponse(1)) {window.clearInterval(Interval); callback(WinHttpReq);}}, 200)
}

function callback(WinHttpReq)
{
    WScript.Echo(WinHttpReq.ResponseText);
    WScript.Quit();
}

    var WinHttpReq = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
    WinHttpReq.Open("GET", "http://www.microsoft.com", true);
    WinHttpReq.Send();

    ProcessRequest(WinHttpReq, callback);

while (1) {WScript.Sleep(100);}

Option Explicit

Dim WinHttpRequest, TimerGenerator, timerID
Set WinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
Set TimerGenerator = New clsTimerGenerator

WinHttpRequest.Open "GET","http://forum.script-coding.info", true
WinHttpRequest.Send
timerID = TimerGenerator.CreateTimer(getRef("WinHttpRequest_WaitForResponse"),1)

MsgBox "Ожидаем получение данных от сервера. Не закрывайте сообщение."

Sub WinHttpRequest_WaitForResponse()
    if WinHttpRequest.WaitForResponse(0) Then
        MsgBox "Данные получены !"
        MsgBox WinHttpRequest.responseText
        TimerGenerator.DestroyTimer timerID
    End if
End Sub
    
Class clsTimerGenerator
    Private document, window, timerID

    Private Sub Class_Initialize()
        set document = CreateObject("htmlfile")
        set window = document.parentWindow
    End Sub
    
    function CreateTimer(EventHandler,interval)
        CreateTimer = window.setInterval(EventHandler,interval)
    End function
    
    Sub DestroyTimer(timerID)
        window.ClearInterval timerID
    End Sub
End Class

Set HttpAsyncRequest = GetObject("script:" & GetScriptPath & "HttpAsyncRequest.wsc")

HttpAsyncRequest.Open "GET","http://www.goole.ru"
Set HttpAsyncRequest.OnResponseFinished = GetRef("OnResponseFinished")
HttpAsyncRequest.Send ""

MsgBox "Waiting for response..."

Sub OnResponseFinished()
    MsgBox "OnResponseFinished"
End Sub

Function GetScriptPath()
    GetScriptPath = Left(WScript.ScriptFullName,InstrRev(WScript.ScriptFullName,"\"))
End Function

<?xml version="1.0"?>
<component>
<?component error="true" debug="true"?>
<registration
    description="HttpAsyncRequest"
    progid="HttpAsyncRequest.wsc"
    version="1.00"
    classid="{cc8fb035-d00f-46ab-8680-9ef238da21a8}"
>
</registration>
<reference object="WinHttp.WinHttpRequest.5.1"/>
<object id="WinHttpRequest" progid="WinHttp.WinHttpRequest.5.1" events="True" />
<public>
    <property name="OnResponseFinished">
        <put/>
    </property>
    <property name="ResponseText">
        <get/>
    </property>
    <method name="Open">
        <PARAMETER name="Method"/>
        <PARAMETER name="Url"/>
    </method>
    <method name="SetRequestHeader">
        <PARAMETER name="Header"/>
        <PARAMETER name="Value"/>
    </method>
    <method name="GetResponseHeader">
        <PARAMETER name="Header"/>
    </method>
    <method name="Send"/>
</public>

<script language="VBScript">
<![CDATA[
Dim document, window, timerID, OnResponseFinished
Set document = CreateObject("htmlfile")
set window = document.parentWindow

function Open(Method,Url)
    WinHttpRequest.Abort
    WinHttpRequest.Open Method,Url,True
end function

function SetRequestHeader(Header,Value)
    WinHttpRequest.SetRequestHeader Header, Value
end function

function Send(Body)
    WinHttpRequest.Send Body
    window.ClearInterval timerID
    timerID = window.setInterval(getRef("WinHttpRequest_WaitForResponse"),1)
end function

function put_OnResponseFinished(Value)
    Set OnResponseFinished = Value
end function

function GetResponseHeader(Header)
    GetResponseHeader = WinHttpRequest.GetResponseHeader(Header)
end function

function WinHttpRequest_WaitForResponse()
    if WinHttpRequest.WaitForResponse(1) = True Then 
        window.ClearInterval(timerID)
        On Error Resume Next
        OnResponseFinished      
        On Error Goto 0
    End if
end function

function get_ResponseText()
    get_ResponseText = WinHttpRequest.ResponseText
end function

function get_ResponseBody()
    get_ResponseText = WinHttpRequest.ResponseBody
end function

]]>
</script>

</component>

Dim document, window, timerID, WinHttpRequest, ResponseFinished
Set document = CreateObject("htmlfile")
Set window = document.parentWindow
Set WinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

WinHttpRequest.Open "GET","http://www.ya.ru",true
WinHttpRequest.Send
timerID = window.setInterval(getRef("WinHttpRequest_WaitForResponse"),1)

MsgBox "Метод Send вызван асинхронно. Это сообщение сгенерированно после него.",vbInformation

Do While Not ResponseFinished = True
    WScript.Sleep 100
Loop

Sub WinHttpRequest_WaitForResponse()
    if WinHttpRequest.WaitForResponse(1) = True Then 
        window.ClearInterval timerID
        WinHttpRequest_OnResponseFinished()
    End if
End Sub

Sub WinHttpRequest_OnResponseFinished()
    MsgBox "WinHttpRequest_OnResponseFinished"
    ResponseFinished = True
End Sub

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
 <head>
  <title>Mail Qip Enterer</title>
 </head>
 <body>
<script type="text/javascript">

function getTXT(h)
{
return h?h.replace(/<script[^>]*>[\W\w]*?<\/script>/gi,"").replace(/<style[^>]*>[\W\w]*?<\/style>/gi,"").replace(/[\n\r]+/g," ").replace(/<\/?(div|[tb]r)>/gi,"\n").replace(/<[^>]*>/g,"").replace(/&nbsp;/g," ").replace(/\n/gi,"<br>")/*.replace(/</g,"&lt;")*/:" null ";
}
//---------------------------------------------------------
  var
  WinHttpRequestOption_UserAgentString=0,
  WinHttpRequestOption_URL=1,
  WinHttpRequestOption_URLCodePage=2,
  WinHttpRequestOption_EscapePercentInURL=3,
  WinHttpRequestOption_SslErrorIgnoreFlags=4,
  WinHttpRequestOption_SelectCertificate=5,
  WinHttpRequestOption_EnableRedirects=6,
  WinHttpRequestOption_UrlEscapeDisable=7,
  WinHttpRequestOption_UrlEscapeDisableQuery=8,
  WinHttpRequestOption_SecureProtocols=9,
  WinHttpRequestOption_EnableTracing=10,
  WinHttpRequestOption_RevertImpersonationOverSsl=11,
  WinHttpRequestOption_EnableHttpsToHttpRedirects=12,
  WinHttpRequestOption_EnablePassportAuthentication=13,
  WinHttpRequestOption_MaxAutomaticRedirects=14,
  WinHttpRequestOption_MaxResponseHeaderSize=15,
  WinHttpRequestOption_MaxResponseDrainSize=16,
  WinHttpRequestOption_EnableHttp1_1=17,
  WinHttpRequestOption_EnableCertificateRevocationCheck=18; 

function hPOST(url,dat,hHeads,func)
{
    var R=new ActiveXObject("WinHttp.WinHttpRequest.5.1")
    
    R.Open("POST",url,false)//R.Open("POST",url,false)
    for(var i=0;i<hHeads.length;i++)
    {
        var NameVal=hHeads[i].split(": ");
        //alert(NameVal)
        R.SetRequestHeader(NameVal[0], NameVal[1])
    }
    R.SetRequestHeader("Cookie","aaaa=bbbb")//
    R.SetRequestHeader("Cookie","EEE=GGG")//
    R.SetRequestHeader("Cookie","ccc=7777")//куки ставятся
    R.Option(WinHttpRequestOption_EnableRedirects)=0;
    R.SetRequestHeader("Content-Length", dat.length)
    R.Send(dat)
    func(       "Код Ответа: "+R.Status+"<br>"+
               R.GetAllResponseHeaders().split("\n").join("<br>")+"<hr>"+
               R.ResponseText
        )
}//func

var hHeaders=[
"User-Agent: Opera/9.80 (Windows NT 6.1; U; googlebot/2.1; ru) Presto/2.7.39 Version/11.00",
"Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif: image/x-xbitmap, */*;q=0.1",
"Accept-Language: ru,en;q=0.9,ru-RU;q=0.8",
"Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1",
//"Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0",
"Referer: http://mail.qip.ru/",
"Connection: Keep-Alive, TE",
"TE: deflate, gzip, chunked, identity, trailers",
"Content-Type: application/x-www-form-urlencoded"
];
var auth="user=sftest&dom=qip.ru&domain=qip.ru&reason=login&pass=asdasd";

hPOST("http://mail.qip.ru/auth/logon",auth, hHeaders,function(a)
    {
    document.body.innerHTML+=getTXT(a)

    })

  </script>
 </body>
</html>