| Вопрос: Как узнать имя текущего "системного" пол | Добавлено: 05.06.07 15:03 |
Автор вопроса:  LonerWanderer
|
|
Application.UserName выдает имя пользователя, которое установлено в лицензии на офис.
А можно ли узнать имя пользователя, под которым выполнен вход в систему (logon)? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  LonerWanderer Вопросов: 18 Ответов: 66 |
Профиль | | #1 | Добавлено: 05.06.07 15:06 |
|
Вопрос звучит так:
Как узнать имя текущего "системного" пользователя. Ну почему на форуме нет предпросмотра и редактирования своих сообщений? |
||
|
Номер ответа: 2 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #2 | Добавлено: 05.06.07 15:55 |
|
Попробуйте так
Sub Макрос1()
Dim iUser$ iUser$ = Environ("UserName" 
MsgBox iUser$ End Sub |
||
|
Номер ответа: 3 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #3 | Добавлено: 05.06.07 16:30 |
|
Огромное спасибо. Про Environ не знал.
Какая симпатичная и разнообразная информация вылезает: Sub Макрос1()
Dim Indx As Integer Dim EnvString Indx = 1 EnvString = Environ(Indx) If EnvString <> "" Then Cells(Indx, 1).Value = Left(EnvString, InStr(1, EnvString, "=", vbTextCompare) - 1) Cells(Indx, 2).Value = Right(EnvString, Len(EnvString) - InStr(1, EnvString, "=", vbTextCompare)) Else Exit Sub End If Indx = Indx + 1 End Sub |
||
|
Номер ответа: 4 Автор ответа: LonerWandererВопросов: 18 Ответов: 66 |
Профиль | | #4 | Добавлено: 05.06.07 17:09 |
|
опять поторопился
Sub Макрос1()
Dim Indx As Integer Dim EnvString Indx = 1 do EnvString = Environ(Indx) If EnvString <> "" Then Cells(Indx, 1).Value = Left(EnvString, InStr(1, EnvString, "=", vbTextCompare) - 1) Cells(Indx, 2).Value = Right(EnvString, Len(EnvString) - InStr(1, EnvString, "=", vbTextCompare)) Else Exit Sub End If Indx = Indx + 1 loop End Sub |
||
|
Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 06.06.07 02:20 |
|
Ну почему на форуме нет предпросмотра и редактирования своих сообщений? Этот вопрос админ забыл добавить в FAQ.
|
||
|
Номер ответа: 6 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #6 | Добавлено: 06.06.07 14:20 |
|
Спасибо за отзыв. В следующей версии сайта обязательно реактирование
сообщений будет. |
||
Страница: 1 |