用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码_vbs

On Error Resume Next
Set WSHShell=WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
.RegDelete"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
End With
Mybox=MsgBox(enab&vbCR&"程序运行限制已解除!",1024,"Result")

时间： 2024-10-03 06:40:16

用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码_vbs的相关文章

bat生成vbs通过注册表禁用或启用USB端口的代码_DOS/BAT

当然,你也可以完全使用BAT操作注册表来完成修改注册表的键值的目的,具体方式留以后完善,如果你有好的想法,记得告诉我哦! USB_Disable.bat文件代码: 复制代码 代码如下: @echo off echo On Error Resume next>USB_Disable.vbs echo Dim WshShell>>USB_Disable.vbs echo Set WshShell = WScript.CreateObject("WScript.Shell"

VBS中常用脚本代码_vbs

将域用户或租添加到本地组 Set objGroup = GetObject("WinNT://./Administrators") Set objUser = GetObject("WinNT://testnet/Engineers") objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Set objcnlar = GetObject("WinNT://./administrator, user") objcnla.

TCP版backshell的VBS脚本代码_vbs

'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by 009, baicker@hotmail.com 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" ) set sc=createobject( "WScript.Shell" ) Set fso =CreateObject( "Scripti

利用vbs写的延时关闭ie进程的脚本代码_vbs

复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objStartup = objWMIService.Get("Win32_ProcessStartup"

用vbs检索在运行对话框中键入的一系列命令的代码_vbs

问: 您好,脚本专家!有时,我在运行对话框中键入了多个命令,随后想要对其进行检索.我知道我最近使用过的命令缓存在某个地方,因为当我开始在运行对话框中键入时,它们便会显示出来.如何使用脚本检索这些命令? -- KJ 答: 您好,KJ.您知道,一看到您的问题,我们首先想到的是:为什么我们没有想过这个问题?不用说,脚本专家使用运行对话框已经有好多年了,并且我们也非常清楚地知道,最近使用的命令(如果您统计过的话,是最近使用过的 26 个)缓存在计算机上的某个地方.然而,我们从未编写过可检索此列表的脚本.

WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码_vbs

脚本主要功能包括: 注册表读取与修改  文件内容修改如HOSTS.SERVICES文件  文件属性修改和文件复制  系统环境变量设置  等,仅供参考  复制代码 代码如下: 'SAP设置脚本  '编写:SCZ 2005.04.20  '最后修改日期: 2005.04.22  '必须存在目录: BW(补丁文件) 和 登入界面  '========================================================================  '全局变量.处理过程 

vbs 获取radmin注册表中的信息_vbs

<% '========================================Main====================================== Set WSH= Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\" Parameter="Parameter&quo

批处理读取注册表中run下面的值的代码_DOS/BAT

复制代码 代码如下: @echo off for /f "tokens=2 delims=:" %%i in ('reg query HKLM\Software\Microsoft\Windows\CurrentVersion\Run') do echo %systemDrive%%%i pause>nul

用vbs实现的利用ADSL拨号变ip刷投票的代码_vbs

以前写过一个利用ADSL拨号变ip刷流量的vbs,只要把刷新的页面稍微改一下(添加个自动提交的js)就是了,可是怎么找都找不到了,没法重新写. 还有种办法就是vbs直接提交,可是写了半天,怎么也没运行起,以后改好了在贴出来. 写的时候遇到了点问题,就是利用网页的js提交的时候,会跳转跳显示投票成果的页面,会弹出个投票成功的对话框,这会影响下面的打开网页.又没法屏蔽,所以采用了个折衷办法,每次结束浏览器进程,在刷后面的页面. 复制代码 代码如下: Const ForAppending = 8 Co