ad目录中添加用户属性
Sub ADSICreateMailBoxRecipient(MDBName As String, _ StorageGroup As String, _ Server As String, _ AdminGroup A