home folder

[Jayesh Talsaniya]

i am facing an error: "can not create activex control." while creating a activex directory user home folder. the code is as below: Dim oContainer As ActiveDs.IADsContainer Dim oUser As ActiveDs.IADsUser Dim strFirstName As String Dim strLastName As String Dim strSAMAcctName As String Dim strPassword As String 'Dim oGroup As DictionaryEntry strFirstName = "First" 'Trim(Me.txtFirstName.Text) strLastName = "Last" 'Trim(Me.txtLastName.Text) strPassword = "password" strSAMAcctName = LCase(Left(strFirstName, 1) & strLastName) oContainer = GetObject("LDAP://dc=abc,dc=com") oUser = oContainer.Create("user", "cn=" & strFirstName & " " & strLastName) oUser.Put("displayName", strFirstName & " " & strLastName) oUser.Put("FirstName", strFirstName) oUser.Put("LastName", strLastName) oUser.Put("sAMAccountName", strSAMAcctName) oUser.Put("userPrincipalName", strSAMAcctName & "@abc.COM") oUser.EmailAddress = strSAMAcctName & "@abc.com" 'oUser.homedrive = "U:" oUser.HomeDirectory = "\\192.168.87.154\Home-drive\" & strSAMAcctName Try oUser.SetInfo() Catch MsgBox("User Already Exists", MsgBoxStyle.Critical, "UserExists!") End Try Try If oUser.AccountDisabled = True Then oUser.AccountDisabled = False oUser.SetInfo() End If Catch ex As Exception MsgBox("Error trying to enable account", MsgBoxStyle.Critical, "Enable Account Failed") 'Me.txtResults.Visible = True End Try Try oUser.SetPassword(strPassword) oUser.Put("pwdLastSet", 0) oUser.SetInfo() Catch ex As Exception MsgBox("Error trying to enable account", MsgBoxStyle.Critical, "Enable Account Failed") End Try Jayesh Talsaniya

[Dave Kreskowiak]

So, on which line does this thing blow up?

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
     2006, 2007