CMD/BAT - [решено] Определение IP и запись в файл

[registeruser1]

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

CMD/BAT - [решено] Определение IP и запись в файл

. выдает



Код:

Код: Выделить всё

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

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

В строке 24 вроде все нормально:

https://3.downloader.disk.yandex.ru/...282d39e3212b8e

[Iska]

Цитата Sta1917:



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

CMD/BAT - [решено] Определение IP и запись в файл

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



Код:

Код: Выделить всё

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

или:



Код:

Код: Выделить всё

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

[Iska]

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



Код:

Код: Выделить всё

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

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

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

[Sta1917]

Цитата Sta1917:



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

Код: Выделить весь код

Сценарий: D:\Avito_Tech\Check_IP.vbs

Строка: 82

Символ: 3

Ошибка: Сбой скачивания указанного ресурса.

CMD/BAT - [решено] Определение IP и запись в файл

А «ручками», в браузере, у Вас доступен адрес

http://ifconfig.me/ip

?




Цитата Sta1917:



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

CMD/BAT - [решено] Определение IP и запись в файл

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




Цитата Sta1917:



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

CMD/BAT - [решено] Определение IP и запись в файл

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

[Iska]

Цитата Iska:



А «ручками», в браузере, у Вас доступен адрес

http://ifconfig.me/ip?

CMD/BAT - [решено] Определение IP и запись в файл

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


Цитата Iska:



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

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

CMD/BAT - [решено] Определение IP и запись в файл

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


Цитата Iska:



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

CMD/BAT - [решено] Определение IP и запись в файл

Вообще после проверки ip нужно запустить приложение (*.exe), если IP нет в списке, если есть сказать какой и когда был добавлен.

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

[Sta1917]

Цитата Sta1917:



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

CMD/BAT - [решено] Определение IP и запись в файл

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




Цитата Sta1917:



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

CMD/BAT - [решено] Определение IP и запись в файл

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

[Iska]

При запуске скрипта из поста #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

[Sta1917]

Здравствуйте, Iska! Будьте любезны, внесите изменение в данный скрипт из поста

CMD/BAT - [решено] Определение IP и запись в файл

, что бы в конце 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

CMD/BAT - [решено] Определение IP и запись в файл

[cinstaller]

Цитата cinstaller:



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

CMD/BAT - [решено] Определение IP и запись в файл

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

[Iska]

Цитата Iska:



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

CMD/BAT - [решено] Определение IP и запись в файл

Что бы при внесение IP в тхт файл записывалась дата и время в конце адреса в таком формате.

Пример:

118.151.161.70 (07.02.2019 / 07:31)

122.221.141.20 (07.02.2019 / 07:39)



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







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