Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35674
Главная » Готовые решения » VBA » Полезные приёмы

Как узнать IP адрес компьютера
03.05.2016, 12:26
[ Файл-пример (23.6Kb) ]
Sub GetIpAdr() 'получить IP адрес компа
Dim oWMIObjEx As Object, sWQL As String
sWQL = "Select * From Win32_NetworkAdapterConfiguration"
With GetObject("winmgmts:root/CIMV2")
 For Each oWMIObjEx In .ExecQuery(sWQL)
 If Not IsNull(oWMIObjEx.IPAddress) Then
 Range("IpAdr")(1, 0).Resize(, 4).Value = _
 Array("IP:", oWMIObjEx.IPAddress(0), "Host name:", oWMIObjEx.DNSHostName)
 End If
 Next
End With
Set oWMIObjEx = Nothing
End Sub
Sub test()'Какие приложения запущены на компьютере? (в т.ч. удаленном?)
Dim sComp$, objProcess As Object, i&
sComp = Range("IpAdr").Value: i = 1 'something like "Николай-ПК" or "10.999.97.308"
Range("A1").CurrentRegion.Offset(1).ClearContents

With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComp & "\root\cimv2")
 For Each objProcess In .ExecQuery("Select * from Win32_Process")
 i = i + 1
 Cells(i, 1) = objProcess.Name
 Cells(i, 2) = objProcess.ProcessId
 Cells(i, 3) = objProcess.ThreadCount
 Cells(i, 4) = objProcess.PageFileUsage
 Cells(i, 5) = objProcess.PageFaults
 Cells(i, 6) = objProcess.WorkingSetSize
 Next
End With

Set objProcess = Nothing
End Sub
Добавил: nilem | | Теги: IP адрес компа, Какие приложения запущены на компью
Просмотров: 391 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!