PDA

Просмотр полной версии : Подскажите пожалуйста.



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

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

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

Naeel Maqsudov
25.10.2004, 02:06
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.

DJ'
25.10.2004, 09:38
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.

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

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