asked on
[code] For Each ID In PSOut
i = i + 1
'Dim str(6) As String
Dim str(ColumnCount) As String
Dim ItCount As Integer = 0
Dim itm As ListViewItem
' Do While ItCount < ColumnCount
For Each strHeadDSingle In strHeadD2
str(ItCount) = ID.Properties("name").Value.ToString() ' ### WORKS FINE
ItCount = ItCount + 1
Next
' Loop
' Name, SamAccountName, EmailAddress, PrimarySMTPAddress, UserPrincipalName, DistinguishedName, Enabled"
itm = New ListViewItem(str)
ListView1.Items.Insert(0, itm)
Next
[/code] For Each ID In PSOut
i = i + 1
'Dim str(6) As String
Dim str(ColumnCount) As String
Dim ItCount As Integer = 0
Dim itm As ListViewItem
' Do While ItCount < ColumnCount
For Each strHeadDSingle In strHeadD2
str(ItCount) = ID.Properties(strHeadDSingle).Value.ToString() ' ### ERRORS THIS LINE
ItCount = ItCount + 1
Next
' Loop
' Name, SamAccountName, EmailAddress, PrimarySMTPAddress, UserPrincipalName, DistinguishedName, Enabled"
itm = New ListViewItem(str)
ListView1.Items.Insert(0, itm)
Next