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

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:| :) :wink: :D :lol: :( :cry: 8) :o :oops: :? :x :P :evil: :twisted: :roll: :!: :?: :idea: :arrow: :mrgreen:
Ещё смайлики…

Markdown is OFF

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: VBS. Получаем имя компьютера и его IP адреса

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 КБ) 513 скачиваний

Вернуться к началу