VBS » Администрирование » Каталог файлов

Файлы больше не поддерживаются!

VBS

Разместил: mozz	Категория: Администрировани…
Размер файла: 572 Bytes	Версия / Тип файла: Приложение Windows
Дата: 18.03.2011	Скачали: 61
E-Mail автора:

Скрипт позволяющий админу узнать IP и Hostname не сильно разбирающегося в компах пользователя.

Этот скрипт, выложнный в общедоступный каталог, позволит сократить вам время на объяснение пользователю как узнать свой IP (например если вы хотите подключиться к нему удаленно).

title

Скрипт в приложении. Скачивать файлы может только зарегистрированный пользователь!

Код скрипта:

Код VBS

 

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