| Вопрос: RAS API | Добавлено: 14.10.03 20:35 |
Автор вопроса:  snakelair
|
|
Что я делаю не так мож кто подскажет, никак не пойму, мне нужно получить данные пользователя. Вот что я наделал: Option Explicit Private Type PRAS_USER_1 bfPrivilege As String wszPhoneNumber(20) As Byte bfPrivilege2 As String End Type Private Declare Function MprAdminUserGetInfo Lib "mprapi.dll" _ (ByRef lpszServer As Byte, ByRef lpszUser As Byte, ByVal dwLevel As Long, _ ByVal lpbBuffer As String) _ As Long Private Sub Form_Load() Dim user As String, server As String Dim ucuser() As Byte, ucserver() As Byte Dim info Dim err user = "Snake" server = "SNAKELAIR" ucuser = StrConv(user, vbUnicode) ucserver = StrConv(server, vbUnicode) err = MprAdminUserGetInfo(ucserver(0), ucuser(0), 1, info) Debug.Print err End Sub |
| Ответы | Всего ответов: 0 |
Страница: