Гость
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Как узнать Имя пользователя, ПБ 9.0.3 / 4 сообщений из 4, страница 1 из 1
20.11.2008, 16:23
    #35666125
Imperous
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать Имя пользователя, ПБ 9.0.3
Всем привет!
Как узнать имя компа понятно - computernameA.
А вот как узнать Имя пользователя компа?
...
Рейтинг: 0 / 0
20.11.2008, 16:39
    #35666180
VanoR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать Имя пользователя, ПБ 9.0.3
наверно что-то из этого
Код: plaintext
1.
Function boolean GetUserName (ref string  lpBuffer, ref ulong nSize) Library "ADVAPI32.DLL" Alias for "GetUserNameA"
Function boolean LogonUser ( ref string lpszUsername, ref string lpszDomain, ref string lpszPassword, ulong dwLogonType,  ulong dwLogonProvider, ref ulong phToken) Library "ADVAPI32.DLL" Alias for "LogonUserA"
...
Рейтинг: 0 / 0
20.11.2008, 20:08
    #35666689
Я
Я
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать Имя пользователя, ПБ 9.0.3
Код: plaintext
1.
2.
3.
4.
FUNCTION long GetComputerNameA &
    (ref string ComputerName, ref ulong BufferLength) 
  LIBRARY "KERNEL32.DLL"
FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength) 
LIBRARY "ADVAPI32.DLL"

Далее:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
long ll_ret
string ls_ComputerName, ls_UserName
ulong BufferLength =  250   // you may need to adjust this. see Note

ls_ComputerName = Space(BufferLength)
ls_UserName     = Space(BufferLength)

ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)
ll_ret = GetUserNameA(ls_UserName, BufferLength)
...
Рейтинг: 0 / 0
21.11.2008, 12:36
    #35667792
Imperous
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать Имя пользователя, ПБ 9.0.3
Всем пасиб, воспользовался GetUserNameA
...
Рейтинг: 0 / 0
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Как узнать Имя пользователя, ПБ 9.0.3 / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]