Set Wshell=WScript.CreateObject(\"WScript.Shell\") Wshell.Run \"rundll32.exe user32.dll,LockWorkStation\"，1,False 或者 Set colOS = GetObject(\"winmgmts:{(Shutdown)}\").ExecQuery(\"Select * FROM Win32_OperatingSystem\") For Eac...

开机按F8进安全模式，能解决就直接解决，解决不了就重装系统。

用 VBS 中的 cmd 来实现代码： set ws=wscript.createobject("wscript.shell") ws.run"cmd /c net user 账号 /del " ws.run"net user 账号 密码 "

下载最新版的通用pe工具箱将u盘制作成启动盘，接着重启连续按热键进入到bios系统下，设置u盘为第一启动，保存重启； 重启后会进入通用pe工具箱的选择界面，选择第四个“运行Windows登陆密码破解工具”； 输入“1”然后回车； 输入“0”然后回车（通常...

WScript.Sleep 5000 Set ws = CreateObject("WScript.Shell") ws.Run "rundll32.exe user32.dll,LockWorkStation" Ctrl+Esc不完全等于按徽标键，不用模拟按键可以实现这一功能，因为按win+L键后系统执行了一条命令，这句代码就是直接执行那条命令。

set AutoClose=createobject("wscript.shell") if msgbox("您要使用定时关机程序？",vbokcancel,"阿庆提示：")=vbOK then msgbox"欢迎使用！",64,"欢迎！" NT=now() InAuto=inputbox("现在是 " & NT &"," & chr(13)&"您计划在几分钟后关机？请输...

我这里只给VBS代码了。。。 set s = createobject("wscript.shell")s.run "net user 用户名 密码" '这里给用户设置密码楼主不要害人。。。

设置个电脑管理员帐户就好了，可以加密了。

1、使用VBS重启电脑的代码如下： Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！") If return=vbok Then R.run("Shutdown.exe -r -t 0") End if 2、开发方式，直...

是我知道你只是想解锁！但是你用这台机子解另一台的机子的锁，你的VBS必须得道另一台机子的控制权，才能下一步的操作，出非你的锁机子的软件有后门就好办了追问： 还有个想法，就是做一个取消主机密码的脚本，再做一个设置主机密码的脚本，拷贝...