|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
Нашел замечательную функцию, которая работает, но медленно... 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 Есть ли варианты ее упростить. Мне необходимо полное имя пользователя системы: Иванов И.И. ... |
|||
:
Нравится:
Не нравится:
|
|||
10.12.2008, 20:30 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
aoiu, буквально вчера что-то подобное крутил. Понравилось, но отказался - 5-7 с исполняется у меня ... |
|||
:
Нравится:
Не нравится:
|
|||
10.12.2008, 20:34 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
А такая команда сколько секунд занимает? Код: plaintext
IMHO, Mon$te® ... |
|||
:
Нравится:
Не нравится:
|
|||
11.12.2008, 09:49 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
4d_monsterА такая команда сколько секунд занимает? Код: plaintext
IMHO, Mon$te® Если Вам не сложно, напишите функцию целиком, пожалуйста... ... |
|||
:
Нравится:
Не нравится:
|
|||
11.12.2008, 15:37 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
Пуск - выполнить - cmd - Ок в консольке набираете Код: plaintext
IMHO, Mon$te® ... |
|||
:
Нравится:
Не нравится:
|
|||
11.12.2008, 16:08 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
Я в шоке. Функцией из Асс можно? ... |
|||
:
Нравится:
Не нравится:
|
|||
15.12.2008, 16:25 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
а за сколько секунд выполняется ЭТО а то может нет смысла в функцию превращать? IMHO, Mon$te® ... |
|||
:
Нравится:
Не нравится:
|
|||
15.12.2008, 16:27 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
Савсем народ забыл тропу в 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.
см. 10 Returns USER_INFO_10 ... |
|||
:
Нравится:
Не нравится:
|
|||
16.12.2008, 06:29 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
авторСавсем народ забыл тропу в Win API... И WSH не вспомнили ;-) (если правильно понял о чем речь) Код: plaintext 1. 2. 3. 4. 5.
... |
|||
:
Нравится:
Не нравится:
|
|||
16.12.2008, 08:12 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
я команду предложил проверить чтобы как раз проверить стоит ли вообще пататься что-то сделать. если бы и она у него работала 5-7 секунд вместо 0.5 - 1 то наверно и не стоило бы мучаться IMHO, Mon$te® ... |
|||
:
Нравится:
Не нравится:
|
|||
16.12.2008, 10:14 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
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)? Спасибо. ... |
|||
:
Нравится:
Не нравится:
|
|||
20.04.2011, 09:16 |
|
Полное имя пользователя системы
|
|||
---|---|---|---|
#18+
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 перестало работать ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2012, 07:31 |
|
|
start [/forum/moderation_log.php?user_name=Mortis]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
get settings: |
11ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
76ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
54ms |
get tp. blocked users: |
2ms |
others: | 1746ms |
total: | 1950ms |
0 / 0 |