[решено] Скрипт выводящий имя компьютера и IP

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Скрипт выводящий имя компьютера и IP (http://forum.oszone.net/showthread.php?t=199150)

vlsdtv

10-02-2011 18:45 1609548

Скрипт выводящий имя компьютера и IP

Добрый день господа форумчане.
Помогите со скриптом, выводящий имя компьютера и IP. Типа что бы на рабочем столе был ярлычок, при нажатии на который открывалось окошечко с именем компьютера и его IP-адресом.

Ivan Bardeen

10-02-2011 19:48 1609604

Вот, VBS скрипт

Код:

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

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

        for each propValue in objItem.IPAddress

                Text = Text & "IP адрес: " & propValue & VbCrLf 

        Next

Next

 WScript.Echo Text

vlsdtv

11-02-2011 17:09 1610412

Спасибо большое
А то вот локалка у меня достаточно большая, не у всех упомнишь какой IP

Время: 17:36.