Как использовать учетные данные текущего авторизованного пользователя для аутентификации на сайте, не открывая его (сайт), и получить код состояния HTTP?

Question

Я пытаюсь получить код состояния определенных URL-адресов, перечисленных в Excel, и хочу записать их статус независимо от того, работает он или нет в соседнем столбце.

Ниже код работает нормально в в случае некоторых доменов, таких как google.com, Facebook.com

, но при попытке получить код состояния сайта intr anet выдается ошибка. Доступ запрещен

Так есть ли способ присоединить учетные данные текущего вошедшего в систему пользователя с заголовком запроса до его попадания на сервер?

Ниже приведен код, который я пробовал:

Sub checkWorkingUrls()
Set sh = ThisWorkbook.Sheets(1)
Dim column_number: column_number = 1
For i = 1 To 4
    strURL = sh.Cells(i, column_number)
    sh.Cells(i, column_number + 1) = CallHTTPRequest(strURL)
Next
End Sub

Function CallHTTPRequest(strURL)
Dim objXMLHTTP

    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.Open "HEAD", strURL, False
    objXMLHTTP.send
    Status = objXMLHTTP.Status
    Set objXMLHTTP = Nothing
    CallHTTPRequest = Status
End Function

Любая помощь будет оценена Спасибо