Форум программистов, компьютерный форум, киберфорум
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 25.03.2016
Сообщений: 9

Батник, определяющий IP-адрес запускающего и в соответствии с адресом копирующий файлы из определённой папки

25.03.2016, 18:21. Показов 4064. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток.
Пол инета облазил, не нашел ничего работающего.
Прошу помощи
Имеется несколько домов с разными IPшниками (типа 192.168.10.1: 192.168.11.1 и так далее)
Нужен батник, который будет определять IP адрес запускающего, и в соответствии с его адресом будет копировать файлы из определенной папки, типа:
\\192.168.10.58\123\10\*
\\192.168.10.58\123\11\*
\\192.168.10.58\123\12\*
Заранее благодарю, и не пинайте сильно)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.03.2016, 18:21
Ответы с готовыми решениями:

Нужно сделать батник, который бы следил за содержимым определенной папки...
...написать батник, который бы следил за содержимым определенной папки и при добавлении в нее новых файлов батник должен создавать ярлык на...

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

Удалить из определенной папки все папки и файлы старше 30 дней
Здраствуйте! Нужна помощь в написании скрипта в bat. Стоит задача удалить с папки "MeasData" все папки и файлы старше 30 дней,...

6
Native x86
Эксперт Hardware
 Аватар для quwy
6857 / 3790 / 1025
Регистрация: 13.02.2013
Сообщений: 11,861
25.03.2016, 18:39
Цитата Сообщение от Юрий_7777 Посмотреть сообщение
Нужен батник, который будет определять IP адрес запускающего
Невозможно. Например, у моего компьютера 5 (пять) IP-адресов, не считая 127.0.0.0/8, какой из них выбирать и по какому критерию?
0
0 / 0 / 0
Регистрация: 25.03.2016
Сообщений: 9
25.03.2016, 19:04  [ТС]
По его ip в зоне этих адресов. То бишь, если он имеет адрес 192.168.10.40, то к нему копировались файлы из папки 10. Грубо говоря определять подсеть
0
Native x86
Эксперт Hardware
 Аватар для quwy
6857 / 3790 / 1025
Регистрация: 13.02.2013
Сообщений: 11,861
25.03.2016, 19:07
Тогда только парсить выхлоп ipconfig...
0
 Аватар для volodin661
6688 / 2279 / 348
Регистрация: 10.12.2013
Сообщений: 7,885
25.03.2016, 21:01
дома с айпишниками вдоль фасада..

м-да..

если нужно сделать так, чтобы каждая сестра получила свои серьги,

то поднимается эф-ти-пи сервер,
заводятся пользователи,
и каждая сестра, будучи зарегистрированным пользователем,
соединившись с эф-ти-пи, попадает в свой домашний каталог,
где её уже ожидают серьги для закачки.
0
0 / 0 / 0
Регистрация: 24.03.2016
Сообщений: 11
04.04.2016, 16:47
Ответ: напиши 2 файла, которые должны лежать в одном месте:
1.Код:

Windows Batch file
1
2
3
4
::Определяем внешний IP, записываем его в myip.txt
Setlocal EnableExtensions
For /F %%A in ('cscript //nologo "dp0myIP.vbs"') do Set ExtIP=%%A
Echo external_IP-%ExtIP%>>c:\myip.txt
Сохраняем, как 1.bat

2.Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
'On Error Resume Next
 
Dim sIP
 
Sub XMLRequest(sQuery, objRemXML)
    Set objRemXML = CreateObject("Microsoft.XMLDOM")
    objRemXML.async = False
    objRemXML.Load (sQuery)
End Sub
 
 
Sub XMLParse(objRemXML, sNode, sRet)
    Dim objXMLret
    Set objXMLret = objRemXML.SelectSingleNode(sNode)
    If Err.Number <> 0 Then
        'MsgBox "Error of IPRange"
      Else
        If Not objXMLret Is Nothing Then sRet = objXMLret.Text
    End If
End Sub
 
 
Sub GetMyIP(sIP)
    Dim sQuery, objRemXML
 
    sQuery = "http://ip2country.sourceforge.net/ip2c.php?format=XML"
    Call XMLRequest(sQuery, objRemXML)
 
    'Get your IP-address
    Call XMLParse(objRemXML, "/lookup/ip", sIP)
    
    'if Sourceforge is Down
    If Len(sIP) = 0 Then
        Set objRemXML = Nothing
        
        sQuery = "http://wtfismyip.com/xml"
        Call XMLRequest(sQuery, objRemXML)
        
        Call XMLParse(objRemXML, "/wtf/your-fucking-ip-address", sIP) ':)
    End If
    
    Set objRemXML = Nothing
End Sub
 
'Here we go
Call GetMyIP(sIP)
 
WScript.Echo sIP
Сохрани,как dp0myIP.vbs

Запусти 1.bat, в текстовом файте получишь внешний ip. Отправь себе.

Добавлено через 4 минуты
Windows Batch file
5
6
::Определяем внутренний IP, который так же добавляем к отчету.
ipconfig /all>>c:\myip.txt
Туда же в код 1.bat...
0
0 / 0 / 0
Регистрация: 25.03.2016
Сообщений: 9
06.04.2016, 08:53  [ТС]
Тему можно закрывать. ответ найден. если кому нужен, обращайтесь. только я сделал не по айпи, а по шлюзу искал
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.04.2016, 08:53
Помогаю со студенческими работами здесь

Создать батник, который запускает файлы из указанной папки по афавиту
помогите создать батник который запускает файлы из указанной папки по афавиту и с заданным в милисек. паузой между запусками, без указания...

Создать батник копирующий в зависимости от размера файлов
Добрый день! Пытаюсь создать bat файл который будет копировать файлы из папки только в случае если файл больше 6 гб. Подскажите плз! Так...

Написать батник, который копирует содержимое всех файлов папки в результирующие файлы того же типа
Было дано задание: написать батник, который копирует содержимое всех файлов папки в результирующие файлы того же типа, т. е. все .txt в...

Батник, который пингует указанный IP-адрес и в случае отсутствия пинга запускает другой батник и закрывается
Доброго времени суток, столкнулся с проблемой ... нужен батник который будет пинговать айпишник к примеру 192.168.10.14, в отсутствии пинга...

Как обработать все файлы из определенной папки?
как сделать чтобы софт в цикле делал ReadAllLines(путь); ? то есть один за другим и только в конкретной папке?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru