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

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
DJ'
Сообщения: 5
Зарегистрирован: 13 июл 2004, 12:47
Откуда: Москва, МГУ.
Контактная информация:

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

Сообщение DJ' » 21 окт 2004, 18:23

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

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

Подскажите пожалуйста.
In the game of seduction there is only one rule, never fall in love

Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Сообщение Naeel Maqsudov » 25 окт 2004, 01: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'
Сообщения: 5
Зарегистрирован: 13 июл 2004, 12:47
Откуда: Москва, МГУ.
Контактная информация:

Сообщение DJ' » 25 окт 2004, 08:38

Naeel Maqsudov писал(а):

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


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

Только в отличие от 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
Контактная информация:

Сообщение Naeel Maqsudov » 01 ноя 2004, 08:48

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

Ответить