Solved

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

Posted on 2004-09-07
9
458 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
What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

 

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

Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

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

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
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…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

803 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