Autentificación en una pagina web

Hola,

Necesito autentificarme en la siguiente pagina, pero no se como. Cuando ejecuto la macro me aparece un cuadro de dialogo para ingresar el usuario y contraseña, pero quiero que eso lo haga la macro.

Sub Estadisticas()
 With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;http://192.168.1.119/control/player?cameralist=true", Destination:=Range("b1048576").End(xlUp).Offset(2, -1))
 '.CommandType = 0
 .Name = "player?cameralist=true"
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .BackgroundQuery = True
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .WebSelectionType = xlEntirePage
 .WebFormatting = xlWebFormattingNone
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
 End With
End Sub