codewisdom

Dim a 

a = InputBox("Enter your name here")

Msgbox(a)

Const ADS_PROPERTY_APPEND = 3 

Set objUser = GetObject("LDAP://cn=BPService,cn=Users,dc=k2demo,dc=local")