Removing old active directory computers

[Red04GT]

I need to find the most effecient way to look up remove the old non existant computer names from our active directory.

Over the years people have come and gone and of course the computer names on the domain have changed as well. Oh wait lets not forget 50 replacement computers when my office got demolished from one of the hurricanes a few years back. Well.... I am looking at roughly 450 objects in the directory when there is in fact only 200 or so machines company wide.

Anyone have any ideas to make my life easier?

There has to be a way to run a script to say ummm.... search for computers on the domain which have been logged into with in the past week, then remove the remaining unaccounted for computer names.



Let me know if you have any ideas

 

[kmkeshav]

You can do it with a simple VBScript. Below is an example:




On Error Resume Next

Set objOU = GetObject("LDAP://OU=ComputersOU,dc=domain,dc=org")
objOU.Filter = Array("Computer")

For Each objComputer in objOU
Set objPC = GetObject(objComputer.ADsPath)
Set objLastLogon = objPC.Get("lastLogonTimestamp")

intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440

StrTime = intLastLogonTime + #1/1/1601#

dtmEndingDate = strTime
intDays = DateDiff("d" , dtmEndingDate, now)

If (intDays > 60) and (intDays < 90) Then
WScript.Echo objComputer.CN & " " & strTime & " " & Intdays
objPC.AccountDisabled = True
objPC.SetInfo
ElseIf intDays > 90 Then
WScript.Echo objComputer.CN & " " & strTime & " " & Intdays & "90"
objPC.DeleteObject(0)
End If
Next




The above script will check for the computer accounts not used for more than 60 days and disables them. Computer accounts will be deleted if not used for more than 90 days.

BE SURE TO TEST THE SCRIPT BEFORE YOU RUN IT IN THE PRODUCTION ENVIRONMENT!!!

Copy the above code to notepad and save it with .vbs extension instead of .txt

Post back if you want more help on this.

-Keshav

 

[Red04GT]

Thanks for the script! I will definately be saving this for future use if necessary.

I ended up finding this little app called oldCMP which did the trick for me. I appreciate your response