To create a Email Id and enable it using vbscript in an active directory -

can me create email id , enable it, using vbscript , active directory. kind of appreciated.

thanks in advance!

source code attempted in comments:

dim oiadsuser  dim omailbox  set oiads = getobject("ldap://rootdse")  strdefaultnc = oiads.get("defaultnamingcontext") 'msgbox findanymdb("cn=configuratio  set oiadsuser = getobject("ldap://cn=test1,cn=users," & strdefaultnc)  if oiadsuser nothing      msgbox "the oiadsuser nothing."  else      msgbox "the oiadsuser created successfully."  end if  set omailbox = oiadsuser  omailbox.createmailbox  findanymdb("cn=configuration," & strdefaultnc)  oiadsuser.setinfo   function findanymdb(strconfigurationnc)      dim oconnection      dim ocommand      dim orecordset      dim strquery      ' open connection.      set oconnection = createobject("adodb.connection")      set ocommand = createobject("adodb.command")      set orecordset = createobject("adodb.recordset")      oconnection.provider = "adsdsoobject"      oconnection.open "ads provider" '... source code incomplete.