1）批处理脚本：Rhea_HardwareInfoCollector.bat

调用VBScript脚本Rhea_HardwareInfoCollector.vbs，并将结果打印到文件Rhea_Result.txt

  1. @if exist Rhea_Result.txt (del Rhea_Result.txt)
  2. @cscript Rhea_HardwareInfoCollector.vbs >> Rhea_Result.txt
  3. @echo "结果已打印到 Rhea_Result.txt"
  4. @pause

2）VBScript脚本：Rhea_HardwareInfoCollector.bat

  1. 'On Error Resume Next
  2.  
  3. If WScript.Arguments.Count >=  Then
  4.     Select Case WScript.Arguments()
  5.         Case "-e", "--execute"
  6.         Case "-v", "--version"
  7.             WScript.Echo "程序版本：1.0.0.0"
  8.             WScript.Echo "作者标识：Tsybius2014"
  9.             WScript.Echo "作者主页：http://my.oschina.net/Tsybius2014/"
  10.             WScript.Echo
  11.             WScript.Quit()
  12.         Case "-h", "--help"
  13.             WScript.Echo "进行检查：Rhea_HardwareInfoCollector.vbs [-e|--execute]"
  14.             WScript.Echo "查看帮助：Rhea_HardwareInfoCollector.vbs [-h|--help]"
  15.             WScript.Echo "查看版本：Rhea_HardwareInfoCollector.vbs [-v|--version]"
  16.             WScript.Echo
  17.             WScript.Quit()
  18.     End Select
  19. End If
  20.  
  21. Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  22.  
  23. Dim i, j, k
  24.  
  25. StartTime = Now
  26.  
  27. SystemOverview
  28. ProcessorInfo
  29. BaseBoardInfo
  30. MemoryInfo
  31. DiskInfo
  32. GraphicsInfo
  33. DisplayInfo
  34. SoundCardInfo
  35. NetworkCardInfo
  36. KeyBoardInfo
  37. BatteryInfo
  38. PointingDeviceInfo
  39. CDROMDriveInfo
  40. OtherHardware
  41.  
  42. FinishTime = Now
  43. RunStats
  44.  
  45. WScript.Echo 
  46.  
  47. '打印标题
  48. Sub SetTitle(TitleName)
  49.  
  50.     Dim Title : Title = TitleName
  51.     For i =  To
  52.         Title = "－" & Title & "－"
  53.     Next
  54.     WScript.Echo Title
  55.  
  56. End Sub
  57.  
  58. '系统概览
  59. '参考：https://msdn.microsoft.com/en-us/library/aa394102%28VS.85%29.aspx
  60. Sub SystemOverview
  61.  
  62.     SetTitle "1.系统概览"
  63.  
  64.     Set Computers = WMI.ExecQuery("Select * from Win32_ComputerSystem")
  65.     For Each Computer in Computers
  66.  
  67.         Wscript.Echo "生产厂家：" & Computer.Manufacturer
  68.         Wscript.Echo "当前用户：" & Computer.UserName
  69.  
  70.     Next
  71.  
  72.     WScript.Echo 
  73.  
  74. End Sub
  75.  
  76. '处理器信息
  77. '参考：https://msdn.microsoft.com/en-us/library/aa394373%28VS.85%29.aspx
  78. Sub ProcessorInfo
  79.  
  80.     SetTitle "2.处理器信息"
  81.  
  82.     Set CPUs = WMI.InstancesOf("Win32_Processor")
  83.     For Each CPU In CPUs
  84.  
  85.         WScript.Echo "设备名称: " & CPU.Name
  86.         WScript.Echo "设备描述: " & CPU.Description
  87.         WScript.Echo "设备说明: " & CPU.Caption
  88.         WScript.Echo "处理器标识: " & CPU.ProcessorId
  89.  
  90.         Dim ProcessorType : ProcessorType = "处理器类型："
  91.         Select Case CPU.ProcessorType
  92.             Case  : ProcessorType = ProcessorType & "Other"
  93.             Case  : ProcessorType = ProcessorType & "Unknown"
  94.             Case  : ProcessorType = ProcessorType & "Central Processor"
  95.             Case  : ProcessorType = ProcessorType & "Math Processor"
  96.             Case  : ProcessorType = ProcessorType & "DSP Processor"
  97.             Case  : ProcessorType = ProcessorType & "Video Processor"
  98.             Case Else : ProcessorType = ProcessorType & "[Type]" & CPU.ProcessorType
  99.         End Select
  100.         WScript.Echo ProcessorType
  101.  
  102.         WScript.Echo "处理器版本: " & CPU.Version
  103.         'WScript.Echo "唯一标识: " & CPU.UniqueId
  104.         WScript.Echo "设备标识: " & CPU.DeviceID
  105.  
  106.         Dim Family : Family = "处理器家族："
  107.         Select Case CPU.Family 
  108.  
  109.             Case  : Family =  Family & "Other"
  110.             Case  : Family =  Family & "Unknown"
  111.             Case  : Family =  Family & ""
  112.             Case  : Family =  Family & ""
  113.             Case  : Family =  Family & "Intel386(TM) Processor"
  114.             Case  : Family =  Family & "Intel486(TM) Processor"
  115.             Case  : Family =  Family & ""
  116.             Case  : Family =  Family & ""
  117.             Case  : Family =  Family & ""
  118.  
  119.             Case  : Family =  Family & ""
  120.             Case  : Family =  Family & "Pentium Brand"
  121.             Case  : Family =  Family & "Pentium Pro"
  122.             Case  : Family =  Family & "Pentium II"
  123.             Case  : Family =  Family & "Pentium Processor with MMX(TM) Technology"
  124.             Case  : Family =  Family & "Celeron(TM)"
  125.             Case  : Family =  Family & "Pentium II Xeon(TM)"
  126.             Case  : Family =  Family & "Pentium III"
  127.             Case  : Family =  Family & "M1 Family"
  128.             Case  : Family =  Family & "M2 Family"
  129.  
  130.             Case  : Family =  Family & "AMD Duron(TM) Processor Family"
  131.             Case  : Family =  Family & "K5 Family"
  132.             Case  : Family =  Family & "K6 Family"
  133.             Case  : Family =  Family & "K6-2"
  134.             Case  : Family =  Family & "K6-3"
  135.             Case  : Family =  Family & "AMD Athlon(TM) Processor Family"
  136.  
  137.             Case  : Family =  Family & "AMD2900 Family"
  138.             Case  : Family =  Family & "K6-2+"
  139.             Case  : Family =  Family & "Power PC Family"
  140.             Case  : Family =  Family & "Power PC 601"
  141.             Case  : Family =  Family & "Power PC 603"
  142.             Case  : Family =  Family & "Power PC 603+"
  143.             Case  : Family =  Family & "Power PC 604"
  144.             Case  : Family =  Family & "Power PC 620"
  145.             Case  : Family =  Family & "Power PC X704"
  146.             Case  : Family =  Family & "Power PC 750"
  147.  
  148.             Case  : Family =  Family & "Alpha Family"
  149.             Case  : Family =  Family & "Alpha 21064"
  150.             Case  : Family =  Family & "Alpha 21066"
  151.             Case  : Family =  Family & "Alpha 21164"
  152.             Case  : Family =  Family & "Alpha 21164PC"
  153.             Case  : Family =  Family & "Alpha 21164a"
  154.             Case  : Family =  Family & "Alpha 21264"
  155.             Case  : Family =  Family & "Alpha 21364"
  156.  
  157.             Case  : Family =  Family & "MIPS Family"
  158.             Case  : Family =  Family & "MIPS R4000"
  159.             Case  : Family =  Family & "MIPS R4200"
  160.             Case  : Family =  Family & "MIPS R4400"
  161.             Case  : Family =  Family & "MIPS R4600"
  162.             Case  : Family =  Family & "MIPS R10000"
  163.  
  164.             Case  : Family =  Family & "SPARC Family"
  165.             Case  : Family =  Family & "SuperSPARC"
  166.             Case  : Family =  Family & "microSPARC II"
  167.             Case  : Family =  Family & "microSPARC IIep"
  168.             Case  : Family =  Family & "UltraSPARC"
  169.             Case  : Family =  Family & "UltraSPARC II"
  170.             Case  : Family =  Family & "UltraSPARC IIi"
  171.             Case  : Family =  Family & "UltraSPARC III"
  172.             Case  : Family =  Family & "UltraSPARC IIIi"
  173.  
  174.             Case  : Family =  Family & ""
  175.             Case  : Family =  Family & "68xxx Family"
  176.             Case  : Family =  Family & ""
  177.             Case  : Family =  Family & ""
  178.  
  179.             Case  : Family =  Family & ""
  180.             Case  : Family =  Family & ""
  181.             Case  : Family =  Family & "Hobbit Family"
  182.             Case  : Family =  Family & "Crusoe(TM) TM5000 Family"
  183.             Case  : Family =  Family & "Crusoe(TM) TM3000 Family"
  184.             Case  : Family =  Family & "Efficeon(TM) TM8000 Family"
  185.             Case  : Family =  Family & "Weitek"
  186.  
  187.             Case  : Family =  Family & "Itanium(TM) Processor"
  188.             Case  : Family =  Family & "AMD Athlon(TM) 64 Processor Family"
  189.             Case  : Family =  Family & "AMD Opteron(TM) Processor Family"
  190.             Case  : Family =  Family & "PA-RISC Family"
  191.             Case  : Family =  Family & "PA-RISC 8500"
  192.             Case  : Family =  Family & "PA-RISC 8000"
  193.             Case  : Family =  Family & "PA-RISC 7300LC"
  194.             Case  : Family =  Family & "PA-RISC 7200"
  195.             Case  : Family =  Family & "PA-RISC 7100LC"
  196.             Case  : Family =  Family & "PA-RISC 7100"
  197.             Case  : Family =  Family & "V30 Family"
  198.  
  199.             Case  : Family =  Family & "Pentium III Xeon(TM) Processor"
  200.             Case  : Family =  Family & "Pentium III Processor with Intel SpeedStep(TM) Technology"
  201.             Case  : Family =  Family & "Pentium 4"
  202.             Case  : Family =  Family & "Intel Xeon(TM)"
  203.             Case  : Family =  Family & "AS400 Family"
  204.             Case  : Family =  Family & "Intel Xeon(TM) Processor MP"
  205.             Case  : Family =  Family & "AMD Athlon(TM) XP Family"
  206.             Case  : Family =  Family & "AMD Athlon(TM) MP Family"
  207.             Case  : Family =  Family & "Intel Itanium 2"
  208.             Case  : Family =  Family & "Intel Pentium M Processor"
  209.             Case  : Family =  Family & "K7"
  210.             Case  : Family =  Family & "Intel Core(TM) i7-2760QM"
  211.  
  212.             Case  : Family =  Family & "IBM390 Family"
  213.             Case  : Family =  Family & "G4"
  214.             Case  : Family =  Family & "G5"
  215.             Case  : Family =  Family & "G6"
  216.             Case  : Family =  Family & "z/Architecture Base"
  217.             Case  : Family =  Family & "i860"
  218.             Case  : Family =  Family & "i960"
  219.             Case  : Family =  Family & "SH-3"
  220.             Case  : Family =  Family & "SH-4"
  221.             Case  : Family =  Family & "ARM"
  222.             Case  : Family =  Family & "StrongARM"
  223.  
  224.             Case  : Family =  Family & "6x86"
  225.             Case  : Family =  Family & "MediaGX"
  226.             Case  : Family =  Family & "MII"
  227.             Case  : Family =  Family & "WinChip"
  228.             Case  : Family =  Family & "DSP"
  229.             Case  : Family =  Family & "Video Processor"
  230.             Case Else : Family = Family & "[Family Type] " & CPU.Family
  231.         End Select
  232.         WScript.Echo Family
  233.  
  234.         Dim Architecture : Architecture = "处理器架构："
  235.         Select Case CPU.Architecture
  236.             Case  : Architecture = Architecture & "x86"
  237.             Case  : Architecture = Architecture & "MIPS"
  238.             Case  : Architecture = Architecture & "Alpha"
  239.             Case  : Architecture = Architecture & "PowerPC"
  240.             Case  : Architecture = Architecture & "ARM"
  241.             Case  : Architecture = Architecture & "Itanium-based systems"
  242.             Case  : Architecture = Architecture & "x64"
  243.             Case Else : Architecture = Architecture & "[Architecture] " & CPU.Architecture
  244.         End Select
  245.         WScript.Echo Architecture
  246.  
  247.         WScript.Echo "-"
  248.  
  249.         WScript.Echo "内核数量: " & CPU.NumberOfCores
  250.         WScript.Echo "逻辑处理器数量: " & CPU.NumberOfLogicalProcessors
  251.         WScript.Echo "地址长度: " & CPU.AddressWidth
  252.         WScript.Echo "数据长度: " & CPU.DataWidth
  253.         WScript.Echo "处理速度: " & CPU.CurrentClockSpeed & " MHz"
  254.         WScript.Echo "L2缓存: " & CPU.L2CacheSize & " B"
  255.         WScript.Echo "L3缓存: " & CPU.L3CacheSize & " B"
  256.  
  257.         WScript.Echo "-"
  258.  
  259.         Dim CpuStatus : CpuStatus = "处理器状态："
  260.         Select Case CPU.CpuStatus
  261.             Case  : CpuStatus = CpuStatus & "Unknown"
  262.             Case  : CpuStatus = CpuStatus & "CPU Enabled"
  263.             Case  : CpuStatus = CpuStatus & "CPU Disabled by User via BIOS Setup"
  264.             Case  : CpuStatus = CpuStatus & "CPU Disabled by BIOS (POST Error)"
  265.             Case  : CpuStatus = CpuStatus & "CPU Is Idle"
  266.             Case  : CpuStatus = CpuStatus & "Reserved"
  267.             Case  : CpuStatus = CpuStatus & "Reserved"
  268.             Case  : CpuStatus = CpuStatus & "Other"
  269.             Case Else : CpuStatus = CpuStatus & "[CpuStatus] " & CPU.CpuStatus
  270.         End Select
  271.         WScript.Echo CpuStatus
  272.  
  273.         WScript.Echo "="
  274.  
  275.     Next
  276.  
  277.     WScript.Echo 
  278.  
  279. End Sub
  280.  
  281. '主板信息
  282. '参考：https://msdn.microsoft.com/en-us/library/aa394072%28VS.85%29.aspx
  283. Sub BaseBoardInfo
  284.  
  285.     SetTitle "3.主板信息"
  286.  
  287.     Set BaseBoards = WMI.InstancesOf("Win32_BaseBoard")
  288.     For Each BaseBoard In BaseBoards
  289.  
  290.         WScript.Echo "设备名称: " & BaseBoard.Name
  291.         WScript.Echo "设备描述: " & BaseBoard.Description
  292.         WScript.Echo "设备说明: " & BaseBoard.Caption
  293.         WScript.Echo "主板型号: " & BaseBoard.Product
  294.         WScript.Echo "主板版本: " & BaseBoard.Version
  295.         WScript.Echo "制造厂商: " & BaseBoard.Manufacturer
  296.         WScript.Echo "序列号码: " & BaseBoard.SerialNumber
  297.  
  298.         WScript.Echo "-"
  299.  
  300.         WScript.Echo "是否底板: " & BaseBoard.HostingBoard
  301.         WScript.Echo "可热插拔: " & BaseBoard.HotSwappable
  302.         WScript.Echo "是否开启: " & BaseBoard.PoweredOn
  303.         WScript.Echo "可拆卸性: " & BaseBoard.Removable
  304.         WScript.Echo "可替换性: " & BaseBoard.Replaceable
  305.  
  306.         WScript.Echo "-"
  307.  
  308.         WScript.Echo "硬件状态: " & BaseBoard.Status
  309.  
  310.         WScript.Echo "="
  311.  
  312.     Next
  313.  
  314.     WScript.Echo 
  315.  
  316. End Sub
  317.  
  318. '内存信息
  319. '参考：https://msdn.microsoft.com/en-us/library/aa394347%28VS.85%29.aspx
  320. Sub MemoryInfo
  321.  
  322.     SetTitle "4.内存信息"
  323.  
  324.     Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")
  325.  
  326.     For Each Memory In Memorys
  327.  
  328.         WScript.Echo "设备名称: " & Memory.Name
  329.         WScript.Echo "设备描述: " & Memory.Description
  330.         WScript.Echo "设备说明: " & Memory.Caption
  331.         WScript.Echo "制造厂商: " & Memory.Manufacturer
  332.         WScript.Echo "序列号码: " & Memory.SerialNumber
  333.  
  334.         WScript.Echo "-"
  335.  
  336.         WScript.Echo "数据宽度: " & Memory.DataWidth
  337.  
  338.         Dim FormFactor : FormFactor = "形状系数："
  339.         Select Case Memory.FormFactor
  340.             Case  : FormFactor = FormFactor & "Unknown"
  341.             Case  : FormFactor = FormFactor & "Other"
  342.             Case  : FormFactor = FormFactor & "SIP"
  343.             Case  : FormFactor = FormFactor & "DIP"
  344.             Case  : FormFactor = FormFactor & "ZIP"
  345.             Case  : FormFactor = FormFactor & "SOJ"
  346.             Case  : FormFactor = FormFactor & "Proprietary"
  347.             Case  : FormFactor = FormFactor & "SIMM"
  348.             Case  : FormFactor = FormFactor & "DIMM"
  349.             Case  : FormFactor = FormFactor & "TSOP"
  350.             Case  : FormFactor = FormFactor & "PGA"
  351.             Case  : FormFactor = FormFactor & "RIMM"
  352.             Case  : FormFactor = FormFactor & "SODIMM"
  353.             Case  : FormFactor = FormFactor & "SRIMM"
  354.             Case  : FormFactor = FormFactor & "SMD"
  355.             Case  : FormFactor = FormFactor & "SSMP"
  356.             Case  : FormFactor = FormFactor & "SFP"
  357.             Case  : FormFactor = FormFactor & "TQFP"
  358.             Case  : FormFactor = FormFactor & "SOIC"
  359.             Case  : FormFactor = FormFactor & "LCC"
  360.             Case  : FormFactor = FormFactor & "PLCC"
  361.             Case  : FormFactor = FormFactor & "BGA"
  362.             Case  : FormFactor = FormFactor & "FPBGA"
  363.             Case  : FormFactor = FormFactor & "LGA"
  364.             Case Else : FormFactor = FormFactor & "[FormFactor] " & Memory.FormFactor
  365.         End Select
  366.         WScript.Echo FormFactor
  367.  
  368.         WScript.Echo "容量统计: " & Memory.Capacity /  /  & "MB"
  369.  
  370.         Dim MemoryType : MemoryType = "内存类型: "
  371.         Select Case Memory.MemoryType
  372.             Case  : MemoryType = MemoryType & "Unknown"
  373.             Case  : MemoryType = MemoryType & "Other"
  374.             Case  : MemoryType = MemoryType & "DRAM"
  375.             Case  : MemoryType = MemoryType & "Synchronous DRAM"
  376.             Case  : MemoryType = MemoryType & "Cache DRAM"
  377.             Case  : MemoryType = MemoryType & "EDO"
  378.             Case  : MemoryType = MemoryType & "EDRAM"
  379.             Case  : MemoryType = MemoryType & "VRAM"
  380.             Case  : MemoryType = MemoryType & "SRAM"
  381.             Case  : MemoryType = MemoryType & "RAM"
  382.             Case  : MemoryType = MemoryType & "ROM"
  383.             Case  : MemoryType = MemoryType & "Flash"
  384.             Case  : MemoryType = MemoryType & "EEPROM"
  385.             Case  : MemoryType = MemoryType & "FEPROM"
  386.             Case  : MemoryType = MemoryType & "EPROM"
  387.             Case  : MemoryType = MemoryType & "CDRAM"
  388.             Case  : MemoryType = MemoryType & "3DRAM"
  389.             Case  : MemoryType = MemoryType & "SDRAM"
  390.             Case  : MemoryType = MemoryType & "SGRAM"
  391.             Case  : MemoryType = MemoryType & "RDRAM"
  392.             Case  : MemoryType = MemoryType & "DDR"
  393.             Case  : MemoryType = MemoryType & "DDR-2"
  394.             Case Else : MemoryType = MemoryType & "[MemoryType] " & Memory.MemoryType
  395.         End Select
  396.         WScript.Echo MemoryType
  397.  
  398.         WScript.Echo "安放位置: " & Memory.DeviceLocator
  399.         WScript.Echo "行中位置: " & Memory.PositionInRow
  400.  
  401.         WScript.Echo "-"
  402.  
  403.     Next
  404.  
  405.     WScript.Echo 
  406.  
  407. End Sub
  408.  
  409. '硬盘信息
  410. '参考：https://msdn.microsoft.com/en-us/library/aa394132%28VS.85%29.aspx
  411. Sub DiskInfo
  412.  
  413.     SetTitle "5.硬盘信息"
  414.  
  415.     Set Disks = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
  416.     For Each Disk In Disks
  417.  
  418.         WScript.Echo "设备名称：" & Disk.Name
  419.         WScript.Echo "设备描述: " & Disk.Description
  420.         WScript.Echo "设备说明: " & Disk.Caption
  421.         WScript.Echo "硬盘名称：" & Disk.Caption
  422.         WScript.Echo "生产厂家：" & Disk.Manufacturer
  423.         WScript.Echo "硬盘序列号：" & Disk.SerialNumber
  424.         'WScript.Echo "硬盘签名：" & Disk.Signature
  425.  
  426.         WScript.Echo "硬盘具有以下能力："
  427.         For Each Capability In Disk.Capabilities
  428.             Select Case Capability
  429.                 Case  : WScript.Echo "Unknown"
  430.                 Case  : WScript.Echo "Other"
  431.                 Case  : WScript.Echo "Sequential Access"
  432.                 Case  : WScript.Echo "Random Access"
  433.                 Case  : WScript.Echo "Supports Writing"
  434.                 Case  : WScript.Echo "Encryption"
  435.                 Case  : WScript.Echo "Compression"
  436.                 Case  : WScript.Echo "Supports Removable Media"
  437.                 Case  : WScript.Echo "Manual Cleaning"
  438.                 Case  : WScript.Echo "Automatic Cleaning"
  439.                 Case  : WScript.Echo "SMART Notification"
  440.                 Case  : WScript.Echo "Supports Dual-Sided Media"
  441.                 Case  : WScript.Echo "Ejection Prior to Drive Dismount Not Required"
  442.                 Case Else : WScript.Echo "-"
  443.             End Select
  444.         Next
  445.  
  446.         WScript.Echo "-"
  447.  
  448.         WScript.Echo "硬盘默认分块大小：" & Disk.DefaultBlockSize
  449.         WScript.Echo "硬盘最大分块大小：" & Disk.MaxBlockSize
  450.         WScript.Echo "硬盘最小分块大小：" & Disk.MinBlockSize
  451.         WScript.Echo "硬盘扇区数：" & Disk.SectorsPerTrack
  452.  
  453.         WScript.Echo "硬盘柱面数：" & Disk.TotalCylinders
  454.         WScript.Echo "硬盘总头数：" & Disk.TotalHeads
  455.         WScript.Echo "硬盘扇区数：" & Disk.TotalSectors
  456.         WScript.Echo "硬盘总道数：" & Disk.TotalTracks
  457.         WScript.Echo "硬盘总道数：" & Disk.TotalTracks
  458.         WScript.Echo "每柱磁道数：" & Disk.TracksPerCylinder
  459.  
  460.         WScript.Echo "固件版本：" & Disk.FirmwareRevision
  461.         WScript.Echo "接口类型：" & Disk.InterfaceType
  462.  
  463.         WScript.Echo "-"
  464.  
  465.         WScript.Echo "硬盘容量：" & FormatNumber(Disk.Size /  /  / , ) & " GB"
  466.  
  467.         WScript.Echo "="
  468.  
  469.     Next
  470.  
  471.     WScript.Echo 
  472.  
  473. End Sub
  474.  
  475. '显卡信息
  476. '参考：https://msdn.microsoft.com/en-us/library/aa394512%28VS.85%29.aspx
  477. Sub GraphicsInfo
  478.  
  479.     SetTitle "6.显卡信息"
  480.  
  481.     Set VIDs = WMI.ExecQuery("SELECT DeviceID FROM Win32_VideoController")
  482.     For Each VID In VIDs
  483.  
  484.         Set Videos = WMI.ExecQuery("SELECT * FROM Win32_VideoController WHERE DeviceID='"& VID.DeviceID &"'")
  485.         For Each Video In Videos
  486.  
  487.             WScript.Echo "设备名称: " & Video.Name
  488.             WScript.Echo "设备描述: " & Video.Description
  489.             WScript.Echo "设备说明: " & Video.Caption
  490.             WScript.Echo "制造厂商: " & Video.AdapterCompatibility
  491.  
  492.             Dim VideoArchitecture : VideoArchitecture = "视频架构："
  493.             Select Case Video.VideoArchitecture
  494.                 Case  : VideoArchitecture = VideoArchitecture & "Other"
  495.                 Case  : VideoArchitecture = VideoArchitecture & "Unknown"
  496.                 Case  : VideoArchitecture = VideoArchitecture & "CGA"
  497.                 Case  : VideoArchitecture = VideoArchitecture & "EGA"
  498.                 Case  : VideoArchitecture = VideoArchitecture & "VGA"
  499.                 Case  : VideoArchitecture = VideoArchitecture & "SVGA"
  500.                 Case  : VideoArchitecture = VideoArchitecture & "MDA"
  501.                 Case  : VideoArchitecture = VideoArchitecture & "HGC"
  502.                 Case  : VideoArchitecture = VideoArchitecture & "MCGA"
  503.                 Case  : VideoArchitecture = VideoArchitecture & "8514A"
  504.                 Case  : VideoArchitecture = VideoArchitecture & "XGA"
  505.                 Case  : VideoArchitecture = VideoArchitecture & "Linear Frame Buffer"
  506.                 Case  : VideoArchitecture = VideoArchitecture & "PC-98"
  507.                 Case Else : VideoArchitecture = VideoArchitecture & "[VideoArchitecture] " & Video.VideoArchitecture
  508.             End Select
  509.             WScript.Echo VideoArchitecture
  510.  
  511.             Dim VideoMemoryType : VideoMemoryType = "视频存储器类型："
  512.             Select Case Video.VideoMemoryType
  513.                 Case  : VideoMemoryType = VideoMemoryType & "Other"
  514.                 Case  : VideoMemoryType = VideoMemoryType & "Unknown"
  515.                 Case  : VideoMemoryType = VideoMemoryType & "VRAM"
  516.                 Case  : VideoMemoryType = VideoMemoryType & "DRAM"
  517.                 Case  : VideoMemoryType = VideoMemoryType & "SRAM"
  518.                 Case  : VideoMemoryType = VideoMemoryType & "WRAM"
  519.                 Case  : VideoMemoryType = VideoMemoryType & "EDO RAM"
  520.                 Case  : VideoMemoryType = VideoMemoryType & "Burst Synchronous DRAM"
  521.                 Case  : VideoMemoryType = VideoMemoryType & "Pipelined Burst SRAM"
  522.                 Case  : VideoMemoryType = VideoMemoryType & "CDRAM"
  523.                 Case  : VideoMemoryType = VideoMemoryType & "3DRAM"
  524.                 Case  : VideoMemoryType = VideoMemoryType & "SDRAM"
  525.                 Case  : VideoMemoryType = VideoMemoryType & "SGRAM"
  526.                 Case Else : VideoMemoryType = VideoMemoryType & "[VideoMemoryType] " & Video.VideoMemoryType
  527.             End Select
  528.             Wscript.Echo VideoMemoryType
  529.  
  530.             WScript.Echo "视频处理器: " & Video.VideoProcessor
  531.  
  532.             WScript.Echo "-"
  533.  
  534.             WScript.Echo "物理显存: " & Round(Video.AdapterRAM /  / )&" MB"
  535.             WScript.Echo "分辨率: " & Video.CurrentHorizontalResolution & " * " & Video.CurrentVerticalResolution
  536.             WScript.Echo "单位像素比特数：" & Video.CurrentBitsPerPixel & " Bit"
  537.             WScript.Echo "刷新频率: " & Video.CurrentRefreshRate & " Hz"
  538.  
  539.             WScript.Echo "="
  540.  
  541.         Next
  542.         Set Videos = Nothing
  543.  
  544.     Next
  545.     Set VIDs = Nothing
  546.  
  547.     WScript.Echo 
  548.  
  549. End Sub
  550.  
  551. '显示器信息
  552. '参考：https://msdn.microsoft.com/en-us/library/aa394122%28VS.85%29.aspx
  553. Sub DisplayInfo
  554.  
  555.     SetTitle "7.显示器信息"
  556.  
  557.     '显示器信息
  558.     Set Monitors = WMI.ExecQuery("Select * from Win32_DesktopMonitor")
  559.     For Each Monitor In Monitors
  560.  
  561.         WScript.Echo "设备名称: " & Monitor.Name
  562.         WScript.Echo "设备描述: " & Monitor.Description
  563.         WScript.Echo "设备说明: " & Monitor.Caption
  564.         WScript.Echo "显示器类型: " & Monitor.MonitorType
  565.         WScript.Echo "生产厂家: " & Monitor.MonitorManufacturer
  566.  
  567.         WScript.Echo "-"
  568.  
  569.         WScript.Echo "屏幕高度: " & Monitor.ScreenHeight
  570.         WScript.Echo "屏幕宽度: " & Monitor.ScreenWidth
  571.         WScript.Echo "X轴每逻辑英寸像素数: " & Monitor.PixelsPerXLogicalInch
  572.         WScript.Echo "Y轴每逻辑英寸像素数: " & Monitor.PixelsPerYLogicalInch
  573.  
  574.         Dim DisplayType : DisplayType = "显示模式："
  575.         Select Case Monitor.DisplayType
  576.             Case  : DisplayType = DisplayType & "Unknown"
  577.             Case  : DisplayType = DisplayType & "Other"
  578.             Case  : DisplayType = DisplayType & "Multiscan Color"
  579.             Case  : DisplayType = DisplayType & "Multiscan Monochrome"
  580.             Case  : DisplayType = DisplayType & "Fixed Frequency Color"
  581.             Case  : DisplayType = DisplayType & "Fixed Frequency Monochrome"
  582.             Case Else : DisplayType = DisplayType & "[DisplayType] " & Monitor.DisplayType
  583.         End Select
  584.         Wscript.Echo DisplayType
  585.  
  586.         Dim StatusInfo : StatusInfo = "状态信息："
  587.         Select Case Monitor.StatusInfo
  588.             Case  : StatusInfo = StatusInfo & "Other"
  589.             Case  : StatusInfo = StatusInfo & "Unknown"
  590.             Case  : StatusInfo = StatusInfo & "Enabled"
  591.             Case  : StatusInfo = StatusInfo & "Disabled"
  592.             Case  : StatusInfo = StatusInfo & "Not Applicable"
  593.             Case Else : StatusInfo = StatusInfo & "[StatusInfo] " & Monitor.StatusInfo
  594.         End Select
  595.         Wscript.Echo StatusInfo
  596.  
  597.         WScript.Echo "="
  598.  
  599.     Next
  600.  
  601.     WScript.Echo 
  602.  
  603. End Sub
  604.  
  605. '声卡信息
  606. '参考：https://msdn.microsoft.com/en-us/library/aa394463%28VS.85%29.aspx
  607. Sub SoundCardInfo
  608.  
  609.     SetTitle "8.声卡信息"
  610.  
  611.     '声卡信息
  612.     Set SoundDevices = WMI.ExecQuery("SELECT * FROM Win32_SoundDevice")
  613.     For Each SoundDevice In SoundDevices
  614.  
  615.         WScript.Echo "设备名称: " & SoundDevice.Name
  616.         WScript.Echo "设备描述: " & SoundDevice.Description
  617.         WScript.Echo "设备说明: " & SoundDevice.Caption
  618.         WScript.Echo "制造厂商: " & SoundDevice.Manufacturer
  619.  
  620.         Dim StatusInfo : StatusInfo = "状态信息："
  621.         Select Case SoundDevice.StatusInfo
  622.             Case  : StatusInfo = StatusInfo & "Other"
  623.             Case  : StatusInfo = StatusInfo & "Unknown"
  624.             Case  : StatusInfo = StatusInfo & "Enabled"
  625.             Case  : StatusInfo = StatusInfo & "Disabled"
  626.             Case  : StatusInfo = StatusInfo & "Not Applicable"
  627.             Case Else : StatusInfo = StatusInfo & "[StatusInfo] " & SoundDevice.StatusInfo
  628.         End Select
  629.         Wscript.Echo StatusInfo
  630.  
  631.         WScript.Echo "="
  632.  
  633.     Next
  634.     Set SoundDevices = Nothing
  635.  
  636.     WScript.Echo 
  637.  
  638. End Sub
  639.  
  640. '网卡信息
  641. '参考：https://msdn.microsoft.com/en-us/library/aa394216%28v=vs.85%29.aspx
  642. Sub NetworkCardInfo
  643.  
  644.     SetTitle "9.网卡信息"
  645.  
  646.     '网卡信息
  647.     Set Networks = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PhysicalAdapter ='TRUE'")
  648.     For Each Network In Networks
  649.  
  650.         WScript.Echo "设备名称: " & Network.Name
  651.         WScript.Echo "设备描述: " & Network.Description
  652.         WScript.Echo "设备说明: " & Network.Caption
  653.         WScript.Echo "适配器型号: " & Network.AdapterType
  654.         WScript.Echo "生产厂商: " & Network.Manufacturer
  655.         WScript.Echo "设备标识: " & Network.DeviceID 
  656.  
  657.         WScript.Echo "GUID: "& Network.GUID
  658.         WScript.Echo "MAC: "& Network.MACAddress 
  659.  
  660.         WScript.Echo "-"
  661.  
  662.         If Network.NetEnabled = TRUE Then
  663.             WScript.Echo "活跃状态：" & "活跃"
  664.         Else
  665.             WScript.Echo "活跃状态：" & "空闲"
  666.         End If 
  667.  
  668.         Dim NetConnectionStatus : NetConnectionStatus = "状态信息："
  669.         Select Case Network.NetConnectionStatus
  670.             Case  : NetConnectionStatus = NetConnectionStatus & "Disconnected"
  671.             Case  : NetConnectionStatus = NetConnectionStatus & "Connecting"
  672.             Case  : NetConnectionStatus = NetConnectionStatus & "Connected"
  673.             Case  : NetConnectionStatus = NetConnectionStatus & "Disconnecting"
  674.             Case  : NetConnectionStatus = NetConnectionStatus & "Hardware not present"
  675.             Case  : NetConnectionStatus = NetConnectionStatus & "Hardware disabled"
  676.             Case  : NetConnectionStatus = NetConnectionStatus & "Hardware malfunction"
  677.             Case  : NetConnectionStatus = NetConnectionStatus & "Media disconnected"
  678.             Case  : NetConnectionStatus = NetConnectionStatus & "Authenticating"
  679.             Case  : NetConnectionStatus = NetConnectionStatus & "Authentication succeeded"
  680.             Case  : NetConnectionStatus = NetConnectionStatus & "Authentication failed"
  681.             Case  : NetConnectionStatus = NetConnectionStatus & "Invalid address"
  682.             Case  : NetConnectionStatus = NetConnectionStatus & "Credentials required"
  683.             Case Else : NetConnectionStatus = NetConnectionStatus & "[NetConnectionStatus] " & Network.NetConnectionStatus
  684.         End Select
  685.         Wscript.Echo NetConnectionStatus
  686.  
  687.         WScript.Echo "="
  688.  
  689.     Next
  690.     Set cNet = Nothing
  691.  
  692.     WScript.Echo 
  693.  
  694. End Sub
  695.  
  696. '键盘信息
  697. '参考：https://msdn.microsoft.com/en-us/library/aa394166%28v=vs.85%29.aspx
  698. Sub KeyBoardInfo
  699.  
  700.     SetTitle "10.键盘信息"
  701.  
  702.     Set Keyboards = WMI.ExecQuery("Select * from Win32_Keyboard")
  703.     For Each Keyboard In Keyboards
  704.  
  705.         WScript.Echo "设备名称: " & Keyboard.Name
  706.         WScript.Echo "设备描述: " & Keyboard.Description
  707.         WScript.Echo "设备说明: " & Keyboard.Caption
  708.         WScript.Echo "功能键数量: " & Keyboard.NumberOfFunctionKeys 
  709.  
  710.     Next
  711.  
  712.     WScript.Echo 
  713.  
  714. End Sub
  715.  
  716. '电池信息
  717. Sub BatteryInfo
  718.  
  719.     SetTitle "11.电池信息"
  720.  
  721.     Set Batterys = WMI.ExecQuery("Select * from Win32_Battery")
  722.     For Each Battery In Batterys
  723.  
  724.         WScript.Echo "设备名称: "& Battery.Name
  725.         WScript.Echo "设备描述: "& Battery.Description
  726.         WScript.Echo "设备说明: " & Battery.Caption  
  727.  
  728.         Dim Chemistry : Chemistry = "电池类型："
  729.         Select Case Battery.Chemistry
  730.             Case  : Chemistry = Chemistry & "Other"
  731.             Case  : Chemistry = Chemistry & "Unknown"
  732.             Case  : Chemistry = Chemistry & "Lead Acid"
  733.             Case  : Chemistry = Chemistry & "Nickel Cadmium"
  734.             Case  : Chemistry = Chemistry & "Nickel Metal Hydride"
  735.             Case  : Chemistry = Chemistry & "Lithium-ion"
  736.             Case  : Chemistry = Chemistry & "Zinc air"
  737.             Case  : Chemistry = Chemistry & "Lithium Polymer"
  738.             Case Else : Chemistry = Chemistry & "[Chemistry] " & Battery.Chemistry
  739.         End Select
  740.         WScript.Echo Chemistry
  741.  
  742.         WScript.Echo "设计容量: " & Battery.DesignCapacity & " milliwatt-hour(s)"
  743.         WScript.Echo "设计电压: " & Battery.DesignVoltage & " millivolt(s)"
  744.     Next
  745.  
  746.     WScript.Echo 
  747.  
  748. End Sub
  749.  
  750. '指示设备信息
  751. '参考：https://msdn.microsoft.com/en-us/library/aa394356.aspx
  752. Sub PointingDeviceInfo
  753.  
  754.     SetTitle "12.指示设备信息"
  755.  
  756.     Set PointingDevices = WMI.ExecQuery("Select * from Win32_PointingDevice")
  757.     For Each PointingDevice In PointingDevices
  758.  
  759.         WScript.Echo "设备名称: "& PointingDevice.Name
  760.         WScript.Echo "设备描述: "& PointingDevice.Description
  761.         WScript.Echo "设备说明: " & PointingDevice.Caption
  762.         WScript.Echo "生产厂家: " & PointingDevice.Manufacturer  
  763.  
  764.         Dim DeviceInterface : DeviceInterface = ""
  765.         Select Case PointingDevice.DeviceInterface
  766.             Case  : DeviceInterface = DeviceInterface & "Other"
  767.             Case  : DeviceInterface = DeviceInterface & "Unknown"
  768.             Case  : DeviceInterface = DeviceInterface & "Serial"
  769.             Case  : DeviceInterface = DeviceInterface & "PS/2"
  770.             Case  : DeviceInterface = DeviceInterface & "Infrared"
  771.             Case  : DeviceInterface = DeviceInterface & "HP-HIL"
  772.             Case  : DeviceInterface = DeviceInterface & "Bus Mouse"
  773.             Case  : DeviceInterface = DeviceInterface & "ADB (Apple Desktop Bus)"
  774.             Case  : DeviceInterface = DeviceInterface & "Bus Mouse DB-9"
  775.             Case  : DeviceInterface = DeviceInterface & "Bus Mouse Micro-DIN"
  776.             Case  : DeviceInterface = DeviceInterface & "USB"
  777.             Case Else : DeviceInterface = DeviceInterface & "[DeviceInterface] " & PointingDevice.DeviceInterface
  778.         End Select
  779.         WScript.Echo DeviceInterface
  780.  
  781.         WScript.Echo "硬件类型: " & PointingDevice.HardwareType 
  782.  
  783.         WScript.Echo "="
  784.  
  785.     Next
  786.  
  787.     WScript.Echo 
  788.  
  789. End Sub
  790.  
  791. '光驱设备
  792. '参考：https://msdn.microsoft.com/en-us/library/aa394081.aspx
  793. Sub CDROMDriveInfo
  794.  
  795.     SetTitle "13.光驱设备"
  796.  
  797.     Set CDROMDrives = WMI.ExecQuery("Select * from Win32_CDROMDrive")
  798.     For Each CDROMDrive In CDROMDrives
  799.  
  800.         WScript.Echo "设备名称: "& CDROMDrive.Name
  801.         WScript.Echo "设备描述: "& CDROMDrive.Description
  802.         WScript.Echo "设备说明: " & CDROMDrive.Caption
  803.         WScript.Echo "生产厂家: " & CDROMDrive.Manufacturer
  804.  
  805.         WScript.Echo "="
  806.  
  807.     Next
  808.  
  809.     WScript.Echo 
  810.  
  811. End Sub
  812.  
  813. '其他硬件
  814. Sub OtherHardware
  815.  
  816.     'SetTitle "其他信息"
  817.  
  818.     'WScript.Echo 
  819.  
  820. End Sub
  821.  
  822. '运行统计
  823. Sub RunStats
  824.  
  825.     SetTitle "运行统计"
  826.  
  827.     WScript.Echo "检查开始时间：" & StartTime
  828.     WScript.Echo "检查结束时间：" & FinishTime
  829.     WScript.Echo "检查用时：" & DateDiff("s", StartTime, FinishTime) & " 秒"
  830.  
  831.     WScript.Echo 
  832.  
  833. End Sub

