Vista - Error in script to delete AD account - Passing variable to strUser

Hi all. I'm looking for some help on the following code. It's part of a
larger scriopt that basically takes a username from a list containing
multiple username, processes it and then delete's the user's account from
Active Directory. The user's username is passed to the variable "ip".

I've had the script working using a input box to take the username, but I'm
struggling when trying to pass the username via another vairable.

The error I get is a syntax error on the 6th line in:


strUserName = ip

' Call function to delete user
DeleteUser strUserName,strDomain

sub DeleteUser(byval strUserName,strDomain)

userDN = GetUserDN(strUserName,strDomain)
set objUser = getObject("LDAP://" & userDN)
set objContainer = getobject(objUser.Parent)
objContainer.Delete "user","cn=" & objUser.cn

end sub

Function GetUserDN(byval strUserName,byval strDomain)

Set objTrans = CreateObject("NameTranslate")
objTrans.Init 1, strDomain
objTrans.Set 3, strDomain & "\" & strUserName
strUserDN = objTrans.Get(1)
GetUserDN = strUserDN

end function

Any help greatly appreciated.

N

Sorry for multiple posts, website said there was an error posting so I
re-submitted.

N

"nlldavies" wrote: