REM This Vbs script will prompt you for a Domain name to query and retrieve domain account information for all users in the domain. Set obj = CreateObject("Excel.Application") obj.Visible = True obj.Workbooks.Add i = 2 obj.Cells(1, 1).Value = "AccountExpirationDate" obj.Cells(1, 2).Value = "BadPasswordAttempts" obj.Cells(1, 3).Value = "Description" obj.Cells(1, 4).Value = "FullName" obj.Cells(1, 5).Value = "HomeDirDrive" obj.Cells(1, 6).Value = "HomeDirectory" obj.Cells(1, 7).Value = "LastLogin" obj.Cells(1, 8).Value = "LastLogoff" obj.Cells(1, 9).Value = "LoginHours" obj.Cells(1, 10).Value = "LoginScript" obj.Cells(1, 11).Value = "LoginWorkstations" obj.Cells(1, 12).Value = "MaxLogins" obj.Cells(1, 13).Value = "MaxPasswordAge" obj.Cells(1, 14).Value = "MaxStorage" obj.Cells(1, 15).Value = "MinPasswordAge" obj.Cells(1, 16).Value = "MinPasswordLength" obj.Cells(1, 17).Value = "Name" obj.Cells(1, 18).Value = "objectSid" obj.Cells(1, 19).Value = "Parameters" obj.Cells(1, 20).Value = "PasswordAge" obj.Cells(1, 21).Value = "PasswordExpired" obj.Cells(1, 22).Value = "PasswordHistoryLength" obj.Cells(1, 23).Value = "PrimaryGroupID" obj.Cells(1, 24).Value = "Profile" obj.Cells(1, 25).Value = "UserFlags" On Error Resume Next Set Fso = CreateObject("Scripting.FileSystemObject") strDomainName = InputBox("Enter Domain Name To Query") Set objDomain = GetObject("WinNT://" & strDomainName) objDomain.Filter = Array("user") For Each o2 in objDomain obj.Cells(i, 1).Value = o2.AccountExpirationDate obj.Cells(i, 2).Value = o2.BadPasswordAttempts obj.Cells(i, 3).Value = o2.Description obj.Cells(i, 4).Value = o2.FullName obj.Cells(i, 5).Value = o2.HomeDirDrive obj.Cells(i, 6).Value = o2.HomeDirectory obj.Cells(i, 7).Value = o2.LastLogin obj.Cells(i, 8).Value = o2.LastLogoff obj.Cells(i, 9).Value = o2.LoginHours obj.Cells(i, 10).Value = o2.LoginScript obj.Cells(i, 11).Value = o2.LoginWorkstations obj.Cells(i, 12).Value = o2.MaxLogins obj.Cells(i, 13).Value = o2.MaxPasswordAge obj.Cells(i, 14).Value = o2.MaxStorage obj.Cells(i, 15).Value = o2.MinPasswordAge obj.Cells(i, 16).Value = o2.MinPasswordLength obj.Cells(i, 17).Value = o2.Name obj.Cells(i, 18).Value = o2.objectSid obj.Cells(i, 19).Value = o2.Parameters obj.Cells(i, 20).Value = o2.PasswordAge obj.Cells(i, 21).Value = o2.PasswordExpired obj.Cells(i, 22).Value = o2.PasswordHistoryLength obj.Cells(i, 23).Value = o2.PrimaryGroupID obj.Cells(i, 24).Value = o2.Profile obj.Cells(i, 25).Value = o2.UserFlags i = i + 1 Next Set objDomain = Nothing obj.Range("A1:Y1").Select obj.Selection.Interior.ColorIndex = 19 obj.Selection.Font.ColorIndex = 11 obj.Selection.Font.Bold = True obj.Cells.EntireColumn.AutoFit