Deleting users from an OU

When I run the following script, I get an error message: Line 2, Char 19,
Exprected end of statement.
Can anyone help me out please?

Set objOU =
GetObject("LDAP://ou=047UDiploma,ou=047USchool,ou=sectionU06,ou=User
Accounts,dc=student,dc=cssd,dc=ab,dc=ca")
objOU.Delete user cn=047-c110-01
objOU.Delete user cn=047-c110-02
objOU.Delete user cn=047-c110-03
objOU.Delete user cn=047-c110-04
objOU.Delete user cn=047-c110-05
objOU.Delete user cn=047-c110-06
objOU.Delete user cn=047-c110-07
objOU.Delete user cn=047-c110-08
objOU.Delete user cn=047-c110-09
objOU.Delete user cn=047-c110-10
objOU.Delete user cn=047-c110-11

Deleting users from an OU

The parameters of the Delete method need to be in quotes, separated by a
comma. The syntax should be:

objOU.Delete "user", "cn=047-c110-01"

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

Thanks Richard. I tried your suggestion before posting but it didn't work.

Thanks Richard.  I tried your suggestion before posting but it didn't work.
But now it is.  It's a long, sordid story...
I used Excel to masage together my user names and the paramters.  Then I
realized I needed double quotation marks around the parameters.  I was able
to use the replace function in Notepad to add most of the double quotes, but
I couldn't figure out how to 'say' add double quotes to the end of each line
(in Notepad).  Word let me use ^p in the replace function so I could replace
^p with ^p".  But then when I ran the script, the computer wouldn't
recongnize the double quotes produced by Word.  So I finally figured out to
use the Word replace function to add ZZ to the end of each line.  Then, in
Notepad, I was able to replace the ZZ with double quotes created by Notepad
and all worked well.  Then I cursed and said to myself, "The accounts
already existed.  Why didn't I just export them to a txt file instead of an
Excel file and massaging data from there!"  Next time...

Deleting users from an OU

I'm not sure what your code looks like, but the Delete method parameters can
be variables with string values assigned. For example, I would expect code
similar to the following to work:

strClass = "user"
strUserCN = objCell(intRow, intCol).Value
objOU.Delete strClass, "cn=" & strUserCN

and, if objCell(intRow, intCol).Value is equal to "cn=047-c110-01", then you
could use:

objOU.Delete strClass, strUserCN

The reason the first version did not work is that without the quotes, the
interpreter decided that user and cn=047-c110-01 were both variable names
(with blank values). The important thing is that you got the program to
work.

Thank you again Richard.

Thank you again Richard.  Going on what you have here, if I wanted to add a
profile path to all users, I could do something like

strUserCN=objCell(intRow,2).Value
objUser.Put "profilePath", \\server\profile.man$

and just have it loop til it comes to an empty cell?  (assuming I have the
values for CN in column 2)

Jeremy