Что нового

Определить IP адрес ПК

Timerlan

Новичок
Сообщения
93
Репутация
0
Здравствуйте уважаемые гуру и форумчане. Не смогли бы ВЫ мне помочь написать скрипт. Суть скрипта такая. Мне нужно определить IP адрес компьютера, создать файлик в котором будет IP адрес и отправить его на почту или просто отправить куда нить в общий обмен, а можно и то и другое. Чет пок не знаю с какой стороны подойти((. Допустим я забил этот скрипт в автозагрузку или в шедуллер и каждый раз когда ПК запускается при каждой загрузке или перезагруузке нужно чтоб он отправлял мне файлик с IP адресом. Плиззз помогите.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
http://autoit-script.ru/index.php/topic,8767.msg59082.html#msg59082
 
Автор
T

Timerlan

Новичок
Сообщения
93
Репутация
0
Нее мне же не тока надо отправить еще надо определить IP адрес и записать его в файл. Можно сначала с этого начать а потом тему уже продолжим насчет отправки на Email или в общую шару
 

mef-t

Осваивающий
Сообщения
306
Репутация
30
Код:
@IPAddress1 ;~Возвращает IP-адрес первого сетевого адаптера. Может вернуть "127.0.0.1" на некоторых компьютерах 
@IPAddress2 ;~Возвращает IP-адрес второго сетевого адаптера. Возвращает "0.0.0.0", если неприменимо 
@IPAddress3 ;~Возвращает IP-адрес третьего сетевого адаптера. Возвращает "0.0.0.0", если неприменимо 
@IPAddress4 ;~Возвращает IP-адрес четвёртого сетевого адаптера. Возвращает "0.0.0.0", если неприменимо




Добавлено:
Сообщение автоматически объединено:

Возможно будет полезна более детальная информация по сетевому адресу. Обсуждение на соседнем форуме:
http://www.autoitscript.com/forum/topic/128276-display-ip-address-default-gateway-dns-servers/
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Получаем реальный IP пользуясь internet.yandex.ru
Код:
$sUrl = 'http://internet.yandex.ru'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl, False)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$sResult = StringRegExp($sHTML, '(?s).*?Мой IPv4: (.*?)<', 3) ; Узнаем IP
MsgBox(0,"IP",$sResult[0]) ;Выводим
 
Автор
T

Timerlan

Новичок
Сообщения
93
Репутация
0
Неее мне нужно на локальных машинах узнать IP адрес там нет инета.
 

mef-t

Осваивающий
Сообщения
306
Репутация
30
А чем Вас не устраивает:

Код:
MsgBox(0,"IP",@IPAddress1) ;IP-адрес
 

ildar

Осваивающий
Сообщения
252
Репутация
29
Например так.
Код:
$adr = @IPAddress1
$file = FileOpen("d:\adress.txt", 1)

; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $file = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
EndIf

FileWrite($file, $adr)

FileClose($file)
FileCopy("d:\adress.txt", "\\тут путь к расшаренному ресурсу", 1)
 
Автор
T

Timerlan

Новичок
Сообщения
93
Репутация
0
ООО это почти что надо тока он почему то 2 раза IP адрес пишет
 

ildar

Осваивающий
Сообщения
252
Репутация
29
Предполагаю, что не 2 раза пишет, а все время дописывает. Я не проверял. Доковыряй сам, удаление файла сделай после копирования.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
тока он почему то 2 раза IP адрес пишет

Предполагаю, что не 2 раза пишет, а все время дописывает. Я не проверял. Доковыряй сам, удаление файла сделай после копирования.
Да, или попробуй открыть файл с флагом 2 а не 1
Код:
$file = FileOpen("d:\adress.txt", 2)
 
Верх