MailEnable script søges

Hej jeg bruger MailEnable som mail server. og er ved at kode en script der kan oprette mail konto og det går næste også fint nok. da jeg godt kan skriver den der oprette admin konto men når jeg skal skrive bruger konto virker det ikke. og søger nu en på exp der kender til MailEnable..

Mit script ser sådan ud.

    Function Opretmail(sPostoffice,sPostmaster,sPassword)
        Dim oWebAdmin
       
        Set oWebAdmin = Server.CreateObject("MEWebAdmin.Postoffice")
            oWebAdmin.Account = sPostoffice
            oWebAdmin.Name = sPostoffice
            oWebAdmin.status = 1
            lResult = oWebAdmin.AddPostoffice
        If (lResult = 0) Then
            Set oMailbox = Server.CreateObject("MEWebAdmin.Mailbox")
            oMailbox.Postoffice = sPostoffice
            oMailbox.Limit = -1
            oMailbox.Mailbox = sPostmaster
            oMailbox.RedirectAddress = ""
            oMailbox.RedirectStatus = 0
            oMailbox.Status = 1
            lResult = oMailbox.AddMailbox
            If (lResult = 1) Then
                Set oLogin = Server.CreateObject("MEWebAdmin.Login")
                oLogin.Account = sPostoffice
                oLogin.Description = "User Mailbox"
                oLogin.Password = sPassword
                oLogin.Rights = "USER"
                oLogin.Status = 1
                oLogin.UserName = sPostmaster & "@" & sPostoffice
                lResult = oLogin.AddLogin
                If (lResult = 1) Then
                    Opretmail = 1
                end if
            end if
        end if           
   

End function

script oprette konto. men jeg kan ikke senden mail til den.