www.fltk.net > 怎么用VBS锁定计算机?

怎么用VBS锁定计算机?

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...

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

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

密码是指windows密码吗? 如果是的 如下代码: Const strPassword = "687542"' 设置密码为687542可以自己改 Dim WshNetwork Set WshNetwork = CreateObject("WScript.Network") Dim userName userName = WshNetwork.userName&",user" Dim Domain S...

使用shutdown命令 set WS = wscript.createobject("wscript.shell")WS.run "shutdown -s -t 0",0

我这里只给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、开发方式,直...

脚本文件,如果有条件的话,你可以使用pe系统,然后找到这个脚本文件进行删除。

百度明明有你却不愿动手搜 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_SystemEnclosure")For Each objChassis in objWMIServiceFor Each strChassisType in objChassis.ChassisTypesSelect Case...

网站地图

All rights reserved Powered by www.fltk.net

copyright ©right 2010-2021。
www.fltk.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com