Страница 1 из 1

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

Добавлено: 17 июн 2016 10:27, Пт
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 скачиваний