[Seven] Как узнать IP удаленного ПК?

решал подобный вопрос простенькой прогой - Для просмотра ссылки Войди или Зарегистрируйся
при смене айпи, новый она высылала на почту...
 
Дополню в общую копилку вот такой сервис:
hldns.ru бесплатный DynDNS DDNS сервис в России для всех
есть и клиент и автообновлениие ip для роутеров. Рекомендую.
 
У радмина есть 1 прелесть. К удаленному ПК можно подключаться в любое время и не обязательно за ним должен быть оператор чтобы сказать вам пароль доступа к Ammyy или TeamViewe. Подобную задачу можно решить через VPN Hamach. Он бесплатен с ограничением сети на 5 рабочих мест. Если вы влазиете в этот лимит - без проблем создается виртуальная сеть и радмином можно пользоваться. Еще, как вариант, можно рассмотреть "RMS — удаленный доступ". Это смесь ами/тимвъювера и радмина. Также как в последнем устанавливаются серверная часть и клиентская, устанавливаются пароли доступа и далее все как в радмине только сервер вас соединяющий находится гдето. У него 10 рабочих мест бесплатно. Если не хочется использовать сторонний сервер для координации можете настроить свой, но тогда вам нужен будет статический IP :)
 
aser написал(а):
У радмина есть 1 прелесть. К удаленному ПК можно подключаться в любое время и не обязательно за ним должен быть оператор чтобы сказать вам пароль доступа к Ammyy или TeamViewe. Подобную задачу можно решить через VPN Hamach. Он бесплатен с ограничением сети на 5 рабочих мест. Если вы влазиете в этот лимит - без проблем создается виртуальная сеть и радмином можно пользоваться. Еще, как вариант, можно рассмотреть "RMS — удаленный доступ". Это смесь ами/тимвъювера и радмина. Также как в последнем устанавливаются серверная часть и клиентская, устанавливаются пароли доступа и далее все как в радмине только сервер вас соединяющий находится гдето. У него 10 рабочих мест бесплатно. Если не хочется использовать сторонний сервер для координации можете настроить свой, но тогда вам нужен будет статический IP :)
Нажмите для раскрытия...
в TeamViewer указывается статичный пароль и всё работает главное записать id машины
 
aser написал(а):
У радмина есть 1 прелесть. К удаленному ПК можно подключаться в любое время и не обязательно за ним должен быть оператор чтобы сказать вам пароль доступа к Ammyy или TeamViewe. Подобную задачу можно решить через VPN Hamach. Он бесплатен с ограничением сети на 5 рабочих мест. Если вы влазиете в этот лимит - без проблем создается виртуальная сеть и радмином можно пользоваться. Еще, как вариант, можно рассмотреть "RMS — удаленный доступ". Это смесь ами/тимвъювера и радмина. Также как в последнем устанавливаются серверная часть и клиентская, устанавливаются пароли доступа и далее все как в радмине только сервер вас соединяющий находится гдето. У него 10 рабочих мест бесплатно. Если не хочется использовать сторонний сервер для координации можете настроить свой, но тогда вам нужен будет статический IP :)
Нажмите для раскрытия...
В TeamViewer не обязательно что бы кто был за компом, достаточно в настройках его поставить галочку запускаться вместе с системой и пароль придумать и все! ИД у него постоянный
 
я без DynDNS-сов делал кустарым способом)))) ставил браузер на автобновление одной странички на сайте (не доступной поисковикам) и в логах смотрел куда стучаться )
Баловался таким лет 15-20 назад :D
 
Ну как бы есть бесплатный сервис- там куча вариантов для такого действа: dyndns.org
 
Сам делаю с каждой целевой машины туннель к себе на VPN-сервер и всегда хожу по нему, т.к. все остальные методы не спасут от NAT провайдера. Или нужно будет мучиться с 4G-модемами+роутерами делая по 2 проброса. Опять же, до поры, пока провайдер не поставит свой NAT. Да и не безопасно это.
Если всё-таки есть желание делать почтой, то вот этот код на VB должен работать:
Код: 
01
'-----------Get Computer Name-------------
02
 
03
Set objNetwork = CreateObject("WScript.Network")
04
strComputer = objNetwork.ComputerName
05
 
06
'-----------Get IPs-------------
07
 
08
Set objWMIService = GetObject("winmgmts:" _
09
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
10
 
11
Set IPConfigSet = objWMIService.ExecQuery _
12
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
13
 
14
For Each IPConfig in IPConfigSet
15
    If Not IsNull(IPConfig.IPAddress) Then
16
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
17
            strSettings = strSettings & "  " & IPConfig.IPAddress(i)
18
        Next
19
    End If
20
Next
21
 
22
'-----------Send Mail-------------
23
 
24
Set objMessage = CreateObject("CDO.Message")
25
objMessage.Subject = "subj"
26
objMessage.From = "a1@a1.ru"
27
objMessage.To = "a2@a2.ru"
28
objMessage.TextBody = "Computer Name: " & strComputer & vbCrLf & "IP: " & strSettings
29
 
30
objMessage.Configuration.Fields.Item _
31
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
32
objMessage.Configuration.Fields.Item _
33
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1"
34
objMessage.Configuration.Fields.Item _
35
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
36
objMessage.Configuration.Fields.Update
37
 
38
objMessage.Send

Вообще,в интернете есть программы по вашему вопросу:
Для просмотра ссылки Войди или Зарегистрируйся для ХП, может и в 7 заработает
Для просмотра ссылки Войди или Зарегистрируйся - вот под всё и современное, есть 2 срабатывания на вирустотале, скорее всего, на сам язык, т.к. 2/60 крайне мало для вируса.
 
  • Заблокирован
  • #20
zionkv написал(а):
Сам делаю с каждой целевой машины туннель к себе на VPN-сервер и всегда хожу по нему, т.к. все остальные методы не спасут от NAT провайдера. Или нужно будет мучиться с 4G-модемами+роутерами делая по 2 проброса. Опять же, до поры, пока провайдер не поставит свой NAT. Да и не безопасно это
Нажмите для раскрытия...
надо поднимать не VPN, а SSH туннель, и все, никто ничего не получит
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху