Можно ли узнать имя компьютера на котором запущен Excel
Типа имя пользователя: application.username
или имя организации: application.OrganizationName.
только вот никакого подобия команды hostname из cmd я не нашел.
Подскажите пожалуйста.
Подскажите пожалуйста.
Модератор: Naeel Maqsudov
In the game of seduction there is only one rule, never fall in love
- Naeel Maqsudov
- Сообщения: 2551
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Код: Выделить всё
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub qwe()
Dim s As String, l As Long
l = 256
s = Space(l)
GetComputerName s, l
MsgBox s
End Sub
Naeel Maqsudov писал(а):Код: Выделить всё
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (] Только в отличие от application.username GetUserName даст имя пользователя вошедшего в систему, а не имя введенное при установке/настройке MsOffice.[/quote] Ух ты! Получается, что ты используешь стандартные библитеки Windows и... стандартные функции? Где про это можно почитать?
In the game of seduction there is only one rule, never fall in love
- Naeel Maqsudov
- Сообщения: 2551
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Любая справка по WinAPI.
Была еще книга "VBA для профессионалов" из серии "В подлиннике", (изд-во BHV)... так вот, сама книга нафиг не нужна... там прилагается CD, на котором есть текстовый файл с заголовками огромного количества функций WinAPI.
Была еще книга "VBA для профессионалов" из серии "В подлиннике", (изд-во BHV)... так вот, сама книга нафиг не нужна... там прилагается CD, на котором есть текстовый файл с заголовками огромного количества функций WinAPI.