powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полное имя пользователя системы
13 сообщений из 13, страница 1 из 1
Полное имя пользователя системы
    #35706669
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нашел замечательную функцию, которая работает, но медленно...

Public Function LoginName() As String
Dim oUsers As IADsUser
Dim strUserName As String
Dim strUserDomain As String
Dim FName() As String

strUserName = Environ("username")
strUserDomain = Environ("USERDOMAIN")
Set oUsers = GetObject("WinNT://" & strUserDomain & "/" & strUserName & ",user")
LoginName = Trim(oUsers.FullName)
End Function

Есть ли варианты ее упростить.
Мне необходимо полное имя пользователя системы: Иванов И.И.
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35706676
ич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
aoiu,

буквально вчера что-то подобное крутил. Понравилось, но отказался - 5-7 с исполняется у меня
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35707254
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А такая команда сколько секунд занимает?
Код: plaintext
 WMIC USERACCOUNT GET Caption, FullName


IMHO, Mon$te®
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35708498
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
4d_monsterА такая команда сколько секунд занимает?
Код: plaintext
 WMIC USERACCOUNT GET Caption, FullName


IMHO, Mon$te®

Если Вам не сложно, напишите функцию целиком, пожалуйста...
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35708635
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пуск - выполнить - cmd - Ок
в консольке набираете
Код: plaintext
WMIC USERACCOUNT GET Caption, FullName

IMHO, Mon$te®
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35715118
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я в шоке. Функцией из Асс можно?
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35715126
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а за сколько секунд выполняется ЭТО а то может нет смысла в функцию превращать?

IMHO, Mon$te®
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35716006
aleks2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Савсем народ забыл тропу в Win API...

4d_monster,
это выполнится всяко быстрее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
The NetUserGetInfo function retrieves information about a particular user account on a server.

Security Requirements

No special group membership is required to successfully execute NetUserGetInfo. This is a change from LAN Manager, which required membership in the Administrators or Account Operators local group to call this function at information levels above 0 (except for the user's own account, which could use level 11).

NET_API_STATUS NetUserGetInfo(

    LPWSTR servername,	
    LPWSTR username,	
    DWORD level,	
    LPBYTE *bufptr	
   );	
 

Parameters

servername

Pointer to a Unicode string containing the name of the remote server on which the function is to execute. A NULL pointer or string specifies the local computer.

username

Pointer to a Unicode string containing the name of the user account on which to return information.

level

Specifies one of the following values to return the level of information provided.

Value	Meaning
0	Returns USER_INFO_0 structure pointed to in bufptr.
1	Returns USER_INFO_1 structure pointed to in bufptr.
2	Returns USER_INFO_2 structure pointed to in bufptr.
3	Returns USER_INFO_3 structure pointed to in bufptr.
10	Returns USER_INFO_10 structure pointed to in bufptr.
11	Returns USER_INFO_11 structure pointed to in bufptr.
20	Returns USER_INFO_20 structure pointed to in bufptr.
 

bufptr

Pointer to the buffer in which the data set with the level parameter is stored. The returned buffer should be deallocated using the NetApiBufferFree function.

 

Return Values

If the function is successful, it returns NERR_SUCCESS.
If the function fails, the return value is one of the following error codes.

Value	Meaning
ERROR_ACCESS_DENIED	The user does not have access to the requested information.
NERR_InvalidComputer	The computer name is invalid.
NERR_UserNotFound	The user name could not be found.
 

See Also

см. 10 Returns USER_INFO_10
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35716044
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторСавсем народ забыл тропу в Win API...
И WSH не вспомнили ;-) (если правильно понял о чем речь)
Код: plaintext
1.
2.
3.
4.
5.
Dim WshNetwork
    Set WshNetwork = CreateObject("WScript.Network")
    Debug.Print "Domain = " & WshNetwork.UserDomain
    Debug.Print "Computer Name = " & WshNetwork.ComputerName
    Debug.Print "User Name = " & WshNetwork.UserName
End Sub
выполняется всяко быстрее первого варианта
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #35716266
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я команду предложил проверить чтобы как раз проверить стоит ли вообще пататься что-то сделать.
если бы и она у него работала 5-7 секунд вместо 0.5 - 1 то наверно и не стоило бы мучаться

IMHO, Mon$te®
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Полное имя пользователя системы
    #37223860
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Public Function LoginName() As String
Dim oUsers As IADsUser
Dim strUserName As String
Dim strUserDomain As String
Dim FName() As String

strUserName = Environ("username")
strUserDomain = Environ("USERDOMAIN")
Set oUsers = GetObject("WinNT://" & strUserDomain & "/" & strUserName & ",user")
LoginName = Trim(oUsers.FullName)
End Function


Скажите, пожалуйста, а как вытащить еще и комментарий (Comments)?

Спасибо.
...
Рейтинг: 0 / 0
Полное имя пользователя системы
    #37610301
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aoiuPublic Function LoginName() As String
Dim oUsers As IADsUser
Dim strUserName As String
Dim strUserDomain As String
Dim FName() As String

strUserName = Environ("username")
strUserDomain = Environ("USERDOMAIN")
Set oUsers = GetObject("WinNT://" & strUserDomain & "/" & strUserName & ",user")
LoginName = Trim(oUsers.FullName)
End Function



На Server 2008 перестало работать
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Полное имя пользователя системы
    #39637290
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проверил на Windows Server 2008 R2 64-bit - Всё работает.
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полное имя пользователя системы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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