strComputer = "."

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")

Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")

Set IPConfigSet = objWMIService.ExecQuery("S_elect IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")

Set HostNameSet = objWMIService.ExecQuery("S_elect DNSHostName from Win32_NetworkAdapterConfiguration where ipenabled = true")



For Each obj in HostNameSet

	Text = "Имя компьютера: " & obj.DNSHostName & VbCrLf

Next



Text = Text & VbCrLf



for each IPConfig in IPConfigSet

	if Not IsNull(IPConfig.IPAddress) then 

		for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

			Text = Text & "Ваш IP: " &IPConfig.IPAddress(i)& VbCrLf

		next

	end if

next



Text = Text & VbCrLf & "Пользуйтесь на здоровье!"



 WScript.Echo Text