active directory change password??

[squarefish]

Can someone tell me why this works as vbs but not when run through IIS??
We run win2003 IIS6 with anonymous access denied. With the web script I get

error '80072020'
/admintasks/setpass.asp, line 5

Thanks
Richard

[web script]
Set objRootDSE = GetObject("LDAP://RootDSE")
objMyDomain = objRootDSE.Get("defaultNamingContext")
strOBJ = "CN=Fred Bloggs,OU=mmg," & objMyDomain
response.write strOBJ
Set objUser = GetObject("LDAP://"&strOBJ)
objUser.SetPassword "qweqwe"
response.write "password changed"

[vbs script]
Set objRootDSE = GetObject("LDAP://RootDSE")
objMyDomain = objRootDSE.Get("defaultNamingContext")
strOBJ = "CN=Fred Bloggs,OU=mmg," & objMyDomain
msgbox strOBJ
Set objUser = GetObject("LDAP://"&strOBJ)
objUser.SetPassword "qweqwe"
msgbox "password changed"
%>

[chrismartz]

Doesn't strOBJ = "CN=Fred Bloggs,OU=mmg," & objMyDomain need to be strOBJ = "CN=Fred Bloggs,OU=mmg,O=" & objMyDomainIf not, checkout http://www.windowsitpro.com/Article/ArticleID/42425/42425.html