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

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


Модератор: UncleFather

Аватара пользователя
UncleFather
Site Admin
Сообщения: 1503
Зарегистрирован: 17 авг 2004 16:20, Вт
Контактная информация:

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

Сообщение UncleFather »

Скрипт, отображающий имя компьютера и его 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 КБ) 513 скачиваний

Alexander A. Manaeff©

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

Мои странички:
ВКонтакте
Одноклассники
Youtube
Facebook
Instagram

Изображение
Изображение
Изображение
Изображение