Developing.ru

Можно ли узнать имя компьютера на котором запущен Excel
Типа имя пользователя: application.username
или имя организации: application.OrganizationName.

только вот никакого подобия команды hostname из cmd я не нашел.

Подскажите пожалуйста.

Код: Выделить всё


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

Только в отличие от application.username GetUserName даст имя пользователя вошедшего в систему, а не имя введенное при установке/настройке MsOffice.

Naeel Maqsudov писал(а):

Код: Выделить всё


Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" &#40]

Только в отличие от application.username GetUserName даст имя пользователя вошедшего в систему, а не имя введенное при установке/настройке MsOffice.[/quote]

Ух ты!
Получается, что ты используешь стандартные библитеки Windows и... стандартные функции?
Где про это можно почитать?

Любая справка по WinAPI.
Была еще книга "VBA для профессионалов" из серии "В подлиннике", (изд-во BHV)... так вот, сама книга нафиг не нужна...

там прилагается CD, на котором есть текстовый файл с заголовками огромного количества функций WinAPI.