Скрипт, отображающий имя компьютера и его 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
Скачать можно здесь: