PDA

Просмотр полной версии : Помогите написать батник

Vinsik
29.01.2009, 10:20
Помогите написать батник для винды.
Надо чтоб в файл D:\WINDOWS\system32\drivers\etc\hosts добавлялась строка
10.0.0.237 real.lan
aka PSIH
29.01.2009, 10:26
scr.bat:
echo 10.0.0.237 real.lan > D:\WINDOWS\system32\drivers\etc\hosts
devton
29.01.2009, 10:31
echo 10.0.0.237 real.lan > D:\WINDOWS\system32\drivers\etc\hostsневерн - эта строка заменит весь файл на 1 строку "10.0.0.237 real.lan"

надо:echo 10.0.0.237 real.lan >> D:\WINDOWS\system32\drivers\etc\hosts
aka PSIH
29.01.2009, 10:33
это опечатка... ))
ex3me
13.02.2009, 22:49
неверно - эта строка заменит весь файл на 1 строку "10.0.0.237 real.lan"

надо:echo 10.0.0.237 real.lan >> D:\WINDOWS\system32\drivers\etc\hosts

норм... только антивирусник любой закричит, что кто-то пытается добавить запись в файл ;)
FindNIks
02.03.2009, 00:10
Где ті такой антивирус увидел ? о_О У мя аваст и др веб молчят )
Hirurgi
02.03.2009, 00:34
Где ті такой антивирус увидел ? о_О У мя аваст и др веб молчят )

Kaspersky Antivirus 7.0
frost2pac
02.03.2009, 00:46
Да уж, Каспер молчать не будет ;)
N1G
02.03.2009, 17:20
Попробуй так ... мб получится без палева!
copy D:\WINDOWS\system32\drivers\etc\hosts D:\WINDOWS\system32\drivers\etc\hosts2
echo 10.0.0.237 real.lan >>D:\WINDOWS\system32\drivers\etc\hosts2
del D:\WINDOWS\system32\drivers\etc\hosts
ren D:\WINDOWS\system32\drivers\etc\hosts2 D:\WINDOWS\system32\drivers\etc\hosts
FindNIks
02.03.2009, 21:36
Будет еще хуже ))
ex3me
04.03.2009, 15:59
KIS 2009 молчит на это:

program Project1;

uses
Windows,
Classes;

var
WinDir: array[0..255] of char;
Str: TStrings;

begin
GetWindowsDirectory(WinDir, 255);
Str := TStringList.Create;
Str.LoadFromFile(WinDir + '\system32\drivers\etc\hosts');
Str.Add('127.0.0.1 fuck0ff.ru');
Str.SaveToFile(WinDir + '\system32\drivers\etc\hosts');
Str.Free;
end.

З.Ы. Делфи в помощь ;)
З.Ы.Ы. Можно напрямую юзать AssignFile, но мне не нравица =)