Узнать IP адрес

Как узнать  IP  адрес удаленного пользователя, если пользователь не знает как смотреть IP  адрес. Но может сделать пару кликов по  скрипту или батнику

Длинный способ

vbs

strComputer = "."
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")
Set HostNameSet = objWMIService.ExecQuery("Select 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

Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")

Text = Text & VbCrLf

 WScript.Echo Text

Короткий способ

bat

ipconfig

pause