Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")
Set oMDUserInfo = Server.CreateObject("MDUserCOM.MDUserInfo")
If oMDUser.LoadUserDll() = True Then
oMDUser.InitUserInfo(oMDUserInfo)
oMDUserInfo.FullName = sFullName
oMDUserInfo.MailBox = sUserName
oMDUserInfo.Password = sPassword
oMDUserInfo.Domain = sDomain
oMDUser.FilterUserInfo (oMDUserInfo)
nResult = oMDUser.AddUser (oMDUserInfo)
Select Case nResult
Case MDDLLERR_NOERROR
sMessage = "使用者註冊成功!"
Case MDDLLERR_USEREXISTS
sMessage = "使用者名稱： '" & sUserName & "' 已存在!註冊失敗！"
case Else
sMessage = "註冊使用者失敗 ! 錯誤碼:" & nResult
End Select
oMDUser.FreeUserDll
Else
sMessage = "錯誤: 不能載入DLL檔案"
End If
Set oMDUser = Nothing
