如何锁机电脑
很多人都想把电脑锁住,或者不让别人看到电脑,但一步步操作又太麻烦,所以这里教大家一个方法.
操作方法
- 01
首先新建一个记事本
- 02
打开.把如下代码粘贴 Const strPassword = "XXX"' 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
- 03
注意,第一行中Const strPassword = "XXX"' 引号内容为电脑的密码.可随意更改
- 04
保存,退出. 修改后缀名为.VBS
- 05
然后双击打开,系统重启.这时已经有了密码了.
赞 (0)