3)打印结果：Rhea_Result.txt

  1. Microsoft (R) Windows Script Host Version 5.8
  2. 版权所有(C) Microsoft Corporation -。保留所有权利。
  3.  
  4. －－－－－－－－－－.系统概览－－－－－－－－－－
  5. 生产厂家：Dell Inc.
  6. 当前用户：Tsybius-PC\Tsybius
  7.  
  8. －－－－－－－－－－.处理器信息－－－－－－－－－－
  9. 设备名称: Intel(R) Core(TM) i5-3230M CPU @ .60GHz
  10. 设备描述: x64 Family  Model  Stepping
  11. 设备说明: x64 Family  Model  Stepping
  12. 处理器标识: BFEBFBFF000306A9
  13. 处理器类型：Central Processor
  14. 处理器版本:
  15. 设备标识: CPU0
  16. 处理器家族：[Family Type]
  17. 处理器架构：x64
  18. -
  19. 内核数量:
  20. 逻辑处理器数量:
  21. 地址长度:
  22. 数据长度:
  23. 处理速度:  MHz
  24. L2缓存:  B
  25. L3缓存:  B
  26. -
  27. 处理器状态：CPU Enabled
  28. =
  29.  
  30. －－－－－－－－－－.主板信息－－－－－－－－－－
  31. 设备名称: Base Board
  32. 设备描述: Base Board
  33. 设备说明: Base Board
  34. 主板型号: 0F5PHF
  35. 主板版本: A00
  36. 制造厂商: Dell Inc.
  37. 序列号码: /5NL2NX1/CN1296137U0037/
  38. -
  39. 是否底板: True
  40. 可热插拔: False
  41. 是否开启: True
  42. 可拆卸性: False
  43. 可替换性: True
  44. -
  45. 硬件状态: OK
  46. =
  47.  
  48. －－－－－－－－－－.内存信息－－－－－－－－－－
  49. 设备名称: Physical Memory
  50. 设备描述: Physical Memory
  51. 设备说明: Physical Memory
  52. 制造厂商: 830B
  53. 序列号码: 50E42805
  54. -
  55. 数据宽度:
  56. 形状系数：SODIMM
  57. 容量统计: 4096MB
  58. 内存类型: Unknown
  59. 安放位置: Top Slot
  60. 行中位置:
  61. -
  62.  
  63. －－－－－－－－－－.硬盘信息－－－－－－－－－－
  64. 设备名称：\\.\PHYSICALDRIVE0
  65. 设备描述: 磁盘驱动器
  66. 设备说明: HGST HTS725050A7E630 ATA Device
  67. 硬盘名称：HGST HTS725050A7E630 ATA Device
  68. 生产厂家：(标准磁盘驱动器)
  69. 硬盘序列号：2020202020204654353641354a57323244365636
  70. 硬盘具有以下能力：
  71. Random Access
  72. Supports Writing
  73. -
  74. 硬盘默认分块大小：
  75. 硬盘最大分块大小：
  76. 硬盘最小分块大小：
  77. 硬盘扇区数：
  78. 硬盘柱面数：
  79. 硬盘总头数：
  80. 硬盘扇区数：
  81. 硬盘总道数：
  82. 硬盘总道数：
  83. 每柱磁道数：
  84. 固件版本：GH2OA560
  85. 接口类型：IDE
  86. -
  87. 硬盘容量：465.759 GB
  88. =
  89.  
  90. －－－－－－－－－－.显卡信息－－－－－－－－－－
  91. 设备名称: Intel(R) HD Graphics
  92. 设备描述: Intel(R) HD Graphics
  93. 设备说明: Intel(R) HD Graphics
  94. 制造厂商: Intel Corporation
  95. 视频架构：VGA
  96. 视频存储器类型：Unknown
  97. 视频处理器: Intel(R) HD Graphics Family
  98. -
  99. 物理显存:  MB
  100. 分辨率:  *
  101. 单位像素比特数： Bit
  102. 刷新频率:  Hz
  103. =
  104.  
  105. －－－－－－－－－－.显示器信息－－－－－－－－－－
  106. 设备名称: 通用即插即用监视器
  107. 设备描述: 通用即插即用监视器
  108. 设备说明: 通用即插即用监视器
  109. 显示器类型: 通用即插即用监视器
  110. 生产厂家: (标准监视器类型)
  111. -
  112. 屏幕高度:
  113. 屏幕宽度:
  114. X轴每逻辑英寸像素数:
  115. Y轴每逻辑英寸像素数:
  116. 显示模式：[DisplayType]
  117. 状态信息：[StatusInfo]
  118. =
  119.  
  120. －－－－－－－－－－.声卡信息－－－－－－－－－－
  121. 设备名称: 英特尔(R) 显示器音频
  122. 设备描述: 英特尔(R) 显示器音频
  123. 设备说明: 英特尔(R) 显示器音频
  124. 制造厂商: Intel(R) Corporation
  125. 状态信息：Enabled
  126. =
  127. 设备名称: IDT High Definition Audio CODEC
  128. 设备描述: IDT High Definition Audio CODEC
  129. 设备说明: IDT High Definition Audio CODEC
  130. 制造厂商: IDT
  131. 状态信息：Enabled
  132. =
  133.  
  134. －－－－－－－－－－.网卡信息－－－－－－－－－－
  135. 设备名称: Broadcom NetXtreme Gigabit Ethernet
  136. 设备描述: Broadcom NetXtreme Gigabit Ethernet
  137. 设备说明: [] Broadcom NetXtreme Gigabit Ethernet
  138. 适配器型号: Ethernet 802.3
  139. 生产厂商: Broadcom
  140. 设备标识:
  141. GUID: {9BC23D87-DADB-46E8-B542-DF0C6CAC7D7C}
  142. MAC: F0:1F:AF::1A:A6
  143. -
  144. 活跃状态：空闲
  145. 状态信息：Media disconnected
  146. =
  147. 设备名称: Broadcom .11n 网络适配器
  148. 设备描述: Broadcom .11n 网络适配器
  149. 设备说明: [] Broadcom .11n 网络适配器
  150. 适配器型号: Ethernet 802.3
  151. 生产厂商: Broadcom
  152. 设备标识:
  153. GUID: {689F2877-B076-44D2-ACC6-74520D616695}
  154. MAC: ::8B:::
  155. -
  156. 活跃状态：活跃
  157. 状态信息：Connected
  158. =
  159. 设备名称: Microsoft Virtual WiFi Miniport Adapter
  160. 设备描述: Microsoft Virtual WiFi Miniport Adapter
  161. 设备说明: [] Microsoft Virtual WiFi Miniport Adapter
  162. 适配器型号: Ethernet 802.3
  163. 生产厂商: Microsoft
  164. 设备标识:
  165. GUID: {237CCDA1-169E-4F13-A9F2-B6AD0F6190A3}
  166. MAC: ::8B:::
  167. -
  168. 活跃状态：空闲
  169. 状态信息：Media disconnected
  170. =
  171.  
  172. －－－－－－－－－－.键盘信息－－－－－－－－－－
  173. 设备名称: Enhanced (- or -key)
  174. 设备描述: PS/ 标准键盘
  175. 设备说明: Enhanced (- or -key)
  176. 功能键数量: 
  177.  
  178. －－－－－－－－－－.电池信息－－－－－－－－－－
  179. 设备名称: DELL MKD6223
  180. 设备描述: Internal Battery
  181. 设备说明: Internal Battery
  182. 电池类型：Lithium-ion
  183. 设计容量:  milliwatt-hour(s)
  184. 设计电压:  millivolt(s)
  185.  
  186. －－－－－－－－－－.指示设备信息－－－－－－－－－－
  187. 设备名称: USB 输入设备
  188. 设备描述: USB 输入设备
  189. 设备说明: USB 输入设备
  190. 生产厂家: (标准系统设备)
  191. USB
  192. 硬件类型: USB 输入设备
  193. =
  194. 设备名称: PS/ 兼容鼠标
  195. 设备描述: PS/ 兼容鼠标
  196. 设备说明: PS/ 兼容鼠标
  197. 生产厂家: Microsoft
  198. PS/
  199. 硬件类型: PS/ 兼容鼠标
  200. =
  201.  
  202. －－－－－－－－－－.光驱设备－－－－－－－－－－
  203. 设备名称: ZUPYDSN LARCTE3K SCSI CdRom Device
  204. 设备描述: CD-ROM Drive
  205. 设备说明: ZUPYDSN LARCTE3K SCSI CdRom Device
  206. 生产厂家: (标准 CD-ROM 驱动器)
  207. =
  208. 设备名称: DTSOFT Virtual CdRom Device
  209. 设备描述: CD-ROM Drive
  210. 设备说明: DTSOFT Virtual CdRom Device
  211. 生产厂家: (标准 CD-ROM 驱动器)
  212. =
  213.  
  214. －－－－－－－－－－运行统计－－－－－－－－－－
  215. 检查开始时间：// ::
  216. 检查结束时间：// ::
  217. 检查用时： 秒

