помогите пожалуйста !!!

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

Code:

Option Explicit

Const SystemFolder = 1
Const ForAppending = 8

Dim strPath2Hosts
Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strPath2Hosts = objFSO.BuildPath(objFSO.GetSpecialFolder(SystemFolder), "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 

или вот такой

Code:

@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.

 

и что проверять-то? то чот он лочит доступ на одновклассники и ассоциирует с доменом скрипт-кодинг левый ип?

 

нет правильно ли написан?

 

Нет, точка после echo не нужна, точка после hosts не нужна, а также тема не имеет отношения реверсингу.

А скрипт тебе самому не запустить для проверки?

 

да у меня хостс исчез куда то (

 

создай заново

 

создал проверяю скрипт не заменяет

 

Code:

@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

 

bat или cmd ?

 

Если бы знал основы, то не задавал глупейших вопросов, относящихся к основам работы с пакетными файлами
http://ru.wikipedia.org/wiki/Пакетный_файл