Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Проверка наличия соединения с интернетом (*.vbs)

Ответить
Настройки темы
VBS/WSH/JS - [решено] Проверка наличия соединения с интернетом (*.vbs)

Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Уважаемые знатоки!! Помогите!!!
Мне необходима написать такой скрипт который проверяет наличия соединения с интернетом и в случае true записывает текущий ip в текстовой файл (желательно с временем выполнения этой операции) а в случае false меняет ip на другой определений и тоже проверяет наличия соединения. И так к тому времени пака не будет использован тот ip который даст выход в интернет.

Отправлено: 14:12, 15-03-2009

 

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата BadAngel:
пака не будет использован тот ip который даст выход в интернет »
дык какой IP менять по ходу проверки?.. ДНС, удаленного хоста (для пинга) или локального хоста?

-------
Как сообщить о том, что моя проблема решена?
не оказываю техподдержку через ПМ/ICQ/Mail - для этого есть форум


Отправлено: 16:26, 15-03-2009 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


IP локалной сети. И чтоб этот IP бил из моего массива.

Отправлено: 18:08, 15-03-2009 | #3


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата BadAngel:
IP локалной сети »
в смысле не только IP хоста, но и маску подсети?.. но ведь тогда и шлюз придется менять... какая размерность массива?

-------
Как сообщить о том, что моя проблема решена?
не оказываю техподдержку через ПМ/ICQ/Mail - для этого есть форум


Отправлено: 18:18, 15-03-2009 | #4


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Я вот нашел скрипт который делает то что мне надо

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next

Толька как сделать так чтоб он ещо и проверял наличия соединения с интернетом после изменения и в противном случее менял “192.168.1.141” на “192.168.1.142” и снова начинался сначала

Отправлено: 18:23, 15-03-2009 | #5


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Или подскажите хотя б как через *.vbs проверить есть ли доступ в интернет. Может способом возможности открытия некого сайта или посредством ping?

Отправлено: 19:05, 15-03-2009 | #6


Старожил


Сообщения: 402
Благодарности: 8

Профиль | Отправить PM | Цитировать


Цитата BadAngel:
Может способом возможности открытия некого сайта или посредством ping? »

set WshShell = CreateObject("WScript.Shell")
'Запускаем ping и ожидаем завершения его работы
Return = WshShell.Run("ping www.ru ", 0, true)
If Return=0 then
WScript.Echo "инет есть"
Else WScript.Echo "инета нет"
End If
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:45, 16-03-2009 | #7


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


Цитата BadAngel:
Может способом возможности открытия некого сайта или посредством ping? »
еще вариант через WMI:
Код: Выделить весь код
iPing = Ping("www.google.com")

If iPing=0 Then
  WScript.Echo "Интернет есть"
Else
  WScript.Echo "Интернета НЕТ, код ошибки: "& iPing
End If

Function Ping (strTarget)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")

  For Each objPing in colPings
    Ping = objPing.StatusCode
  Next
End Function
З.Ы. В корпоративных сетях этот метод почему-то работает не всегда, через PING.EXE надежней
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:17, 16-03-2009 | #8


Новый участник


Сообщения: 14
Благодарности: 0

Профиль | Отправить PM | Цитировать


Большое спасибо. Проблема решена.

Отправлено: 12:55, 17-03-2009 | #9

Sos Sos вне форума

Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Помогите как сделать скрипт на WSH чтобы Ip в онлайн режиме пинговался, т.е все время, а то я дуб дубом в этих скриптах

Отправлено: 12:06, 18-04-2011 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Проверка наличия соединения с интернетом (*.vbs)

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Определение атрибута файла & проверка наличия процесса user_123 Скриптовые языки администрирования Windows 10 19-11-2010 16:15
Интернет - Обрыв соединения с интернетом columbiec Microsoft Windows 7 2 26-11-2009 19:33
CMD/BAT - Проверка наличия диска в дисководе по папке MedVetoff Скриптовые языки администрирования Windows 8 27-08-2009 16:55
Delphi - [решено] Проверка соединения с интернетом и переход по ссылкам Malfatto Программирование и базы данных 2 01-10-2008 01:10
[решено] Проверка наличия поля в таблице БД Artem-Samsung Вебмастеру 8 19-03-2008 21:40




 
Переход