Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полное имя пользователя системы / 13 сообщений из 13, страница 1 из 1
10.12.2008, 20:30
    #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
10.12.2008, 20:34
    #35706676
ич
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полное имя пользователя системы
aoiu,

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


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


IMHO, Mon$te®

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

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

IMHO, Mon$te®
...
Рейтинг: 0 / 0
16.12.2008, 06:29
    #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
16.12.2008, 08:12
    #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
16.12.2008, 10:14
    #35716266
4d_monster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полное имя пользователя системы
я команду предложил проверить чтобы как раз проверить стоит ли вообще пататься что-то сделать.
если бы и она у него работала 5-7 секунд вместо 0.5 - 1 то наверно и не стоило бы мучаться

IMHO, Mon$te®
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
20.04.2011, 09:16
    #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
12.01.2012, 07:31
    #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
Период между сообщениями больше года.
27.04.2018, 11:50
    #39637290
Joss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Полное имя пользователя системы
Проверил на Windows Server 2008 R2 64-bit - Всё работает.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Полное имя пользователя системы / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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