Как получить в Excel имя текущего пользователя?

[asharky]

Под Виндами?

[Sebas]

Подключить библиотеку WSH(Windows Script Host Object Model) там есть объект NETWORK cвойство UserName

[asharky]

Подключить библиотеку WSH(Windows Script Host Object Model) там есть объект NETWORK cвойство UserName

Подключил. Что-то не нашёл там NETWORK А можно строчку привести которую надо прописать? Дальше я сам бы уже разобрался.

[Sebas]

Dim n as WshNetwork

n = New WshNetwork
Debug.Print n.UserName

[asharky]

Dim n as WshNetwork

n = New WshNetwork
Debug.Print n.UserName

Спасибо! Только вот:

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

n = New WshNetwork

пришлось заменить на:

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

Set n = New WshNetwork

...и тогда всё заработало.

[alibek]

API GetUserName(Ex)

[Sebas]

Dim n as WshNetwork

n = New WshNetwork
Debug.Print n.UserName

Спасибо! Только вот:

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

n = New WshNetwork

пришлось заменить на:

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

Set n = New WshNetwork

...и тогда всё заработало.

Хахаха! Да! Сори! Я после NET частенько так встреваю и не могу понять в чём дело)))