Alexander A Manaeff -

 
 

VBS. Получаем имя компьютера и его IP адреса

Здесь обсуждаются вопросы по программированию на Visual Basic.

Модератор: UncleFather

VBS. Получаем имя компьютера и его IP адреса

Сообщение UncleFather » 17 июн 2016 10:27, Пт




Скрипт, отображающий имя компьютера и его IP адреса:
Код: Выделить всё
'Получаем имя и IP адреса компьютера
 strComputer = "."
 Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
 Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
 Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where ipenabled = true",,48)
 For Each objItem in colItems
   CompID = "Имя компьютера: " & objItem.DNSHostName & VbCrLf
   for each propValue in objItem.IPAddress
      CompID = CompID & "IP адрес: " & propValue & VbCrLf
   Next
 Next

WScript.Echo CompID


Скачать можно здесь:
Comp_Name&IP.rar
(1.01 КБ) Скачиваний: 143




Если Вам понравился этот материал, то мы с признательностью примем вашу финансовую поддержку, которая поможет нам и в дальнейшем радовать Вас интересной и полезной информацией.
Помните, что даже минимальная сумма сделает Вас инвестором этого проекта и о Вас будут думать с благодарностью тысячи наших новых читателей.
Материально поддержать проект можно здесь










Alexander A. Manaeff©

Понравилась статья? Будем крайне признательны за репосты в соцсетях! Материально поддержать проект можно здесь

Мои странички:
ВКонтакте
Одноклассники
Youtube
Facebook
Instagram
Изображение
Изображение
Изображение
Изображение
Аватара пользователя
UncleFather
Site Admin
 
Сообщения: 1344
Зарегистрирован: 17 авг 2004 16:20, Вт



Вернуться в Visual Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Alexander A Manaeff - нижняя граница
Рейтинг@Mail.ru Яндекс.Метрика Яндекс цитирования

Счетчик посещений