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 КБ) Скачиваний: 127
Аватара пользователя
UncleFather
Site Admin
 
Сообщения: 1326
Зарегистрирован: 17 авг 2004 16:20, Вт

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

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

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

Alexander A Manaeff -
@Mail.ru .