[VBS]检测计算机各硬件信息的更多相关文章

  1. C# 获取计算机的硬件信息

    /// <summary> /// 获得CPU编号 /// </summary> /// <returns></returns> public stri ...

  2. 【C#】 获取计算机的硬件信息

    添加引用:System.Management /// <summary> /// 获取本机的MAC地址 /// </summary> /// <returns>&l ...

  3. linux查看硬件信息的方法

    目前会Linux的人不少,但是精通的不多,怎样才能做一个符合企业需求的Linux人才,首先要有良好的Linux基础知识.本文为你讲解Linux的知识,今天所讲的是 Linux硬件信息怎样查看,希望你能 ...

  4. Linux系统查看硬件信息神器，比设备管理器好用100倍！

    大家都知道,当我们的 Linux 系统计算机出现问题时,需要对其排除故障,首先需要做的是找出计算机的硬件信息.下面介绍一个简单易用的应用程序--HardInfo,你可以利用它来显示你电脑的每个硬件方面 ...

  5. 利用WMI检测电脑硬件信息，没办法显示cpu的信息

    但你要给某些系统或软件加密时,需要了解到服务器的硬件信息时,系统和软件会利用WMI检测硬件信息, 而有时我们会遇到检测不到CPU的型号信息,如图 此时的解决方法: 1.确定“服务”里启动了WMI 2. ...

  6. 获取硬件信息的delphi源码CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名

    {-----------------------------------------------------------------------------作者:sushengmiyan 2013.0 ...

  7. Linux查看硬件信息，主板型号及内存硬件，驱动设备，查看设备，查看CPU。

    用硬件检测程序kuduz探测新硬件:service kudzu start ( or restart) 查看CPU信息:cat /proc/cpuinfo 查看板卡信息:cat /proc/pci 查 ...

  8. JAVA 读取计算机中相关信息

    java读取 计算机 cup号 读取版本号 显卡 .. . . ........ .. . . . package com.swt.common.util; import java.io.Buffer ...

  9. Reading Notes : 180213 计算机的硬件构成与处理流程

    读书<计算机组成原理>,<鸟哥的Linux私房菜基础篇> 基本上接触过计算机的人,都多少知道计算机的具体构成,但是真正能讲明白的却说了很多,本节将讲解一下计算机的基本硬件构成和 ...

随机推荐

  1. 关于OPEN_MAX宏undeclared的问题

    最近在看unp时,I/O复用-poll一章的代码使用到了OPEN_MAX.据书中描述,这一宏定义在limits.h头文件中,指代一个进程在任意时刻能打开的最大描述符数目.但在代码编译时遇到了错误,提示 ...

  2. apache服务器伪静态配置说明

    apache服务器伪静态配置说明: 第一种 .如果是多城市版分类并且使用了城市二级域名即(多城市+多域名),请修改apache的配置文件,把以下代码添加到配置文件的最后一行即可,注意把qibosoft ...

  3. centos搭建OPENldap

    LDAP是轻量目录访问协议,英文全称是Lightweight Directory Access Protocol,一般都简称为LDAP.它是基于X.500标准的,但是简单多了并且可以根据需要定制.与X ...

  4. Jasper打印示例

    import java.io.IOException;import java.util.ArrayList;import java.util.HashMap;import java.util.List ...

  5. oracle数据库导入导出问题

    场景描述: 1.做一个从UAT到PRD的Schema迁移,UAT环境有sys用户,PRD环境没有sys用户,由于权限限制,没办法使用expdp/impdp,只好选择exp/imp命令: 2.UAT和P ...

  6. maven 打 fat包（jar包有了全部依赖）插件

    <plugin> <artifactId> maven-assembly-plugin </artifactId> <configuration> &l ...

  7. [剑指Offer]45-把数组排成最小的数

    题目链接 https://www.nowcoder.com/practice/8fecd3f8ba334add803bf2a06af1b993?tpId=13&tqId=11185&t ...

  8. XML 解析技术

    xml 解析方式有两种: dom 解析和 sax 解析: 针对着两种解析方式,有三种解析器: sun公司的 jaxp dom4j 组织的 dom4j jdom 组织的 jdom dom 解析XML : ...

  9. android 下拉刷新框架PullToRefreshScrollView（com.handmark.pulltorefresh）

    很简单,实现OnRefreshListener这个监听器. mPullRefreshScrollView .setOnRefreshListener(new OnRefreshListener< ...

  10. webpack浅析---入口篇

    webpack有四个核心概念: 入口(entry) 输出(output) loader 插件(plugins) webpack-merge将环境.构建目标.运行时合并 入口: 入口起点是指webpac ...