CMD/BAT

Sta1917 · Отправлено: **00:06, 15-11-2017** | #41

Здравствуйте, пытаюсь запустить на Win 10 скрипт из поста #15. выдает

Код:

Сценарий:	D:\Cheсk_IP.vbs
Строка:	24
Символ:	1
Ошибка:	Не удается найти указанный поставщик. Вероятно, он установлен неправильно.
Код:	800A0E7A
Источник: 	ADODB.Connection

В чем может быть проблема?
В строке 24 вроде все нормально:
https://3.downloader.disk.yandex.ru/...282d39e3212b8e

Iska · Отправлено: **00:54, 15-11-2017** | #42

Цитата Sta1917:

В чем может быть проблема? »

В том же, о чём написано зараз после поста #15 — в отсутствии библиотеки. Если Ваша ОС — x64, можете попробовать исполнить скрипт под x86-хостом:

Код:

C:\Windows\SysWOW64\wscript.exe "Путь\Скрипт.vbs"

или:

Код:

C:\Windows\SysWOW64\cscript.exe //nologo "Путь\Скрипт.vbs"

Sta1917 · Отправлено: **01:57, 15-11-2017** | #43

При запуске через wscript выдает:

Код:

Сценарий:	D:\Check_IP.vbs
Строка:	82
Символ:	3
Ошибка:	Сбой скачивания указанного ресурса.

Код:	800C0008
Источник: 	msxml3.dll

При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо.
Установка MDAC не помогла.

Iska · Отправлено: **03:14, 15-11-2017** | #44

Цитата Sta1917:

При запуске через wscript выдает:
Код: Выделить весь код
Сценарий: D:\Avito_Tech\Check_IP.vbs
Строка: 82
Символ: 3
Ошибка: Сбой скачивания указанного ресурса. »

А «ручками», в браузере, у Вас доступен адрес http://ifconfig.me/ip?

Цитата Sta1917:

При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо. »

А что Вы там планировали вставлять?!

Цитата Sta1917:

Установка MDAC не помогла. »

Помогла или не помогла — не знаю, но ведь уже работает, ошибка в другом месте и по другой причине.

Sta1917 · Отправлено: **10:37, 15-11-2017** | #45

Цитата Iska:

А «ручками», в браузере, у Вас доступен адрес http://ifconfig.me/ip? »

Работает, также работает скрипт из поста #8.

Цитата Iska:

При запуске через cscript открывает диалоговое окно cscript, без возможности вставки чего-либо. »
А что Вы там планировали вставлять?! »

Вы предложили:

Цитата Iska:

C:\Windows\SysWOW64\cscript.exe //nologo "Путь\Скрипт.vbs" »

Вообще после проверки ip нужно запустить приложение (*.exe), если IP нет в списке, если есть сказать какой и когда был добавлен.
p.s.: Компиляция в *.exe ничего недала.

Iska · Отправлено: **11:43, 15-11-2017** | #46

Цитата Sta1917:

также работает скрипт из поста #8. »

Да ну. Единственное отличие #15 от #8 по существу места ошибки — в использовании метода .setRequestHeader.

Цитата Sta1917:

p.s.: Компиляция в *.exe ничего недала. »

И не должна была.

Sta1917 · Отправлено: **22:32, 15-11-2017** | #47

При запуске скрипта из поста #8 двойным кликом периодически вываливается

Код:

Сценарий:	D:\Check_IP(8).vbs
Строка:	12
Символ:	2
Ошибка:	Не удается найти указанный ресурс.

Код:	800C0005
Источник: 	msxml3.dll

При запуске

Код:

start C:\Windows\SysWOW64\wscript.exe "D:\Check_IP(8).vbs"

все впорядке.

Сделал

Код:

regsvr32 msxml.dll

Теперь при запуске скрипта из поста #15 появляется:

Код:

Сценарий:	D:\Check_IP(15).vbs
Строка:	81
Символ:	2
Ошибка:	Не удается найти указанный ресурс.

Код:	800C0005
Источник: 	msxml3.dll

UPD: Теперь вываливается:

Код:

Сценарий:	D:\Check_IP(15).vbs
Строка:	34
Символ:	2
Ошибка:	Отсутствует значение для одного или нескольких требуемых параметров.
Код:	80040E10
Источник: 	Microsoft JET Database Engine

cinstaller · Отправлено: **07:47, 07-02-2019** | #48

Здравствуйте, Iska! Будьте любезны, внесите изменение в данный скрипт из поста №8, что бы в конце IP отображалась дата и время записи, буду вам очень благодарен.
Пример:
118.151.161.70 (07.02.2019 / 07:31)
122.221.141.20 (07.02.2019 / 07:39)
И т.д...

Цитата Iska:

Option Explicit
Const ForAppending = 8
Const strPreviousIPList = "PreviousIPList.txt"
Dim strIP
Dim boolIPExists
With WScript.CreateObject("Microsoft.XMLHTTP")
.open "GET", "http://ifconfig.me/ip", False
.send
strIP = Replace(.responseText, vbLf, "")
End With
boolIPExists = False
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strPreviousIPList) Then
With .OpenTextFile(strPreviousIPList)
Do Until .AtEndOfStream
If .ReadLine() = strIP Then
boolIPExists = True
Exit Do
End If
Loop
.Close
End With
End If
If boolIPExists Then
MsgBox "IP exists", vbOKOnly + vbExclamation, "IP exists"
Else
With .OpenTextFile(strPreviousIPList, ForAppending, True)
.WriteLine strIP
.Close
End With
MsgBox "IP [" & strIP & "] append", vbOKOnly + vbInformation, "IP append"
End If
End With
WScript.Quit 0 »

Iska · Отправлено: **19:18, 07-02-2019** | #49

Цитата cinstaller:

что бы в конце IP отображалась дата и время записи »

«В конце IP» — это где? В файле? Или в сообщении?

cinstaller · Отправлено: **21:38, 07-02-2019** | #50

Цитата Iska:

«В конце IP» — это где? В файле? Или в сообщении? »

Что бы при внесение IP в тхт файл записывалась дата и время в конце адреса в таком формате.
Пример:
118.151.161.70 (07.02.2019 / 07:31)
122.221.141.20 (07.02.2019 / 07:39)

И еще один момент, вылетает ошибка при запуске скрипта вовремя отключения интернета.

Хотелось бы, что бы вместо этой ошибки появлялся MsgBox в котором выводилась информация - ожидаем подключения к интернету.