[andDaviD]

Спасибо. Разобрался. У меня так заработало:

Код:

strNTDomain = "david"
strAdminUsername = "R"
strAdminPassword = "100200300Aa_"
strClientUsername = "Bala"
strOldPassword = "100200300Aa__"
strNewPassword = "100200300Aa_"


Set objIADSUser = GetObject("WinNT:").OpenDSObject("WinNT://david/" & strClientUsername & ",user", strAdminUsername ,strAdminPassword , ADS_SECURE_AUTHENTICATION)

objIADSUser.ChangePassword strOldPassword,strNewPassword
objIADSUser.SetInfo

Осталось это к C# прилепить.Но это уже другая история )