Пробовал так:
Dim objHttp
       Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
objHttp.Open "GET", "http://admin:admin@192.168.1.1/", False
       objHttp.Send
   aa = objHttp.ResponseText
WScript.Echo aa  
Set objHttp = Nothing
Получается 401 - Unauthorized

objHttp.Open "GET", MyUrl, false, "Valid NT UserName", "NT UserPassword"

http://support.microsoft.com/kb/291008

Не?

(1) Спасибо, помогло, кавычки рулят :)