| Вопрос: Пользователь Windows и параметры | Добавлено: 07.09.08 17:04 |
Автор вопроса:  piper78
|
| Подскажите, как в VBA узнать Пользователя Windows, его почтовый адресс и какую еще др.информацию (ех: сетевой ip пользователя, имя Домена и пр. что поможет полностью идентифицировать) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #1 | Добавлено: 08.09.08 06:31 |
|
С помощью WshShell: MsgBox "Имя компьютера : " & CreateObject("WScript.Network"
 .ComputerName
MsgBox "Имя пользователя : " & CreateObject("WScript.Network" .UserNameС помощью: Private Declare Function GetComputerName _
Lib "kernel32.dll" Alias "GetComputerNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long Private Sub WinAPI_ComputerName() Dim iComputerName As String * 255 GetComputerName iComputerName, 255& MsgBox "Имя компьютера : " & _ Application.Clean(iComputerName) End Sub Private Declare Function GetUserName _ Lib "advapi32.dll" Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long Private Sub WinAPI_UserName() Dim iUserName As String * 255 GetUserName iUserName, 255& MsgBox "Имя пользователя : " & _ Application.Clean(iUserName) End Sub Просто: Debug.Print Environ("Path"
'C:\Program Files\Microsoft Office\OFFICE11\ :\Delphi 7\Bin;
Debug.Print Environ("UserName" 'UserName |
||
|
Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 08.09.08 11:53 |
| Много что может идентифицировать пользователя. Кто знает, что тебе надо: я или ты? | ||
|
Номер ответа: 3 Автор ответа: piper78 Вопросов: 2 Ответов: 1 |
Профиль | | #3 | Добавлено: 09.09.08 07:55 |
| Спасибо информации Jasmin достаточно ( признаться тормозил ) | ||
Страница: 1 |