How to set password expiration date of Active Directory user (VBScript)

I am writing an application that communicates with Active Directory and I need to test how it behaves when the password of a user account in Active Directory has only a few days until its expiration date.

Therefore my question is: how can I set the password expiration date of a particular Active Directory user account to a date like "today + 2 days" (without changing the password expiration policy, of course!). I am looking for a way to do that using VBScript.

I have already tried this approach:

• Using IADsUser::PasswordExpirationDate, see code example below: Problem: setting PasswordExpirationDate fails with error code 0x800A01BD. It only succeeds with value 0 ("expire now").

Code example:

'VBScript
strUserName = "test97" 
Set objUser = GetObject("LDAP://CN=" & strUserName & ",CN=Users,DC=mydomain,DC=com") 
dtmDate = Now+2 
objUser.PasswordExpirationDate = dtmDate 
objUser.SetInfo 
MsgBox "Successfully changed password expiration date"