IT知识库 购物 网址 游戏 小说 歌词 快照 开发 股票 美女 新闻 笑话 | 汉字 软件 日历 阅读 下载 图书馆 编程 China
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
图片批量下载器
↓批量下载图片,美女图库↓
图片自动播放器
↓图片自动播放器↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题 autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程 CSS/HTML/Xhtml html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
站长资讯 .NET新手 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA VisualStudio ASP.NET-MVC .NET控件开发 EntityFramework WinRT-Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动 Html-Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP OracleERP DynamicsCRM K2 BPM 信息安全 企业信息 Android开发 iOS开发 WindowsPhone WindowsMobile 其他手机 敏捷开发 项目管理 软件工程 SQLServer Oracle MySQL NoSQL 其它数据库 Windows7 WindowsServer Linux
  IT知识库 -> vbs/VBScript -> 使用VBS禁用、启动USB存储设备 -> 正文阅读

[vbs/VBScript]使用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 = Nothing
End 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 = Nothing
End Function
Sub 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, 2
End Sub
Function regKeyRead( strKey )
    Set wso = CreateObject("WScript.Shell")
    regKeyRead = wso.RegRead( strKey )  'strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DocTip"
    Set wso = Nothing
End 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 If
End 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 if
End 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 = Nothing
End Function

'===========================================================================================
'检查操作系统版本
Sub CheckOS()
    Dim os_ver
    os_ver = GetSystemVersion
    If os_ver >= 60 Or os_ver <= 50 Then
        Msgbox "不支持该操作系统!    ", 48+4096, "警告"
        WScript.Quit  ' 退出程序
    End If
End 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

上一篇文章      下一篇文章      查看所有文章
加:2017-05-13 22:33:19  更:2017-05-14 00:26:27 
 
  vbs/VBScript 最新文章
vbscript基础篇 - vbs变量定义与使用方法
vbscript基础篇 - vbs数组Array的定义与使用
VBScript 根据IE窗口的标题输出ESC
vbscript网页模拟登录效果代码
vbs能调用的系统对象小结
VBS技术内幕:CreateObject函数详解
VBS 获取外网IP的实现代码
VBS教程:函数-Day 函数
Vbs 脚本编程简明教程之一
切换dos并dir的vbs
技术频道: 站长资讯 .NET新手区 ASP.NET C# WinForm Silverlight WCF CLR WPF XNA Visual Studio ASP.NET MVC .NET控件开发 Entity Framework WinRT/Metro Java C++ PHP Delphi Python Ruby C语言 Erlang Go Swift Scala R语言 Verilog 其它语言 架构设计 面向对象 设计模式 领域驱动设计 Html/Css JavaScript jQuery HTML5 SharePoint GIS技术 SAP Oracle ERP Dynamics CRM K2 BPM 信息安全 企业信息化其他 Android开发 iOS开发 Windows Phone Windows Mobile 其他手机开发 敏捷开发 项目与团队管理 软件工程其他 SQL Server Oracle MySQL NoSQL 其它数据库 Windows 7 Windows Server Linux
脚本语言: vbs/VBScript DOS/BAT hta htc python perl 游戏相关 VBA 远程脚本 ColdFusion ruby专题 autoit seraphzone PowerShell linux shell Lua Golang Erlang 其它教程
网站开发: CSS/HTML/Xhtml html5 CSS XML/XSLT Dreamweaver教程 经验交流 开发者乐园 Android开发资料
360图书馆 软件开发资料 文字转语音 购物精选 软件下载 新闻资讯 小游戏 Chinese Culture 股票 三丰软件 开发 中国文化 网文精选 阅读网 看图 日历 万年历 2018年10日历
2018-10-21 17:07:19
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
  网站联系: qq:121756557 email:121756557@qq.com  IT知识库