Autenticación inicial de la cuenta del servidor WINDOWS2000

'' Modificar contraseñas para intranets y buzones de correo
adsPath = "LDAP: //archivo /cn =" &userflag &", cn = usuarios, dc = yulong , dc = com "
Set oo = GetObject (" LDAP: ")
on error resume next
Set obj = oo.OpenDSObject (adsPath, userflag, oldPwd, 0)
if err.Number < > o entonces
err.clear
% >
< script language = "javascript" >
alert ("El nombre de usuario o la contraseña son incorrectos, vuelva a ingresarlos");
history.go (-1);
< /script >
<%
else
'' Response.Write "newPwd =" &newPwd
obj.SetPassword newPwd
'' Response.Write "< hr >"
Response.Write ("< div class = aa > ¡Ha modificado correctamente la contraseña de su red! < /div >")
finalice si
% >

//básicamente solo cambia dc = yulong, dc = com este lugar, cambia a tu propio dominio