При открытии книги, программно загнать IP адрес открывшего книгу компьютера?

@Gotik · Регистрация: 03.08.2010

Author24 — интернет-сервис помощи студентам

Как при открытии книги, программно загнать IP адрес открывшего книку компьютера (файл находится на сервере на общем диске)в ячейку или переменную.

@Masalov · 26.12.2011, 09:31

Для определения IP-адреса можно использовать сл. процедуру (не помню автора):

Visual Basic

Sub IPComp()
Set WNetwork = CreateObject("WScript.Network")
strComputer = WNetwork.ComputerName
MsgBox strComputer
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objItem In colItems
MsgBox objItem.IPAddress(0)
Next
End Sub

О запуске макроса при открытии книги смотрите: http://relib.com/forums/thread872817.aspx

@Gotik 0 / 0 / 0 Регистрация: 03.08.2010 Сообщений: 9
		1
	При открытии книги, программно загнать IP адрес открывшего книгу компьютера? 25.12.2011, 20:27. Показов 1396. Ответов 1 Метки нет (Все метки) Как при открытии книги, программно загнать IP адрес открывшего книку компьютера (файл находится на сервере на общем диске)в ячейку или переменную. 0

	26.12.2011, 09:31