uffolsen Skrevet 14. januar 2009 Del Skrevet 14. januar 2009 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" Lenke til kommentar
Skagen Skrevet 14. januar 2009 Del Skrevet 14. januar 2009 Det holder med én tråd i riktig kategori. Tråden stenges og reaksjoner på moderering gjøres pr. PM/melding. Lenke til kommentar
Anbefalte innlegg