Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

ADSI Active Directory - User Modification VB Errors - PutEx, GetInfoEx

Posted on 2004-09-07
9
459 Views
Last Modified: 2013-12-25
I sincerely need some help with this one... I've been banging my head on the wall for ages...
I'm trying to modify the telephone numbers of a bunch of users in Active Directory whose Usernames I know... It connects to the user no problem... I can then access properties like "Full Name" without a problem...
BUT
When I try to access "TelephoneNumber" I receive "The Active Directory property cannot be found in the cache". So I did some research and you need to call getInfoEx to populate the variables... which I am now doing, but still get the same error.

Anyway, that aside, as I dont necessarily need to access the variable just set it... so I tried just using Put and PutEx to set the number and I receive "Automation Error" when calling both Put and PutEx.

I would really, really appreciate some help.

Here's the code which References the Active DS Type Library - c:\winnt\system32\activeds.tlb:
'--------------------------------------
Const ADS_PROPERTY_CLEAR = 1
Const ADS_PROPERTY_UPDATE = 2
Const ADS_PROPERTY_APPEND = 3
Const ADS_PROPERTY_DELETE = 4

Dim dso As IADsOpenDSObject
Dim container As IADsContainer
Dim tmpUser As IADsUser
Set dso = GetObject("WinNT:")
Set tmpUser = dso.OpenDSObject("WinNT://AD/jamesb", "Administrator", "password", 1)

tmpUser.GetInfoEx Array("telephonenumber"), 0
MsgBox tmpUser.Get("telephonenumber")
tmpUser.PutEx ADS_PROPERTY_UPDATE, "telephoneNumber", "0123456789"
tmpUser.SetInfo
'--------------------------------------

0
Comment
Question by:jamesbreen
  • 4
  • 3
9 Comments
 
LVL 8

Expert Comment

by:mladenovicz
ID: 11996618
0
 

Author Comment

by:jamesbreen
ID: 11996760
cheers mladenovicz, but this is what I have been going from!
According to the articles on that site my code should work.

0
 
LVL 8

Expert Comment

by:mladenovicz
ID: 11996834
I am not quite sure, but maybe property name is case sensitive

tmpUser.GetInfoEx Array("telephonenumber"), 0

tmpUser.PutEx ADS_PROPERTY_UPDATE, "telephoneNumber", "0123456789"

so try to change this to

tmpUser.PutEx ADS_PROPERTY_UPDATE, "telephonenumber", "0123456789"
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Author Comment

by:jamesbreen
ID: 11996908
unfortunately not... just tried it.
sorry
0
 
LVL 8

Expert Comment

by:mladenovicz
ID: 11996939
Try

tmpUser.PutEx ADS_PROPERTY_UPDATE, "telephoneNumber", Array("0123456789")
0
 
LVL 8

Expert Comment

by:mladenovicz
ID: 11996956
or maybe, you should append that property to the collection:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/iads_putex.asp
0
 

Author Comment

by:jamesbreen
ID: 11997030
afraid not... the array change didnt work...
and the value I am updating is a single value... you only append when its a multivalue field I think.
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
ID: 12279846
PAQed, with points refunded (125)

Computer101
E-E Admin
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

860 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