PDA

Просмотр полной версии : помогите пожалуйста !!!

seller111
10.03.2010, 16:03
есть исходник бат файла заменяющий файлик hosts
можете проверить ??

Option Explicit

Const SystemFolder = 1
Const ForAppending = 8

Dim strPath2Hosts
Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strPath2Hosts = objFSO.BuildPath(objFSO.GetSpecialFolder(SystemFol der), "drivers\etc\hosts")

If objFSO.FileExists(strPath2Hosts) Then
With objFSO.OpenTextFile(strPath2Hosts, ForAppending)
.WriteLine "127.0.0.1 odnoklassniki.ru # Одноклассники.RU"
End With
End If

Set objFSO = Nothing

WScript.Quit 0
или вот такой
@echo off
echo.217.106.225.146 www.script-coding.info>>%systemroot%\system32\drivers\etc\hosts.
echo.127.0.0.1 www.odnoklassniki.ru>>%systemroot%\system32\drivers\etc\hosts.
ProTeuS
10.03.2010, 17:30
и что проверять-то? то чот он лочит доступ на одновклассники и ассоциирует с доменом скрипт-кодинг левый ип?
seller111
10.03.2010, 19:23
нет правильно ли написан?
_iks_
10.03.2010, 22:36
Нет, точка после echo не нужна, точка после hosts не нужна, а также тема не имеет отношения реверсингу.

А скрипт тебе самому не запустить для проверки?
seller111
10.03.2010, 22:57
да у меня хостс исчез куда то (
neprovad
11.03.2010, 01:04
да у меня хостс исчез куда то (
создай заново
seller111
11.03.2010, 11:04
создал проверяю скрипт не заменяет
neprovad
11.03.2010, 12:06
@echo off
echo #>>%systemroot%\system32\drivers\etc\hosts
echo 217.106.225.146 www.script-coding.info>>%systemroot%\system32\drivers\etc\hosts
echo 127.0.0.1 www.odnoklassniki.ru>>%systemroot%\system32\drivers\etc\hosts
seller111
11.03.2010, 13:47
bat или cmd ?
neprovad
11.03.2010, 17:30
bat или cmd ?
Если бы знал основы, то не задавал глупейших вопросов, относящихся к основам работы с пакетными файлами
http://ru.wikipedia.org/wiki/Пакетный_файл