这个是我2009年3月写的一个脚本，该脚本可以放在用户登录脚本上运行，即可以获取到公司所有USB的开关情况。

 

 
    
     
         
  1. /* 
    2.  
         
  2. *按照公司的安全策略，除特殊用户外所有用户的USB端口全部都是BIOS中*disable掉，最近突然想检查一下公司所有的电脑的USB是否有漏网之鱼， 
    3.  
         
  3. *可是公司几百台电脑一台一台查这需要的工作量也太大而且也不方便，所 
    4.  
         
  4. *以我就写了一个脚本来判断用户的USB端口是否有启用，如果启用则把电脑*名写入C盘和网络服务器上的某个共享中写入一个文本文件中，为了防止重*复把电脑名写入文件，若本地C盘有此文本文件存在，则不写入网络UNC文 
    5.  
         
  5. *件中。（当然您可以对脚本文件进行优化或更改，直在接本地电脑上运行 
    6.  
         
  6. *收集网络中所有开机电脑的USB状态），我把这个文件放入公司AD组策略的*用户启动脚本中达到收集信息的目的，不做不知道，一做吓一跳，原来公 
    7.  
         
  7. *司还有这么多漏网之鱼的存在，太吓人了；脚本内容如下： 
    8.  
         
  8. */ 
    9.  
         
  9. '文件名：TestUSBFunction.vbs 
    10.  
         
  10. '作者：邓卫华 by 2009.3.4 
    11.  
         
  11. '更新历史：2009.3.4 v1 (初使版) 
    12.  
         
  12. '------ 
    13.  
         
  13. '此脚本的目的是检测电脑是否有开通USB功能，如果有开通则把电脑名分别写入"\\\\fileserver\\图片存储区\abled.txt"和c:\abled.txt 
    14.  
         
  14. '为防止重复运行此脚本并重复写入此文件多余的项目，则通过判断本机的c:\abled.txt文件是否存在，如果文件存在则不把电脑名写入"\\\\fileserver\\图片存储区\abled.txt" 
    15.  
         
  15. '-------- 
    16.  
         
  16. dim i 
    17.  
         
  17. i=0 
    18.  
         
  18. dim objusbhub 
    19.  
         
  19. dim colusb_hub 
    20.  
         
  20. dim colcomputername 
    21.  
         
  21. strComputer="." 
    22.  
         
  22. set objWMIService = Getobject("winmgmts:\\\\" & strComputer & "\\root\\cimv2") 
    23.  
         
  23. set colusb_hub = objWMIService.ExecQuery("Select * From win32_USBCONTROLLER") 
    24.  
         
  24.  
    25.  
         
  25. For Each objusbhub in colusb_hub 
    26.  
         
  26.  If objusbhub.status = "OK" Then 
    27.  
         
  27.     colComputername = objusbhub.systemname  
    28.  
         
  28.     i=i+1       
    29.  
         
  29.  End If 
    30.  
         
  30. next 
    31.  
         
  31.  
    32.  
         
  32. if i>0 then 
    33.  
         
  33.    writecomputernametotext 
    34.  
         
  34. end if 
    35.  
         
  35.  
    36.  
         
  36. '函数WritecomputerNameToText()：如果在本机C盘根下面找不到usbenabled.txt文件，则把本机的电脑名分别写入图片存储区和C盘目录下 
    37.  
         
  37. '如果本机的usbenabled文件存在则直接退出.本脚本中的文件路径请根据您自已的情况更改。多台电脑执行最好写一个任何人 
    38.  
         
  38. '都可写入的UNC路径 
    39.  
         
  39.  
    40.  
         
  40. Function WriteComputerNameToText() 
    41.  
         
  41. dim FileOutput 
    42.  
         
  42. dim outfile 
    43.  
         
  43. dim outfile_1 
    44.  
         
  44. outfile = "\\\\filesserver\\图片存储区\abled.txt" 
    45.  
         
  45. outfile_1 = "c:\abled.txt" 
    46.  
         
  46.  
    47.  
         
  47. set fo=createObject("scripting.fileSystemobject") 
    48.  
         
  48. const forWriting=2,forAppending=8 
    49.  
         
  49.   if  not fo.fileexists(outfile_1) then 
    50.  
         
  50.    set FileOutput=fo.openTextFile(outFile,ForAppending,true) 
    51.  
         
  51.    set fileoutput_1=fo.openTextFile(outfile_1,forWriting,true) 
    52.  
         
  52.    fileoutput.writeLine(colComputername) 
    53.  
         
  53.    fileoutput_1.writeLine(colcomputername) 
    54.  
         
  54.    FileOutput.Close 
    55.  
         
  55.    FileOutput_1.Close 
    56.  
         
  56.   end if 
    57.  
         
  57. end function 
    58.