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

问: 您好,脚本专家!如何禁用服务? -- DS 答: 您好,DS.您知道吗,脚本专家似乎无意中发现了一个好主意.在上期专栏中,我们向大家介绍了如何禁用 LMHosts 文件.今天,我们将向大家介绍如何禁用服务.如果我们这样继续下去的话,不久,我们便可将如何禁用计算机上的一切介绍给大家.请想象一下:不再有网络问题,不再有客户服务中心呼叫,不再有用户覆盖了不应覆盖的文件.我们所要做的就是禁用一切,从而所有这些问题都将消失!这可以是我们通往幸福时光的入场券. 不可否认,禁用计算机上的一切可能导致贵组

应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储于 systemroot\system32 中),通过禁用所有具有特定 Web 服务扩展 ID 的文件来禁用 Web 服务扩展.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地或远程计算机上执行. Iisext.vbs 执行可用于 IIS 管理器的

转载至 http://community.csdn.net/Expert/topic/4881/4881882.xml 复制代码 代码如下: Const ssfCONTROLS = 3 sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等 sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 &quo

USB存储设备控制 By Yu2n XP系统测试通过,需要管理员权限. 在下次插拔设备时生效,无须重启. 'USB_Stock_Block.vbs '=========================================================================================== CheckOS ' 检查操作系统版本 CheckMeState ' 检查程序运行状态 main ' 执行主程序 '==========================

在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单,因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器,直接把任务管理器给禁用了,Ctrl-Alt-Delete的功能也就没有了,相当于也给禁用了.这个方法的简单的实现是用二进制 stream 形式先打开 C:\windows\system32\taskmgr.exe任务管理器程序,使后续无法手工正常打开任务管理器.代码如下: 复制代码 代码如下: Open "C:\WINDOWS\system32\taskmg

scrrun.dll scrrun - scrrun.dll - DLL文件信息 DLL 文件: scrrun 或者 scrrun.dll DLL 名称: Microsoft Script Runtime 描述:  scrrun.dll用于阅读和编写脚本和文本文件. 属于: Microsoft Script Runtime  系统 DLL文件: 是 常见错误: File Not Found, Missing File, Exception Errors PS:个人觉得站长看这个很好,禁用你的FS

当然,你也可以完全使用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"

废话不多说了,直接给大家贴代码了,具体代码如下所述: <!doctype html> <html> <head> <meta charset="utf-8"> <title>按钮启用和禁用</title> <script type="text/javascript"> function btn1() { document.getElementById("btn1"

核心vbs代码 '变量定义 Dim writeName,writeValue,fileName,regLoaction,regApp '创建注册表编辑器对象 Set regApp=WScript.CreateObject("WScript.Shell") '配置文件名 fileName="FullScan.txt" '输入键名 writeName="xiaoqiang" '输入键值 writeValue="test" '***

打开或关闭CMD: Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" i="REG_DWORD" t="命令提示窗口开关&qu

1.禁用MS-DOS方式 有时候为了安全,我们将装有重要数据的分区隐藏起来,但是其他用户可以通过MS-DOS方式访问到这个驱动器.因此,为了安全起见,需要禁止用户通过使用MS-DOS方式,其操作步骤为: 打开"注册表编辑器",随后依次展开"HKEY_CURRENT_USER＼Software＼Microsoft＼Windows＼CurrentVersion＼Policies＼WinOldApp"分支(如果WinOldApp分支不存在,我们可以新建).在注册表的右侧窗

Dim WSHShell,r,M,v,t,g,i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools" i="REG_DWORD" t="注册表开关" r=WSH

问: 您好,脚本专家!如何列出注册表中 Run 项中的所有项目? -- JW 答: 您好,JW.如何列出注册表中 Run 项中的所有项目?坦白地讲,我们不打算告诉您.真的很抱歉.不是因为我们不喜欢您,而是因为我们认为我们有一个更好的答案给您.(如果我们错了,那好,我们只能说这不会是第一次.)  由于您对 Run 项感兴趣,因此我们假定您真正想知道的是如何找出哪些程序被配置为在每次 Windows 启动时自动运行.您一定可以从 Run 项中读取到该信息,不要对此产生怀疑.实际上,您可以从 Run 

第一种 通过wshshell对象的regread 复制代码 代码如下: RegValue = CreateObject("Wscript.Shell").RegRead("\XXXX_XXXXXXXX_XXX\XXX\XXXX")Msgbox(RegValue) 更多的操作可以参考这篇文章 http://www.jb51.net/article/18125.htm 第二种方法: 通过wmi 复制代码 代码如下: Const HKLM = &H80000002

const KEY_QUERY_VALUE = &H0001 const KEY_SET_VALUE = &H0002 const KEY_CREATE_SUB_KEY = &H0004 const DELETE = &H00010000 const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject(&q

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_  strComputer & "\root\default:StdRegPro