Array viser kun sidste post

Hov. fandt lige en fejl i den kode jeg postede

Dim Alias, I, J, arrAlias() = Dim Alias, I, J, arrAlias

ReDim Preserve arrAlias(J)

Tak det der virker fint i mit test script.

Men det virker selvf.. ikke i selve scriptet.
Jeg går ud fra det måske har noget at gøre med at jeg prøve at sætte det til et object?

    Set objWebService = objWMIService.ExecQuery("Select * From IISWebService")

    arrAliases = Array(0,1)
    'ReDim arrAlias(0)
    Set arrAliases(0) = objWMIService.Get("ServerBinding").SpawnInstance_()
    arrAliases(0).IP = IP
    arrAliases(0).Port = Port
    arrAliases(0).Hostname = LCase(Domain)

'ReDim Preserve arrAlias(1)
    Set arrAliases(1) = objWMIService.Get("ServerBinding").SpawnInstance_()
    arrAliases(1).IP = IP
    arrAliases(1).Port = Port
    arrAliases(1).Hostname = "www." & LCase(Domain)

    J=2
    For I=LBound(Alias) To UBound(Alias)

        ReDim Preserve arrAlias(J)
        Set arrAliases(J) = objWMIService.Get("ServerBinding").SpawnInstance_()
        arrAliases(J).IP = IP
        arrAliases(J).Port = Port
        arrAliases(J).Hostname = LCase(Alias(I))
    Next

Og... Den fejlen var

Subscript out of range: '2'
På denne linje
Set arrAliases(J) = objWMIService.Get("ServerBinding").SpawnInstance_()

og.. igen :P

den linje var fra For løkken

Formentlig skal du bare skrive det samme navn hele tiden.

Heh jo god ide.. Så jeg os lige selv :)

Faldt så os lige over at jeg har glemt J=J+1

Hvis du smider et svar så får du point for din hjælp

Jeg samler slet ikke på point, tak.

Ok. Så lukker jeg det bare selv.

Men mange tak for den hurtige hjælpe :D