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

[vlsdtv]

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

[Ivan Bardeen]

Вот, 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]

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