Dim objDSE, objADObject

Set objDSE = GetObject("LDAP://rootDSE")
Set objADObject = GetObject("LDAP://CN=mita,OU=Mathematik,OU=Mitarbeiter," & _
	objDSE.Get("defaultNamingContext"))

wscript.echo objADObject.accountExpires.HighPart
wscript.echo objADObject.accountExpires.LowPart

wscript.echo objADObject.accountExpirationDate

objADObject.accountExpirationDate="21.05.2006"
objADObject.SetInfo