Søke etter brukere

[uffolsen]

Noen som vet hvordan jeg får utvidet denne koden til å søke etter brukernavn i AD som inneholder flere enn 4 tegn i brukernavnet?

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "User Name"

objExcel.Cells(1, 2).Value = "Full Name"

objExcel.Cells(1, 3).Value = "Description"

strDomain = InputBox ("Enter Domain Name")

Set DomObj = GetObject("WinNT://" & strDomain )

DomObj.Filter = Array("User")

For Each objUser In DomObj

objExcel.Cells(intRow, 1).Value = objUser.Name

objExcel.Cells(intRow, 2).Value = objUser.FullName

objExcel.Cells(intRow, 3).Value = objUser.Description

intRow = intRow + 1

Next

objExcel.Range("A1:C1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Done"

[miXer]

Hvis du allerede har hentet ut alle navn fra ad og lagt dem i DomObj kan du sjekke om DomObj.Name.Length >= 4