Developing.ru

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

[quote="Naeel Maqsudov"][code]

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

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

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

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

[code]

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

[/code]

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

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

только вот никакого подобия команды [b]hostname[/b] из cmd я не нашел. :(

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