Link to home
Start Free TrialLog in
Avatar of Side
Side

asked on

Vbscript with input box to seach AD for user then change 1 atribute for that user

Hi,

I have been trying to create a VBscript that will prompt for a username, Then Seach AD for the user
once the user is found give the option to change "msRTCSIP-OptionFlags" to  272

i just cant seem to get my head around using VBS with AD can anyone help?
Avatar of George Khairallah
George Khairallah
Flag of United States of America image

Are you looking for something like this.... ?
Const ADS_PROPERTY_UPDATE = 2 
Set objUser = GetObject _
   ("LDAP://cn=Last\, First,ou=department,ou,dc=example,dc=com") 
 
objUser.Put "msRTCSIP-OptionFlags", "272"
objUser.SetInfo

Open in new window

Avatar of Side
Side

ASKER

Quite close and thank you , the and as i say i cant really script to save my life, because its a task i do quite a lot , i wanted to be able to just type the user name in a input box at the start
ASKER CERTIFIED SOLUTION
Avatar of George Khairallah
George Khairallah
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Side

ASKER

Brilliant thank you