Ошибка: The requested action with this object has failed

Func post()
	If ProcessExists("proc1.exe") Then
	$aInfo = _WinAPI_GetSystemInfo()

	$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')

	$oRequest.Open('POST', 'http://site.ru/all.php', 0)
	$oRequest.SetRequestHeader('User-Agent', 'firefox')
	$oRequest.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
	$oRequest.Send($aInfo[5])
	$sData = $oRequest.ResponseText
	$oErrorHandler = 0
EndIf


EndFunc

Func post()
    If ProcessExists("proc1.exe") Then
    $aInfo = _WinAPI_GetSystemInfo()

$oErrorHandler = ObjEvent("AutoIt.Error", "MyErrFunc") ; Инициализация обработчика ошибок COM
    $oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')

    $oRequest.Open('POST', 'http://site.ru/all.php', 0)
    $oRequest.SetRequestHeader('User-Agent', 'firefox')
    $oRequest.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
    $oRequest.Send($aInfo[5])
    $sData = $oRequest.ResponseText
    $oErrorHandler = 0
EndIf


EndFunc

Func MyErrFunc()
    MsgBox(4096, "Тест AutoItCOM", "Мы перехватили COM ошибку !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
EndFunc