返回顶部
首页 > 资讯 > 精选 >如何使用VBS禁用或启动USB存储设备
  • 494
分享到

如何使用VBS禁用或启动USB存储设备

2023-06-08 08:06:18 494人浏览 独家记忆
摘要

这篇文章主要介绍“如何使用VBS禁用或启动USB存储设备”,在日常操作中,相信很多人在如何使用VBS禁用或启动USB存储设备问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何使用VBS禁用或启动USB存储设备

这篇文章主要介绍“如何使用VBS禁用或启动USB存储设备”,在日常操作中,相信很多人在如何使用VBS禁用或启动USB存储设备问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何使用VBS禁用或启动USB存储设备”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

USB存储设备控制 By Yu2n

XP系统测试通过,需要管理员权限。

在下次插拔设备时生效,无须重启。

'USB_Stock_Block.vbs'===========================================================================================CheckOS     ' 检查操作系统版本CheckMeState  ' 检查程序运行状态main      ' 执行主程序'==========================================================================================='主函数Sub main()    Dim wso, windir, EnableUSB    Set wso = CreateObject("WScript.shell")    Set objNetwork = CreateObject("wscript.network")        strComputer = objNetwork.ComputerName            If wso.Popup(VbCrLf & "禁用 USB 存储设备,请按“确定”"& VbCrLf & _                VbCrLf & "启用 USB 存储设备,请按“取消”   (6秒后自动取消)" _                , 6, "USB 存储设备控制 - 主菜单", 48+4096+1) = 1 Then        EnableUSB = 0    Else        EnableUSB = 1    End If        If Exist( "C:\windows\system32\cmd.exe" ) Then windir = "windows"    If Exist( "C:\winnt\system32\cmd.exe" ) Then windir = "winnt"    If EnableUSB = 1 Then        wso.RegWrite "HKEY_LOCAL_MacHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect","1","REG_DWord" '禁止写入        wso.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start","3","REG_DWORD"           '启用USBStor                Move "C:\" & windir & "\inf\usbstor.pnf_" , "C:\" & windir & "\inf\usbstor.pnf"        Move "C:\" & windir & "\inf\usbstor.inf_" , "C:\" & windir & "\inf\usbstor.inf"        Move "C:\" & windir & "\system32\drivers\usbstor.sys_" , "C:\" & windir & "\system32\drivers\usbstor.sys"                If (Not Exist( "C:\" & windir & "\inf\usbstor.pnf_" )) And (regKeyRead( "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start" ) = 3 ) Then            wso.Popup VbCrLf & "启用 USB 存储设备成功。    ", 5, "USB 存储设备控制 - 操作完成", 64+4096        Else            wso.Popup VbCrLf & "启用 USB 存储设备失败。    ", 5, "USB 存储设备控制 - 操作完成", 16+4096        End If    Else        wso.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect","1","REG_DWORD" '禁止写入        wso.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start","4","REG_DWORD"           '禁用用USBStor                Move "C:\" & windir & "\inf\usbstor.pnf" , "C:\" & windir & "\inf\usbstor.pnf_"        Move "C:\" & windir & "\inf\usbstor.inf" , "C:\" & windir & "\inf\usbstor.inf_"        Move "C:\" & windir & "\system32\drivers\usbstor.sys" , "C:\" & windir & "\system32\drivers\usbstor.sys_"                If (Not Exist( "C:\" & windir & "\inf\usbstor.pnf" )) And (regKeyRead( "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start" ) = 4 ) Then            wso.Popup VbCrLf & "禁用 USB 存储设备成功。    ", 5, "USB 存储设备控制 - 操作完成", 64+4096        Else            wso.Popup VbCrLf & "禁用 USB 存储设备失败。    ", 5, "USB 存储设备控制 - 操作完成", 16+4096        End If    End if            Set wso = NothingEnd Sub'==========================================================================================='小函数Function Exist( strPath )    'On Error Resume Next    Set fso = CreateObject("Scripting.FileSystemObject")    If ((fso.FolderExists( strPath )) Or (fso.FileExists( strPath ))) then        Exist = True    Else        Exist = False    End if    Set fso = NothingEnd FunctionSub Move( strSource, strDestination )    On Error Resume Next    If Exist( strSource ) Then        Set fso = CreateObject("Scripting.FileSystemObject")        If (fso.FileExists(strSource)) Then fso.MoveFile strSource, strDestination        If (fso.FolderExists(strSource)) Then fso.MoveFolder strSource, strDestination        Set fso = Nothing    Else        WarningInfo "警告", "找不到 " & strSource & " 文件!", 2    End If    If Not Exist( strDestination ) Then WarningInfo "警告", "移动失败,无法移动 " & VbCrLf & strSource & " 至" & VbCrLf & strDestination, 2End SubFunction regKeyRead( strKey )    Set wso = CreateObject("WScript.Shell")    regKeyRead = wso.RegRead( strKey )  'strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DocTip"    Set wso = NothingEnd Function'==========================================================================================='是否重复运行Sub CheckMeState()    If IsRun( WScript.ScriptFullName ) Then        Set wso = CreateObject("WScript.Shell")        If wso.Popup("程序已运行,请不要重复运行本程序!" & VbCrLf & VbCrLf & _                            "退出已运行程序,请按“确定”,否则请按“取消”。(3秒后自动取消)" _                            , 3, "警告", 1) = 1 Then            KillMeAllRun        End If        Set wso = Nothing        'WarningInfo "警告:", "程序已运行,请不要重复运行本程序!!", 1        WScript.Quit    End IfEnd Sub' 检测是否重复运行Function IsRun(appPath)    IsRun=False    For Each ps in GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_        'IF Lcase(ps.name)="mshta.exe" Then        IF Lcase(ps.name)="wscript.exe" Then            IF instr(Lcase(ps.CommandLine),Lcase(appPath)) Then i=i+1        End IF    next    if i>1 then        IsRun=True    end ifEnd Function'终止自身Function KillMeAllRun()    Dim MeAllPid    Set pid = Getobject("winmgmts:\\.").InstancesOf("Win32_Process")    For Each ps In pid        'if LCase(ps.name) = LCase("mshta.exe") then        IF Lcase(ps.name)="wscript.exe" Or Lcase(ps.name)="cscript.exe"Then            IF instr(Lcase(ps.CommandLine),Lcase(WScript.ScriptFullName)) Then MeAllPid = MeAllPid & "/PID " & ps.ProcessID & " "        end if    next    Set wso = CreateObject("WScript.Shell")    wso.Run "TASKKILL " & MeAllPid & " /F /T", 0, False    Set wso = Nothing    Set pid = NothingEnd Function'==========================================================================================='检查操作系统版本Sub CheckOS()    Dim os_ver    os_ver = GetSystemVersion    If os_ver >= 60 Or os_ver <= 50 Then        Msgbox "不支持该操作系统!    ", 48+4096, "警告"        WScript.Quit  ' 退出程序    End IfEnd Sub'取得操作系统版本Function GetSystemVersion()    Dim os_obj, os_version, os_version_arr    Set os_obj = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")    For Each os_info In os_obj        os_version = os_info.Version        If os_version <> "" Then Exit For    Next    Set os_obj = Nothing    os_version_arr = Split( os_info.Version, ".")    GetSystemVersion = Cint( os_version_arr( 0 ) & os_version_arr( 1 ) )End Function

