ASP and LDAP

Hi,

I'm trying to use this code to set a users ldap password via an ASP page

<%@ Language=VBScript %>
<%

'On Error Resume Next
if(request.form("currpass") <> "" AND request.form("newpass1") <> "" AND request.form("newpass2") <> "" AND request.form("newpass1") = request.form("newpass2")) Then
strOldPassword = request.form("currpass")
strNewPassword = request.form("newpass1")

set objSysInfo = CreateObject("ADSystemInfo")
response.write objSysInfo.UserName
set objUser = GetObject("LDAP://ldap.nzan.co.nz/" & objSysInfo.UserName)
objUser.ChangePassword strOldPassword,strNewPassword
     if(Err.Number <> 0) Then
%>
     <script>
          self.location='<% response.write replace(Request.ServerVariables("HTTP_REFERER"),"&wrongpass=true","") %>&wrongpass=true';
     </script>
<%
     end if
objUser.SetInfo
if(Err.Number = 0) Then %>
     <script>
          self.location='<% response.write replace(Request.ServerVariables("HTTP_REFERER"),"&wrongpass=true","") %>&passchanged=true';
     </script>
<%
end if
end if
%>

I works on our development server, but when we deploy to our client's server we get this error:

Active Directory error '8000500c'

The Active Directory datatype cannot be converted to/from a native DS datatype

/nzan_intranet/changepassword.asp, line 13


Can anyone help?

Thanks