Solved

How do I delete user account from AD using vbscript and a spreadsheet with the accounts to remove

Posted on 2008-06-19
5
1,848 Views
Last Modified: 2008-10-28
I need a vbscript that will look at a spreadsheet and then delete those accounts from Active Directory based on the user logon.
0
Comment
Question by:WNottsC
  • 3
5 Comments
 
LVL 24

Accepted Solution

by:
purplepomegranite earned 500 total points
ID: 21820796
The attached should do what you want.

I have tested the Excel code part (just change the variables at the beginning of the script for your needs), but I have been unable to check the AD part due to not being on a domain right now (or having access to a lab domain), so this part needs testing.

It should work - it was taken from another script to delete user accounts that worked.  Let me know!
strSourceWorkbook="E:\ee\AD\Delete AD Accounts from Excel List\test.xls" ' The workbook containing the account list
strSourceSheet="Sheet1" ' Set this to the name of the sheet containing the username list
rngUsername="B2" ' Set this to the first cell containing username in Excel
 
On Error Resume Next
Const ADS_PROPERTY_DELETE = 4
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D
 
' Initialise Excel
set oExcel=CreateObject("excel.application")
if Err.Number<>0 then
	Err.Clear
	WScript.Echo "Failed to open Excel"
	WScript.Quit
end if
oExcel.Visible=false
oExcel.DisplayAlerts=false ' Don't show any dialog box prompts
 
' Initialise connection
set adoCon = CreateObject("ADODB.Connection")
set adoCmd =   CreateObject("ADODB.Command")
adoCon.Provider = "ADsDSOObject"
adoCon.Open "Active Directory Provider"
set adoCmd.ActiveConnection = adoCon
adoCmd.Properties("Page Size") = 1000
adoCmd.Properties("Timeout") = 30
adoCmd.Properties("Cache Results") = False
 
' Obtain usernames from Excel file
set srcWorkbook=oExcel.Workbooks.Open(strSourceWorkBook)
if Err.Number=0 then
	i=0
	while not srcWorkbook.Sheets(strSourceSheet).Range(rngUsername).Offset(i).Value=""
		strUsername=srcWorkbook.Sheets(strSourceSheet).Range(rngUsername).Offset(i).Value
		wsclript.echo "Deleting user " & strUserName
		DeleteUser strUsername
		i=i+1
	wend
	srcWorkbook.Close
else
	wscript.echo "Couldn't open workbook: " & Err.Description
	Err.Clear
end if
oExcel.Quit
 
' Close connection
adoRec.Close
set adoRec = Nothing
adoCon.Close
set adoCon = Nothing
 
 
sub DeleteUser(strUsername)
	set objRootDSE = GetObject("LDAP://RootDSE")
	strDNSDomain = objRootDSE.Get("defaultNamingContext")
	strFilter = "(&(SAMAccountType=805306368)(SAMAccountName=" & strUsername & "))"
	strFields = "distinguishedName, ADsPath"
 
	strQuery = "<LDAP://" & strDNSDomain & ">;" & strFilter & ";" & strFields & ";subtree"
	adoCmd.CommandText = strQuery
	set adoRec = adoCmd.Execute
	while not adoRec.EOF
	      set objUser = GetObject(adoRec.Fields("ADsPath").Value)
			wscript.echo "Deleting " & objRecordSet.Fields("distinguishedName").Value
			Set objUser = GetObject("LDAP://" & objRecordSet.Fields("distinguishedName").Value)
			objUser.Delete "user", "distinguishedName=" & objRecordSet.Fields("distinguishedName").Value
	      adoRec.MoveNext
	wend
end sub

Open in new window

0
 
LVL 24

Expert Comment

by:purplepomegranite
ID: 22007922
Thanks for the points, but why the B-grade?

http://www.experts-exchange.com/help.jsp#hi97
0
 

Author Comment

by:WNottsC
ID: 22008005
The solution was very good but I did have to provide a few changes in order to get this fully functioning.
0
 
LVL 24

Expert Comment

by:purplepomegranite
ID: 22008017
Thanks for clarifying.  Would it be possible to post the changes so that this question has a complete solution for anyone else looking for a similar function?  And also for my reference, of course! :-)
0
 
LVL 6

Expert Comment

by:Ahmed Abdel Salam
ID: 22802688
I am looking for same request .. this script is not working

any update on this ??
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
numbers ascending pyramid 101 195
Advice in Xamarin 21 79
How can i open a .fxp file 3 33
Is there a way to find out which control will have the next focus in VBA 31 38
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
The viewer will learn how to count occurrences of each item in an array.

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question