到此,关于“如何使用VBS禁用或启动USB存储设备”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注编程网网站,小编会继续努力为大家带来更多实用的文章!

--结束END--

本文标题: 如何使用VBS禁用或启动USB存储设备

本文链接: https://www.lsjlt.com/news/253187.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

猜你喜欢
  • 如何使用VBS禁用或启动USB存储设备
    这篇文章主要介绍“如何使用VBS禁用或启动USB存储设备”,在日常操作中,相信很多人在如何使用VBS禁用或启动USB存储设备问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何使用VBS禁用或启动USB存储设备...
    99+
    2023-06-08
  • 怎么禁用USB存储设备
    这篇文章将为大家详细讲解有关怎么禁用USB存储设备,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。一、按“win+r”组合键唤出运行,然后在运行内输入gpedit.msc,点击确定。二、在弹出的本地组策略编...
    99+
    2023-06-28
  • 笔记本怎么禁用USB存储设备
    这篇文章主要为大家分析了笔记本怎么禁用USB存储设备的相关知识点,内容详细易懂,操作细节合理,具有一定参考价值。如果感兴趣的话,不妨跟着跟随小编一起来看看,下面跟着小编一起深入学习“笔记本怎么禁用USB存储设备”的知识吧。电脑上有一些重要的...
    99+
    2023-06-28
  • Linux系统如何禁用USB存储
    今天就跟大家聊聊有关Linux系统如何禁用USB存储,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。在企业中为了保护数据的安全性,通常使用软件与硬件防火墙限制外部未经授权的访问,但是家...
    99+
    2023-06-28
  • win11自动启用或禁用如何设置
    要设置Windows 11的自动启用或禁用功能,可以按照以下步骤进行操作: 打开“设置”应用程序。可以通过在任务栏上点击“开始”...
    99+
    2023-10-22
    win11
  • Win7如何屏蔽U盘禁用USB设备
      在Win7系统中想要屏蔽U盘该怎么办?这个问题烦恼着许多Win7用户。其实要解决这个问题并不难,现在就让小编来教你解决的方法吧。   解决方法:   在Windows 7系统中,运行注册表编辑器,依次展开到HKEY_...
    99+
    2023-06-10
    Win7 U盘 设备 USB
  • ​Win7系统如何关闭USB存储设备
    要关闭Win7系统中的USB存储设备,可以按照以下步骤操作: 打开控制面板,可以通过开始菜单中的“控制面板”选项或者在任务栏中的搜...
    99+
    2023-10-20
    ​Win7
  • 怎么用bat生成vbs通过注册表禁用或启用USB端口的代码
    这篇文章主要介绍“怎么用bat生成vbs通过注册表禁用或启用USB端口的代码”,在日常操作中,相信很多人在怎么用bat生成vbs通过注册表禁用或启用USB端口的代码问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答...
    99+
    2023-06-08
  • linux如何挂载一个usb 捷盘或闪存设备
    ...
    99+
    2024-04-02
  • Win10 9926如何禁用云存储服务OneDrive开机启动
    使用Win10 9926时会发现,OneDrive会开机自启动,并在桌面右下角留一个托盘图标。在OneDrive的设置中发现编程开始启动是灰色的,那就无法再这里设置取消。如何禁止Win10 9926开机启动OneDriv...
    99+
    2023-06-11
    Win10 OneDrive 开机启动 服务 存储
  • 如何使用Mkusb初始化USB设备
    这篇文章将为大家详细讲解有关如何使用Mkusb初始化USB设备,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。Mkusb是用于在Ubuntu Linux上制作可启动驱动器的图形实用程序,它使用dd工具在后台...
    99+
    2023-06-27
  • 如何在虚拟机中使用USB设备
    在虚拟机中使用USB设备通常需要以下步骤: 确保虚拟机软件支持USB设备的传输功能,例如VMware Workstation、VirtualBox等。 将USB设备插入主机电脑的USB接口,确保设备被主机系统识别并可以正常使用。 ...
    99+
    2024-06-11
    virtualbox
  • 如何启用或禁止SSL证书
    这篇文章给大家介绍如何启用或禁止SSL证书,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。如何启用或禁止SSL证书?购买过SSL证书之后是将证书部署到网站上,那么部署过SSL网站时候是否万事大吉了呢?显然不是的,我们需要...
    99+
    2023-06-04
  • Win8系统如何禁用启动项?win8启动项设置禁用方法介绍
    开机时有些程序会自动加载,如果想禁用启动项,针对Windows 8一个全新的界面,操作方法有些变化。 操作步骤: 1. 在传统界面,可以在任务栏右键单击选择“任务管理器”; 2. 点开后如果您看...
    99+
    2023-06-05
    Win8 启动项 禁用启动项 系统 禁用 方法
  • 如何直接对内存的访问DMA的启用或禁用
    本篇内容主要讲解“如何直接对内存的访问DMA的启用或禁用”,感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷,实用性强。下面就让小编来带大家学习“如何直接对内存的访问DMA的启用或禁用”吧!直接内存访问 (DMA): 支持某些特定设备(如...
    99+
    2023-06-14
  • 如何在iPhone(Safari)上启用或禁用JavaScript
    要在iPhone上启用或禁用JavaScript,您可以按照以下步骤进行操作:1. 打开“设置”应用程序,它的图标是一个齿轮形状的。...
    99+
    2023-09-21
    JavaScript
  • Win11系统如何启用或禁用始终显示滚动条
      Win11系统如何启用或禁用始终显示滚动条?随着Win11系统的推出,很多用户都迫不及待的下载体验了,但是由于是新的操作系统,其部分功能设置会有所不同,近期就有用户想要设置滚动条,但是不知道应该如何操作,对此下面小编就来和大家分享Win...
    99+
    2023-07-10
  • 如何使用vbs禁止QQ上网
    这篇文章主要为大家展示了“如何使用vbs禁止QQ上网”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“如何使用vbs禁止QQ上网”这篇文章吧。dim bag,pipe,honker,goo...
    99+
    2023-06-08
  • Linux如何使用libudev获取USB设备VID及PID
    在本文将使用libudev库来访问hidraw的设备。通过libudev库,我们可以查询设备的厂家ID(Vendor ID, VID),产品ID(Product ID, PID),序列号和设备字符串等而不需要打开设备...
    99+
    2022-06-03
    linux libudev 获取 USB VID PID
  • Win10禁用设备驱动更新如何解决
    本篇内容介绍了“Win10禁用设备驱动更新如何解决”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!首先,Win+R运行,调出运行框,输入“gp...
    99+
    2023-07-01
软考高级职称资格查询
编程网,编程工程师的家园,是目前国内优秀的开源技术社区之一,形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容,为IT开发者提供了一个发现、使用、并交流开源技术的平台。
  • 官方手机版

  • 微信公众号

  • 商务合作