code:

---

:MyCompany
:--Computers
:--Delete these later
:----jeff
:----brian
:----greg
:--Groups
:--Policies
:--Servers
:--Users
:----bill
:----dave
:----steve
:--TestGroup

---

code:

---

; ListUsersInOU.kix
break on
CLS
;REDIRECTOUTPUT ("C:\TEMP\Delete these later.TXT", overwrite)
$Users = GetObject("LDAP://ou=Users,ou=MyBusinessUnit,dc=MyRegion,dc=MyCompany,dc=com")
  for each $member in $Users
   ? $member.SamAccountName
  next
;REDIRECTOUTPUT ("")

---

code:

---

; DeleteUserAccounts.kix
; By NTDOC  07-23-2002

Break On
$nul = MESSAGEBOX("This script will DELETE ALL accounts in the specified OU and remove the Home Folder and ALL data...   _
       WARNING - WARNING   This is an irreversible action.  Click CANCEL to quit now, otherwise the removal of all accounts _ 
       and data will 	continue...", "User Account Deletion", 273)
If $nul = 1
$Users = GetObject("LDAP://ou=Testing,ou=MyRegion,dc=MyDomain,dc=MyCompany,dc=com")
; You need to modify the $Users LDAP for your own AD path.
$Users.filter = "a","User"
	For Each $member in $Users
		$x = $member.SamAccountName
		? "Removing account and home folder for "+$x
		Shell '%COMSPEC% /C RD /S /Q "\\MyServer\USERS\$x"'
		$Users.Delete ("User", $member.name)
		? ''+@ERROR+' - '+@SERROR
	Next
Endif

---