Windows 2000 - Atributos de Active Directory

Buenas,

Tengo un problemilla, a ver si alguien tiene idea de lo que hablo o tiene algún ejemplo por ahi para decirme cómo hacer esto:

Quiero modificar el valor de un atributo de un usuario (en Users) de ldap Active Directory de un servidor. Lo he intentado mediante un VBScript que encontré por ahí, pero no me permite modificar el contenido ya que necesito una "autentificación más fuerte" ¿como podria ser eso?

El codigo que use:

Sub ModifyUsers(oObject)
Dim oUser
For Each oUser in oObject

Select Case oUser.Name
Case "cn=prueba"
oUser.Put "mobile","2344" 'aqui modifico un atributo de prueba
oUser.Setinfo 'aqui casca, necesito autenticarme de alguna forma
msgbox oUser.mobile

End select
Next

End Sub

Dim oDomain
Set oDomain=GetObject("LDAP://213.190.6.124:389/cn=Users,dc=gasdg,dc=es")
ModifyUsers(oDomain)
Set oDomain = Nothing
MsgBox "Finished"
WScript.Quit

Supongo que es a la hora de hacer el GetObject donde debo especificar con que usuario autenticarme, pero no se como hacerlo, alguien tiene algún código?

Saludos y gracias!