[windows2000] Re: Identifying and Removing Dead User Accounts from NT Domain

  • From: "Durbin, Jeff" <jdurbin@xxxxxxxxxxxxxxxxxxx>
  • To: <windows2000@xxxxxxxxxxxxx>
  • Date: Thu, 11 Sep 2003 18:38:41 -0700

Ask and you shall receive. Save the text below as a file with a VBS
extension. Double-click it. It will ask you for a domain name. Tell it
the domain name, and it will produce a file called "LoginTimeLog.csv".
It's just a plain text file, but if you open it in Excel, you can select
all cells, then click Data, Sort, and use the second column. Then you'll
have a list of accounts and their last login times, sorted by login
Jeff Durbin
Option Explicit
On Error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim strOut, strDomain
  strDomain = Inputbox("Domain to query?")
  if strDomain = "" then wscript.quit
  GetLastLoginTimesForDomainUsers strDomain
  CreateLogFile "LoginTimeLog.csv", strOut
  msgbox "Done." 
' ------------------
' ------------------
Sub GetLastLoginTimesForDomainUsers(strDomainName)
  On Error Resume Next
  Dim oDomain, oUser, strLastLogin
  Set oDomain = GetObject("WinNT://" & strDomainName)
  oDomain.Filter = Array("User")
  For each oUser in oDomain
    strLastLogin = "Never"
    strLastLogin = oUser.LastLogin
    strOut = strOut & oUser.Name & "," & strLastLogin & vbCRLF
End Sub
Sub CreateLogFile(strFileName,strDataToWrite)
  Dim oFS, oFile
  Set oFS = CreateObject("Scripting.FileSystemObject")
  Set oFile = oFS.OpenTextFile(strFileName, ForWriting, True)
  oFile.Write strDataToWrite
  set oFile = nothing
  set oFS = nothing
End Sub

        -----Original Message-----
        From: windows2000-bounce@xxxxxxxxxxxxx
[mailto:windows2000-bounce@xxxxxxxxxxxxx] On Behalf Of Ibrahim Abdi,
        Sent: Thursday, September 11, 2003 6:27 AM
        To: 'windows2000@xxxxxxxxxxxxx'
        Subject: [windows2000] Identifying and Removing Dead User
Accounts from NT Domain

        Hi all, 

        I am running an NT domain here with approx 500 users altogether
in this site. We are planning to move over to AD soon as part of our
preparation I would like to scan my NT4 PDC for dead user accounts so I
can remove them all prior to migration so my new Ad will only contain
active user accounts instead of loads of unused or disabled accounts
from people that may not be here anymore. So my question is: Is there a
resource kit Util or script or anything out there that will scan my
master SAM file or the user accounts on the PDC and tell me which
accounts have not been used for sometime and stuff?

        Any feedback appreciated. Many thanks in advance 


Other related posts: