Group Policy to Disbale Users
Schedule a script on a dc that runs every x time.
It's job: disable all account found in your OU "Disabled Users"
Script could like this:
On Error Resume Next
Const ADS_UF_ACCOUNTDISABLE = 2
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
Set objOU = GetObject ("LDAP://ou=Disabled
Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
ObjOU.Filter= Array("user")
For Each objUser in objOU
objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE
objUser.SetInfo
Next
---
Kurt Roggen
http://blogontheweb.com/roggenk
|