Public Function do_login()
    Dim intStatus, objLogin
    Set objLogin = CreateLogin()
    If objLogin.Init() Then
        objLogin.SetUsername()
        objLogin.SetPassword()
        objLogin.Submit()       
        intStatus = micPass
    Else
        intStatus = micFail
    End If
    do_login = intStatus
End Function
