[VBS]检测计算机各硬件信息
1)批处理脚本:Rhea_HardwareInfoCollector.bat
调用VBScript脚本Rhea_HardwareInfoCollector.vbs,并将结果打印到文件Rhea_Result.txt
- @if exist Rhea_Result.txt (del Rhea_Result.txt)
- @cscript Rhea_HardwareInfoCollector.vbs >> Rhea_Result.txt
- @echo "结果已打印到 Rhea_Result.txt"
- @pause
2)VBScript脚本:Rhea_HardwareInfoCollector.bat
- 'On Error Resume Next
- If WScript.Arguments.Count >= Then
- Select Case WScript.Arguments()
- Case "-e", "--execute"
- Case "-v", "--version"
- WScript.Echo "程序版本:1.0.0.0"
- WScript.Echo "作者标识:Tsybius2014"
- WScript.Echo "作者主页:http://my.oschina.net/Tsybius2014/"
- WScript.Echo
- WScript.Quit()
- Case "-h", "--help"
- WScript.Echo "进行检查:Rhea_HardwareInfoCollector.vbs [-e|--execute]"
- WScript.Echo "查看帮助:Rhea_HardwareInfoCollector.vbs [-h|--help]"
- WScript.Echo "查看版本:Rhea_HardwareInfoCollector.vbs [-v|--version]"
- WScript.Echo
- WScript.Quit()
- End Select
- End If
- Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- Dim i, j, k
- StartTime = Now
- SystemOverview
- ProcessorInfo
- BaseBoardInfo
- MemoryInfo
- DiskInfo
- GraphicsInfo
- DisplayInfo
- SoundCardInfo
- NetworkCardInfo
- KeyBoardInfo
- BatteryInfo
- PointingDeviceInfo
- CDROMDriveInfo
- OtherHardware
- FinishTime = Now
- RunStats
- WScript.Echo
- '打印标题
- Sub SetTitle(TitleName)
- Dim Title : Title = TitleName
- For i = To
- Title = "-" & Title & "-"
- Next
- WScript.Echo Title
- End Sub
- '系统概览
- '参考:https://msdn.microsoft.com/en-us/library/aa394102%28VS.85%29.aspx
- Sub SystemOverview
- SetTitle "1.系统概览"
- Set Computers = WMI.ExecQuery("Select * from Win32_ComputerSystem")
- For Each Computer in Computers
- Wscript.Echo "生产厂家:" & Computer.Manufacturer
- Wscript.Echo "当前用户:" & Computer.UserName
- Next
- WScript.Echo
- End Sub
- '处理器信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394373%28VS.85%29.aspx
- Sub ProcessorInfo
- SetTitle "2.处理器信息"
- Set CPUs = WMI.InstancesOf("Win32_Processor")
- For Each CPU In CPUs
- WScript.Echo "设备名称: " & CPU.Name
- WScript.Echo "设备描述: " & CPU.Description
- WScript.Echo "设备说明: " & CPU.Caption
- WScript.Echo "处理器标识: " & CPU.ProcessorId
- Dim ProcessorType : ProcessorType = "处理器类型:"
- Select Case CPU.ProcessorType
- Case : ProcessorType = ProcessorType & "Other"
- Case : ProcessorType = ProcessorType & "Unknown"
- Case : ProcessorType = ProcessorType & "Central Processor"
- Case : ProcessorType = ProcessorType & "Math Processor"
- Case : ProcessorType = ProcessorType & "DSP Processor"
- Case : ProcessorType = ProcessorType & "Video Processor"
- Case Else : ProcessorType = ProcessorType & "[Type]" & CPU.ProcessorType
- End Select
- WScript.Echo ProcessorType
- WScript.Echo "处理器版本: " & CPU.Version
- 'WScript.Echo "唯一标识: " & CPU.UniqueId
- WScript.Echo "设备标识: " & CPU.DeviceID
- Dim Family : Family = "处理器家族:"
- Select Case CPU.Family
- Case : Family = Family & "Other"
- Case : Family = Family & "Unknown"
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & "Intel386(TM) Processor"
- Case : Family = Family & "Intel486(TM) Processor"
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & "Pentium Brand"
- Case : Family = Family & "Pentium Pro"
- Case : Family = Family & "Pentium II"
- Case : Family = Family & "Pentium Processor with MMX(TM) Technology"
- Case : Family = Family & "Celeron(TM)"
- Case : Family = Family & "Pentium II Xeon(TM)"
- Case : Family = Family & "Pentium III"
- Case : Family = Family & "M1 Family"
- Case : Family = Family & "M2 Family"
- Case : Family = Family & "AMD Duron(TM) Processor Family"
- Case : Family = Family & "K5 Family"
- Case : Family = Family & "K6 Family"
- Case : Family = Family & "K6-2"
- Case : Family = Family & "K6-3"
- Case : Family = Family & "AMD Athlon(TM) Processor Family"
- Case : Family = Family & "AMD2900 Family"
- Case : Family = Family & "K6-2+"
- Case : Family = Family & "Power PC Family"
- Case : Family = Family & "Power PC 601"
- Case : Family = Family & "Power PC 603"
- Case : Family = Family & "Power PC 603+"
- Case : Family = Family & "Power PC 604"
- Case : Family = Family & "Power PC 620"
- Case : Family = Family & "Power PC X704"
- Case : Family = Family & "Power PC 750"
- Case : Family = Family & "Alpha Family"
- Case : Family = Family & "Alpha 21064"
- Case : Family = Family & "Alpha 21066"
- Case : Family = Family & "Alpha 21164"
- Case : Family = Family & "Alpha 21164PC"
- Case : Family = Family & "Alpha 21164a"
- Case : Family = Family & "Alpha 21264"
- Case : Family = Family & "Alpha 21364"
- Case : Family = Family & "MIPS Family"
- Case : Family = Family & "MIPS R4000"
- Case : Family = Family & "MIPS R4200"
- Case : Family = Family & "MIPS R4400"
- Case : Family = Family & "MIPS R4600"
- Case : Family = Family & "MIPS R10000"
- Case : Family = Family & "SPARC Family"
- Case : Family = Family & "SuperSPARC"
- Case : Family = Family & "microSPARC II"
- Case : Family = Family & "microSPARC IIep"
- Case : Family = Family & "UltraSPARC"
- Case : Family = Family & "UltraSPARC II"
- Case : Family = Family & "UltraSPARC IIi"
- Case : Family = Family & "UltraSPARC III"
- Case : Family = Family & "UltraSPARC IIIi"
- Case : Family = Family & ""
- Case : Family = Family & "68xxx Family"
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & ""
- Case : Family = Family & "Hobbit Family"
- Case : Family = Family & "Crusoe(TM) TM5000 Family"
- Case : Family = Family & "Crusoe(TM) TM3000 Family"
- Case : Family = Family & "Efficeon(TM) TM8000 Family"
- Case : Family = Family & "Weitek"
- Case : Family = Family & "Itanium(TM) Processor"
- Case : Family = Family & "AMD Athlon(TM) 64 Processor Family"
- Case : Family = Family & "AMD Opteron(TM) Processor Family"
- Case : Family = Family & "PA-RISC Family"
- Case : Family = Family & "PA-RISC 8500"
- Case : Family = Family & "PA-RISC 8000"
- Case : Family = Family & "PA-RISC 7300LC"
- Case : Family = Family & "PA-RISC 7200"
- Case : Family = Family & "PA-RISC 7100LC"
- Case : Family = Family & "PA-RISC 7100"
- Case : Family = Family & "V30 Family"
- Case : Family = Family & "Pentium III Xeon(TM) Processor"
- Case : Family = Family & "Pentium III Processor with Intel SpeedStep(TM) Technology"
- Case : Family = Family & "Pentium 4"
- Case : Family = Family & "Intel Xeon(TM)"
- Case : Family = Family & "AS400 Family"
- Case : Family = Family & "Intel Xeon(TM) Processor MP"
- Case : Family = Family & "AMD Athlon(TM) XP Family"
- Case : Family = Family & "AMD Athlon(TM) MP Family"
- Case : Family = Family & "Intel Itanium 2"
- Case : Family = Family & "Intel Pentium M Processor"
- Case : Family = Family & "K7"
- Case : Family = Family & "Intel Core(TM) i7-2760QM"
- Case : Family = Family & "IBM390 Family"
- Case : Family = Family & "G4"
- Case : Family = Family & "G5"
- Case : Family = Family & "G6"
- Case : Family = Family & "z/Architecture Base"
- Case : Family = Family & "i860"
- Case : Family = Family & "i960"
- Case : Family = Family & "SH-3"
- Case : Family = Family & "SH-4"
- Case : Family = Family & "ARM"
- Case : Family = Family & "StrongARM"
- Case : Family = Family & "6x86"
- Case : Family = Family & "MediaGX"
- Case : Family = Family & "MII"
- Case : Family = Family & "WinChip"
- Case : Family = Family & "DSP"
- Case : Family = Family & "Video Processor"
- Case Else : Family = Family & "[Family Type] " & CPU.Family
- End Select
- WScript.Echo Family
- Dim Architecture : Architecture = "处理器架构:"
- Select Case CPU.Architecture
- Case : Architecture = Architecture & "x86"
- Case : Architecture = Architecture & "MIPS"
- Case : Architecture = Architecture & "Alpha"
- Case : Architecture = Architecture & "PowerPC"
- Case : Architecture = Architecture & "ARM"
- Case : Architecture = Architecture & "Itanium-based systems"
- Case : Architecture = Architecture & "x64"
- Case Else : Architecture = Architecture & "[Architecture] " & CPU.Architecture
- End Select
- WScript.Echo Architecture
- WScript.Echo "-"
- WScript.Echo "内核数量: " & CPU.NumberOfCores
- WScript.Echo "逻辑处理器数量: " & CPU.NumberOfLogicalProcessors
- WScript.Echo "地址长度: " & CPU.AddressWidth
- WScript.Echo "数据长度: " & CPU.DataWidth
- WScript.Echo "处理速度: " & CPU.CurrentClockSpeed & " MHz"
- WScript.Echo "L2缓存: " & CPU.L2CacheSize & " B"
- WScript.Echo "L3缓存: " & CPU.L3CacheSize & " B"
- WScript.Echo "-"
- Dim CpuStatus : CpuStatus = "处理器状态:"
- Select Case CPU.CpuStatus
- Case : CpuStatus = CpuStatus & "Unknown"
- Case : CpuStatus = CpuStatus & "CPU Enabled"
- Case : CpuStatus = CpuStatus & "CPU Disabled by User via BIOS Setup"
- Case : CpuStatus = CpuStatus & "CPU Disabled by BIOS (POST Error)"
- Case : CpuStatus = CpuStatus & "CPU Is Idle"
- Case : CpuStatus = CpuStatus & "Reserved"
- Case : CpuStatus = CpuStatus & "Reserved"
- Case : CpuStatus = CpuStatus & "Other"
- Case Else : CpuStatus = CpuStatus & "[CpuStatus] " & CPU.CpuStatus
- End Select
- WScript.Echo CpuStatus
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '主板信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394072%28VS.85%29.aspx
- Sub BaseBoardInfo
- SetTitle "3.主板信息"
- Set BaseBoards = WMI.InstancesOf("Win32_BaseBoard")
- For Each BaseBoard In BaseBoards
- WScript.Echo "设备名称: " & BaseBoard.Name
- WScript.Echo "设备描述: " & BaseBoard.Description
- WScript.Echo "设备说明: " & BaseBoard.Caption
- WScript.Echo "主板型号: " & BaseBoard.Product
- WScript.Echo "主板版本: " & BaseBoard.Version
- WScript.Echo "制造厂商: " & BaseBoard.Manufacturer
- WScript.Echo "序列号码: " & BaseBoard.SerialNumber
- WScript.Echo "-"
- WScript.Echo "是否底板: " & BaseBoard.HostingBoard
- WScript.Echo "可热插拔: " & BaseBoard.HotSwappable
- WScript.Echo "是否开启: " & BaseBoard.PoweredOn
- WScript.Echo "可拆卸性: " & BaseBoard.Removable
- WScript.Echo "可替换性: " & BaseBoard.Replaceable
- WScript.Echo "-"
- WScript.Echo "硬件状态: " & BaseBoard.Status
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '内存信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394347%28VS.85%29.aspx
- Sub MemoryInfo
- SetTitle "4.内存信息"
- Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")
- For Each Memory In Memorys
- WScript.Echo "设备名称: " & Memory.Name
- WScript.Echo "设备描述: " & Memory.Description
- WScript.Echo "设备说明: " & Memory.Caption
- WScript.Echo "制造厂商: " & Memory.Manufacturer
- WScript.Echo "序列号码: " & Memory.SerialNumber
- WScript.Echo "-"
- WScript.Echo "数据宽度: " & Memory.DataWidth
- Dim FormFactor : FormFactor = "形状系数:"
- Select Case Memory.FormFactor
- Case : FormFactor = FormFactor & "Unknown"
- Case : FormFactor = FormFactor & "Other"
- Case : FormFactor = FormFactor & "SIP"
- Case : FormFactor = FormFactor & "DIP"
- Case : FormFactor = FormFactor & "ZIP"
- Case : FormFactor = FormFactor & "SOJ"
- Case : FormFactor = FormFactor & "Proprietary"
- Case : FormFactor = FormFactor & "SIMM"
- Case : FormFactor = FormFactor & "DIMM"
- Case : FormFactor = FormFactor & "TSOP"
- Case : FormFactor = FormFactor & "PGA"
- Case : FormFactor = FormFactor & "RIMM"
- Case : FormFactor = FormFactor & "SODIMM"
- Case : FormFactor = FormFactor & "SRIMM"
- Case : FormFactor = FormFactor & "SMD"
- Case : FormFactor = FormFactor & "SSMP"
- Case : FormFactor = FormFactor & "SFP"
- Case : FormFactor = FormFactor & "TQFP"
- Case : FormFactor = FormFactor & "SOIC"
- Case : FormFactor = FormFactor & "LCC"
- Case : FormFactor = FormFactor & "PLCC"
- Case : FormFactor = FormFactor & "BGA"
- Case : FormFactor = FormFactor & "FPBGA"
- Case : FormFactor = FormFactor & "LGA"
- Case Else : FormFactor = FormFactor & "[FormFactor] " & Memory.FormFactor
- End Select
- WScript.Echo FormFactor
- WScript.Echo "容量统计: " & Memory.Capacity / / & "MB"
- Dim MemoryType : MemoryType = "内存类型: "
- Select Case Memory.MemoryType
- Case : MemoryType = MemoryType & "Unknown"
- Case : MemoryType = MemoryType & "Other"
- Case : MemoryType = MemoryType & "DRAM"
- Case : MemoryType = MemoryType & "Synchronous DRAM"
- Case : MemoryType = MemoryType & "Cache DRAM"
- Case : MemoryType = MemoryType & "EDO"
- Case : MemoryType = MemoryType & "EDRAM"
- Case : MemoryType = MemoryType & "VRAM"
- Case : MemoryType = MemoryType & "SRAM"
- Case : MemoryType = MemoryType & "RAM"
- Case : MemoryType = MemoryType & "ROM"
- Case : MemoryType = MemoryType & "Flash"
- Case : MemoryType = MemoryType & "EEPROM"
- Case : MemoryType = MemoryType & "FEPROM"
- Case : MemoryType = MemoryType & "EPROM"
- Case : MemoryType = MemoryType & "CDRAM"
- Case : MemoryType = MemoryType & "3DRAM"
- Case : MemoryType = MemoryType & "SDRAM"
- Case : MemoryType = MemoryType & "SGRAM"
- Case : MemoryType = MemoryType & "RDRAM"
- Case : MemoryType = MemoryType & "DDR"
- Case : MemoryType = MemoryType & "DDR-2"
- Case Else : MemoryType = MemoryType & "[MemoryType] " & Memory.MemoryType
- End Select
- WScript.Echo MemoryType
- WScript.Echo "安放位置: " & Memory.DeviceLocator
- WScript.Echo "行中位置: " & Memory.PositionInRow
- WScript.Echo "-"
- Next
- WScript.Echo
- End Sub
- '硬盘信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394132%28VS.85%29.aspx
- Sub DiskInfo
- SetTitle "5.硬盘信息"
- Set Disks = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
- For Each Disk In Disks
- WScript.Echo "设备名称:" & Disk.Name
- WScript.Echo "设备描述: " & Disk.Description
- WScript.Echo "设备说明: " & Disk.Caption
- WScript.Echo "硬盘名称:" & Disk.Caption
- WScript.Echo "生产厂家:" & Disk.Manufacturer
- WScript.Echo "硬盘序列号:" & Disk.SerialNumber
- 'WScript.Echo "硬盘签名:" & Disk.Signature
- WScript.Echo "硬盘具有以下能力:"
- For Each Capability In Disk.Capabilities
- Select Case Capability
- Case : WScript.Echo "Unknown"
- Case : WScript.Echo "Other"
- Case : WScript.Echo "Sequential Access"
- Case : WScript.Echo "Random Access"
- Case : WScript.Echo "Supports Writing"
- Case : WScript.Echo "Encryption"
- Case : WScript.Echo "Compression"
- Case : WScript.Echo "Supports Removable Media"
- Case : WScript.Echo "Manual Cleaning"
- Case : WScript.Echo "Automatic Cleaning"
- Case : WScript.Echo "SMART Notification"
- Case : WScript.Echo "Supports Dual-Sided Media"
- Case : WScript.Echo "Ejection Prior to Drive Dismount Not Required"
- Case Else : WScript.Echo "-"
- End Select
- Next
- WScript.Echo "-"
- WScript.Echo "硬盘默认分块大小:" & Disk.DefaultBlockSize
- WScript.Echo "硬盘最大分块大小:" & Disk.MaxBlockSize
- WScript.Echo "硬盘最小分块大小:" & Disk.MinBlockSize
- WScript.Echo "硬盘扇区数:" & Disk.SectorsPerTrack
- WScript.Echo "硬盘柱面数:" & Disk.TotalCylinders
- WScript.Echo "硬盘总头数:" & Disk.TotalHeads
- WScript.Echo "硬盘扇区数:" & Disk.TotalSectors
- WScript.Echo "硬盘总道数:" & Disk.TotalTracks
- WScript.Echo "硬盘总道数:" & Disk.TotalTracks
- WScript.Echo "每柱磁道数:" & Disk.TracksPerCylinder
- WScript.Echo "固件版本:" & Disk.FirmwareRevision
- WScript.Echo "接口类型:" & Disk.InterfaceType
- WScript.Echo "-"
- WScript.Echo "硬盘容量:" & FormatNumber(Disk.Size / / / , ) & " GB"
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '显卡信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394512%28VS.85%29.aspx
- Sub GraphicsInfo
- SetTitle "6.显卡信息"
- Set VIDs = WMI.ExecQuery("SELECT DeviceID FROM Win32_VideoController")
- For Each VID In VIDs
- Set Videos = WMI.ExecQuery("SELECT * FROM Win32_VideoController WHERE DeviceID='"& VID.DeviceID &"'")
- For Each Video In Videos
- WScript.Echo "设备名称: " & Video.Name
- WScript.Echo "设备描述: " & Video.Description
- WScript.Echo "设备说明: " & Video.Caption
- WScript.Echo "制造厂商: " & Video.AdapterCompatibility
- Dim VideoArchitecture : VideoArchitecture = "视频架构:"
- Select Case Video.VideoArchitecture
- Case : VideoArchitecture = VideoArchitecture & "Other"
- Case : VideoArchitecture = VideoArchitecture & "Unknown"
- Case : VideoArchitecture = VideoArchitecture & "CGA"
- Case : VideoArchitecture = VideoArchitecture & "EGA"
- Case : VideoArchitecture = VideoArchitecture & "VGA"
- Case : VideoArchitecture = VideoArchitecture & "SVGA"
- Case : VideoArchitecture = VideoArchitecture & "MDA"
- Case : VideoArchitecture = VideoArchitecture & "HGC"
- Case : VideoArchitecture = VideoArchitecture & "MCGA"
- Case : VideoArchitecture = VideoArchitecture & "8514A"
- Case : VideoArchitecture = VideoArchitecture & "XGA"
- Case : VideoArchitecture = VideoArchitecture & "Linear Frame Buffer"
- Case : VideoArchitecture = VideoArchitecture & "PC-98"
- Case Else : VideoArchitecture = VideoArchitecture & "[VideoArchitecture] " & Video.VideoArchitecture
- End Select
- WScript.Echo VideoArchitecture
- Dim VideoMemoryType : VideoMemoryType = "视频存储器类型:"
- Select Case Video.VideoMemoryType
- Case : VideoMemoryType = VideoMemoryType & "Other"
- Case : VideoMemoryType = VideoMemoryType & "Unknown"
- Case : VideoMemoryType = VideoMemoryType & "VRAM"
- Case : VideoMemoryType = VideoMemoryType & "DRAM"
- Case : VideoMemoryType = VideoMemoryType & "SRAM"
- Case : VideoMemoryType = VideoMemoryType & "WRAM"
- Case : VideoMemoryType = VideoMemoryType & "EDO RAM"
- Case : VideoMemoryType = VideoMemoryType & "Burst Synchronous DRAM"
- Case : VideoMemoryType = VideoMemoryType & "Pipelined Burst SRAM"
- Case : VideoMemoryType = VideoMemoryType & "CDRAM"
- Case : VideoMemoryType = VideoMemoryType & "3DRAM"
- Case : VideoMemoryType = VideoMemoryType & "SDRAM"
- Case : VideoMemoryType = VideoMemoryType & "SGRAM"
- Case Else : VideoMemoryType = VideoMemoryType & "[VideoMemoryType] " & Video.VideoMemoryType
- End Select
- Wscript.Echo VideoMemoryType
- WScript.Echo "视频处理器: " & Video.VideoProcessor
- WScript.Echo "-"
- WScript.Echo "物理显存: " & Round(Video.AdapterRAM / / )&" MB"
- WScript.Echo "分辨率: " & Video.CurrentHorizontalResolution & " * " & Video.CurrentVerticalResolution
- WScript.Echo "单位像素比特数:" & Video.CurrentBitsPerPixel & " Bit"
- WScript.Echo "刷新频率: " & Video.CurrentRefreshRate & " Hz"
- WScript.Echo "="
- Next
- Set Videos = Nothing
- Next
- Set VIDs = Nothing
- WScript.Echo
- End Sub
- '显示器信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394122%28VS.85%29.aspx
- Sub DisplayInfo
- SetTitle "7.显示器信息"
- '显示器信息
- Set Monitors = WMI.ExecQuery("Select * from Win32_DesktopMonitor")
- For Each Monitor In Monitors
- WScript.Echo "设备名称: " & Monitor.Name
- WScript.Echo "设备描述: " & Monitor.Description
- WScript.Echo "设备说明: " & Monitor.Caption
- WScript.Echo "显示器类型: " & Monitor.MonitorType
- WScript.Echo "生产厂家: " & Monitor.MonitorManufacturer
- WScript.Echo "-"
- WScript.Echo "屏幕高度: " & Monitor.ScreenHeight
- WScript.Echo "屏幕宽度: " & Monitor.ScreenWidth
- WScript.Echo "X轴每逻辑英寸像素数: " & Monitor.PixelsPerXLogicalInch
- WScript.Echo "Y轴每逻辑英寸像素数: " & Monitor.PixelsPerYLogicalInch
- Dim DisplayType : DisplayType = "显示模式:"
- Select Case Monitor.DisplayType
- Case : DisplayType = DisplayType & "Unknown"
- Case : DisplayType = DisplayType & "Other"
- Case : DisplayType = DisplayType & "Multiscan Color"
- Case : DisplayType = DisplayType & "Multiscan Monochrome"
- Case : DisplayType = DisplayType & "Fixed Frequency Color"
- Case : DisplayType = DisplayType & "Fixed Frequency Monochrome"
- Case Else : DisplayType = DisplayType & "[DisplayType] " & Monitor.DisplayType
- End Select
- Wscript.Echo DisplayType
- Dim StatusInfo : StatusInfo = "状态信息:"
- Select Case Monitor.StatusInfo
- Case : StatusInfo = StatusInfo & "Other"
- Case : StatusInfo = StatusInfo & "Unknown"
- Case : StatusInfo = StatusInfo & "Enabled"
- Case : StatusInfo = StatusInfo & "Disabled"
- Case : StatusInfo = StatusInfo & "Not Applicable"
- Case Else : StatusInfo = StatusInfo & "[StatusInfo] " & Monitor.StatusInfo
- End Select
- Wscript.Echo StatusInfo
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '声卡信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394463%28VS.85%29.aspx
- Sub SoundCardInfo
- SetTitle "8.声卡信息"
- '声卡信息
- Set SoundDevices = WMI.ExecQuery("SELECT * FROM Win32_SoundDevice")
- For Each SoundDevice In SoundDevices
- WScript.Echo "设备名称: " & SoundDevice.Name
- WScript.Echo "设备描述: " & SoundDevice.Description
- WScript.Echo "设备说明: " & SoundDevice.Caption
- WScript.Echo "制造厂商: " & SoundDevice.Manufacturer
- Dim StatusInfo : StatusInfo = "状态信息:"
- Select Case SoundDevice.StatusInfo
- Case : StatusInfo = StatusInfo & "Other"
- Case : StatusInfo = StatusInfo & "Unknown"
- Case : StatusInfo = StatusInfo & "Enabled"
- Case : StatusInfo = StatusInfo & "Disabled"
- Case : StatusInfo = StatusInfo & "Not Applicable"
- Case Else : StatusInfo = StatusInfo & "[StatusInfo] " & SoundDevice.StatusInfo
- End Select
- Wscript.Echo StatusInfo
- WScript.Echo "="
- Next
- Set SoundDevices = Nothing
- WScript.Echo
- End Sub
- '网卡信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394216%28v=vs.85%29.aspx
- Sub NetworkCardInfo
- SetTitle "9.网卡信息"
- '网卡信息
- Set Networks = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PhysicalAdapter ='TRUE'")
- For Each Network In Networks
- WScript.Echo "设备名称: " & Network.Name
- WScript.Echo "设备描述: " & Network.Description
- WScript.Echo "设备说明: " & Network.Caption
- WScript.Echo "适配器型号: " & Network.AdapterType
- WScript.Echo "生产厂商: " & Network.Manufacturer
- WScript.Echo "设备标识: " & Network.DeviceID
- WScript.Echo "GUID: "& Network.GUID
- WScript.Echo "MAC: "& Network.MACAddress
- WScript.Echo "-"
- If Network.NetEnabled = TRUE Then
- WScript.Echo "活跃状态:" & "活跃"
- Else
- WScript.Echo "活跃状态:" & "空闲"
- End If
- Dim NetConnectionStatus : NetConnectionStatus = "状态信息:"
- Select Case Network.NetConnectionStatus
- Case : NetConnectionStatus = NetConnectionStatus & "Disconnected"
- Case : NetConnectionStatus = NetConnectionStatus & "Connecting"
- Case : NetConnectionStatus = NetConnectionStatus & "Connected"
- Case : NetConnectionStatus = NetConnectionStatus & "Disconnecting"
- Case : NetConnectionStatus = NetConnectionStatus & "Hardware not present"
- Case : NetConnectionStatus = NetConnectionStatus & "Hardware disabled"
- Case : NetConnectionStatus = NetConnectionStatus & "Hardware malfunction"
- Case : NetConnectionStatus = NetConnectionStatus & "Media disconnected"
- Case : NetConnectionStatus = NetConnectionStatus & "Authenticating"
- Case : NetConnectionStatus = NetConnectionStatus & "Authentication succeeded"
- Case : NetConnectionStatus = NetConnectionStatus & "Authentication failed"
- Case : NetConnectionStatus = NetConnectionStatus & "Invalid address"
- Case : NetConnectionStatus = NetConnectionStatus & "Credentials required"
- Case Else : NetConnectionStatus = NetConnectionStatus & "[NetConnectionStatus] " & Network.NetConnectionStatus
- End Select
- Wscript.Echo NetConnectionStatus
- WScript.Echo "="
- Next
- Set cNet = Nothing
- WScript.Echo
- End Sub
- '键盘信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394166%28v=vs.85%29.aspx
- Sub KeyBoardInfo
- SetTitle "10.键盘信息"
- Set Keyboards = WMI.ExecQuery("Select * from Win32_Keyboard")
- For Each Keyboard In Keyboards
- WScript.Echo "设备名称: " & Keyboard.Name
- WScript.Echo "设备描述: " & Keyboard.Description
- WScript.Echo "设备说明: " & Keyboard.Caption
- WScript.Echo "功能键数量: " & Keyboard.NumberOfFunctionKeys
- Next
- WScript.Echo
- End Sub
- '电池信息
- Sub BatteryInfo
- SetTitle "11.电池信息"
- Set Batterys = WMI.ExecQuery("Select * from Win32_Battery")
- For Each Battery In Batterys
- WScript.Echo "设备名称: "& Battery.Name
- WScript.Echo "设备描述: "& Battery.Description
- WScript.Echo "设备说明: " & Battery.Caption
- Dim Chemistry : Chemistry = "电池类型:"
- Select Case Battery.Chemistry
- Case : Chemistry = Chemistry & "Other"
- Case : Chemistry = Chemistry & "Unknown"
- Case : Chemistry = Chemistry & "Lead Acid"
- Case : Chemistry = Chemistry & "Nickel Cadmium"
- Case : Chemistry = Chemistry & "Nickel Metal Hydride"
- Case : Chemistry = Chemistry & "Lithium-ion"
- Case : Chemistry = Chemistry & "Zinc air"
- Case : Chemistry = Chemistry & "Lithium Polymer"
- Case Else : Chemistry = Chemistry & "[Chemistry] " & Battery.Chemistry
- End Select
- WScript.Echo Chemistry
- WScript.Echo "设计容量: " & Battery.DesignCapacity & " milliwatt-hour(s)"
- WScript.Echo "设计电压: " & Battery.DesignVoltage & " millivolt(s)"
- Next
- WScript.Echo
- End Sub
- '指示设备信息
- '参考:https://msdn.microsoft.com/en-us/library/aa394356.aspx
- Sub PointingDeviceInfo
- SetTitle "12.指示设备信息"
- Set PointingDevices = WMI.ExecQuery("Select * from Win32_PointingDevice")
- For Each PointingDevice In PointingDevices
- WScript.Echo "设备名称: "& PointingDevice.Name
- WScript.Echo "设备描述: "& PointingDevice.Description
- WScript.Echo "设备说明: " & PointingDevice.Caption
- WScript.Echo "生产厂家: " & PointingDevice.Manufacturer
- Dim DeviceInterface : DeviceInterface = ""
- Select Case PointingDevice.DeviceInterface
- Case : DeviceInterface = DeviceInterface & "Other"
- Case : DeviceInterface = DeviceInterface & "Unknown"
- Case : DeviceInterface = DeviceInterface & "Serial"
- Case : DeviceInterface = DeviceInterface & "PS/2"
- Case : DeviceInterface = DeviceInterface & "Infrared"
- Case : DeviceInterface = DeviceInterface & "HP-HIL"
- Case : DeviceInterface = DeviceInterface & "Bus Mouse"
- Case : DeviceInterface = DeviceInterface & "ADB (Apple Desktop Bus)"
- Case : DeviceInterface = DeviceInterface & "Bus Mouse DB-9"
- Case : DeviceInterface = DeviceInterface & "Bus Mouse Micro-DIN"
- Case : DeviceInterface = DeviceInterface & "USB"
- Case Else : DeviceInterface = DeviceInterface & "[DeviceInterface] " & PointingDevice.DeviceInterface
- End Select
- WScript.Echo DeviceInterface
- WScript.Echo "硬件类型: " & PointingDevice.HardwareType
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '光驱设备
- '参考:https://msdn.microsoft.com/en-us/library/aa394081.aspx
- Sub CDROMDriveInfo
- SetTitle "13.光驱设备"
- Set CDROMDrives = WMI.ExecQuery("Select * from Win32_CDROMDrive")
- For Each CDROMDrive In CDROMDrives
- WScript.Echo "设备名称: "& CDROMDrive.Name
- WScript.Echo "设备描述: "& CDROMDrive.Description
- WScript.Echo "设备说明: " & CDROMDrive.Caption
- WScript.Echo "生产厂家: " & CDROMDrive.Manufacturer
- WScript.Echo "="
- Next
- WScript.Echo
- End Sub
- '其他硬件
- Sub OtherHardware
- 'SetTitle "其他信息"
- 'WScript.Echo
- End Sub
- '运行统计
- Sub RunStats
- SetTitle "运行统计"
- WScript.Echo "检查开始时间:" & StartTime
- WScript.Echo "检查结束时间:" & FinishTime
- WScript.Echo "检查用时:" & DateDiff("s", StartTime, FinishTime) & " 秒"
- WScript.Echo
- End Sub
3)打印结果:Rhea_Result.txt
- Microsoft (R) Windows Script Host Version 5.8
- 版权所有(C) Microsoft Corporation -。保留所有权利。
- ----------.系统概览----------
- 生产厂家:Dell Inc.
- 当前用户:Tsybius-PC\Tsybius
- ----------.处理器信息----------
- 设备名称: Intel(R) Core(TM) i5-3230M CPU @ .60GHz
- 设备描述: x64 Family Model Stepping
- 设备说明: x64 Family Model Stepping
- 处理器标识: BFEBFBFF000306A9
- 处理器类型:Central Processor
- 处理器版本:
- 设备标识: CPU0
- 处理器家族:[Family Type]
- 处理器架构:x64
- -
- 内核数量:
- 逻辑处理器数量:
- 地址长度:
- 数据长度:
- 处理速度: MHz
- L2缓存: B
- L3缓存: B
- -
- 处理器状态:CPU Enabled
- =
- ----------.主板信息----------
- 设备名称: Base Board
- 设备描述: Base Board
- 设备说明: Base Board
- 主板型号: 0F5PHF
- 主板版本: A00
- 制造厂商: Dell Inc.
- 序列号码: /5NL2NX1/CN1296137U0037/
- -
- 是否底板: True
- 可热插拔: False
- 是否开启: True
- 可拆卸性: False
- 可替换性: True
- -
- 硬件状态: OK
- =
- ----------.内存信息----------
- 设备名称: Physical Memory
- 设备描述: Physical Memory
- 设备说明: Physical Memory
- 制造厂商: 830B
- 序列号码: 50E42805
- -
- 数据宽度:
- 形状系数:SODIMM
- 容量统计: 4096MB
- 内存类型: Unknown
- 安放位置: Top Slot
- 行中位置:
- -
- ----------.硬盘信息----------
- 设备名称:\\.\PHYSICALDRIVE0
- 设备描述: 磁盘驱动器
- 设备说明: HGST HTS725050A7E630 ATA Device
- 硬盘名称:HGST HTS725050A7E630 ATA Device
- 生产厂家:(标准磁盘驱动器)
- 硬盘序列号:2020202020204654353641354a57323244365636
- 硬盘具有以下能力:
- Random Access
- Supports Writing
- -
- 硬盘默认分块大小:
- 硬盘最大分块大小:
- 硬盘最小分块大小:
- 硬盘扇区数:
- 硬盘柱面数:
- 硬盘总头数:
- 硬盘扇区数:
- 硬盘总道数:
- 硬盘总道数:
- 每柱磁道数:
- 固件版本:GH2OA560
- 接口类型:IDE
- -
- 硬盘容量:465.759 GB
- =
- ----------.显卡信息----------
- 设备名称: Intel(R) HD Graphics
- 设备描述: Intel(R) HD Graphics
- 设备说明: Intel(R) HD Graphics
- 制造厂商: Intel Corporation
- 视频架构:VGA
- 视频存储器类型:Unknown
- 视频处理器: Intel(R) HD Graphics Family
- -
- 物理显存: MB
- 分辨率: *
- 单位像素比特数: Bit
- 刷新频率: Hz
- =
- ----------.显示器信息----------
- 设备名称: 通用即插即用监视器
- 设备描述: 通用即插即用监视器
- 设备说明: 通用即插即用监视器
- 显示器类型: 通用即插即用监视器
- 生产厂家: (标准监视器类型)
- -
- 屏幕高度:
- 屏幕宽度:
- X轴每逻辑英寸像素数:
- Y轴每逻辑英寸像素数:
- 显示模式:[DisplayType]
- 状态信息:[StatusInfo]
- =
- ----------.声卡信息----------
- 设备名称: 英特尔(R) 显示器音频
- 设备描述: 英特尔(R) 显示器音频
- 设备说明: 英特尔(R) 显示器音频
- 制造厂商: Intel(R) Corporation
- 状态信息:Enabled
- =
- 设备名称: IDT High Definition Audio CODEC
- 设备描述: IDT High Definition Audio CODEC
- 设备说明: IDT High Definition Audio CODEC
- 制造厂商: IDT
- 状态信息:Enabled
- =
- ----------.网卡信息----------
- 设备名称: Broadcom NetXtreme Gigabit Ethernet
- 设备描述: Broadcom NetXtreme Gigabit Ethernet
- 设备说明: [] Broadcom NetXtreme Gigabit Ethernet
- 适配器型号: Ethernet 802.3
- 生产厂商: Broadcom
- 设备标识:
- GUID: {9BC23D87-DADB-46E8-B542-DF0C6CAC7D7C}
- MAC: F0:1F:AF::1A:A6
- -
- 活跃状态:空闲
- 状态信息:Media disconnected
- =
- 设备名称: Broadcom .11n 网络适配器
- 设备描述: Broadcom .11n 网络适配器
- 设备说明: [] Broadcom .11n 网络适配器
- 适配器型号: Ethernet 802.3
- 生产厂商: Broadcom
- 设备标识:
- GUID: {689F2877-B076-44D2-ACC6-74520D616695}
- MAC: ::8B:::
- -
- 活跃状态:活跃
- 状态信息:Connected
- =
- 设备名称: Microsoft Virtual WiFi Miniport Adapter
- 设备描述: Microsoft Virtual WiFi Miniport Adapter
- 设备说明: [] Microsoft Virtual WiFi Miniport Adapter
- 适配器型号: Ethernet 802.3
- 生产厂商: Microsoft
- 设备标识:
- GUID: {237CCDA1-169E-4F13-A9F2-B6AD0F6190A3}
- MAC: ::8B:::
- -
- 活跃状态:空闲
- 状态信息:Media disconnected
- =
- ----------.键盘信息----------
- 设备名称: Enhanced (- or -key)
- 设备描述: PS/ 标准键盘
- 设备说明: Enhanced (- or -key)
- 功能键数量:
- ----------.电池信息----------
- 设备名称: DELL MKD6223
- 设备描述: Internal Battery
- 设备说明: Internal Battery
- 电池类型:Lithium-ion
- 设计容量: milliwatt-hour(s)
- 设计电压: millivolt(s)
- ----------.指示设备信息----------
- 设备名称: USB 输入设备
- 设备描述: USB 输入设备
- 设备说明: USB 输入设备
- 生产厂家: (标准系统设备)
- USB
- 硬件类型: USB 输入设备
- =
- 设备名称: PS/ 兼容鼠标
- 设备描述: PS/ 兼容鼠标
- 设备说明: PS/ 兼容鼠标
- 生产厂家: Microsoft
- PS/
- 硬件类型: PS/ 兼容鼠标
- =
- ----------.光驱设备----------
- 设备名称: ZUPYDSN LARCTE3K SCSI CdRom Device
- 设备描述: CD-ROM Drive
- 设备说明: ZUPYDSN LARCTE3K SCSI CdRom Device
- 生产厂家: (标准 CD-ROM 驱动器)
- =
- 设备名称: DTSOFT Virtual CdRom Device
- 设备描述: CD-ROM Drive
- 设备说明: DTSOFT Virtual CdRom Device
- 生产厂家: (标准 CD-ROM 驱动器)
- =
- ----------运行统计----------
- 检查开始时间:// ::
- 检查结束时间:// ::
- 检查用时: 秒
[VBS]检测计算机各硬件信息的更多相关文章
- C# 获取计算机的硬件信息
/// <summary> /// 获得CPU编号 /// </summary> /// <returns></returns> public stri ...
- 【C#】 获取计算机的硬件信息
添加引用:System.Management /// <summary> /// 获取本机的MAC地址 /// </summary> /// <returns>&l ...
- linux查看硬件信息的方法
目前会Linux的人不少,但是精通的不多,怎样才能做一个符合企业需求的Linux人才,首先要有良好的Linux基础知识.本文为你讲解Linux的知识,今天所讲的是 Linux硬件信息怎样查看,希望你能 ...
- Linux系统查看硬件信息神器,比设备管理器好用100倍!
大家都知道,当我们的 Linux 系统计算机出现问题时,需要对其排除故障,首先需要做的是找出计算机的硬件信息.下面介绍一个简单易用的应用程序--HardInfo,你可以利用它来显示你电脑的每个硬件方面 ...
- 利用WMI检测电脑硬件信息,没办法显示cpu的信息
但你要给某些系统或软件加密时,需要了解到服务器的硬件信息时,系统和软件会利用WMI检测硬件信息, 而有时我们会遇到检测不到CPU的型号信息,如图 此时的解决方法: 1.确定“服务”里启动了WMI 2. ...
- 获取硬件信息的delphi源码CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名
{-----------------------------------------------------------------------------作者:sushengmiyan 2013.0 ...
- Linux查看硬件信息,主板型号及内存硬件,驱动设备,查看设备,查看CPU。
用硬件检测程序kuduz探测新硬件:service kudzu start ( or restart) 查看CPU信息:cat /proc/cpuinfo 查看板卡信息:cat /proc/pci 查 ...
- JAVA 读取计算机中相关信息
java读取 计算机 cup号 读取版本号 显卡 .. . . ........ .. . . . package com.swt.common.util; import java.io.Buffer ...
- Reading Notes : 180213 计算机的硬件构成与处理流程
读书<计算机组成原理>,<鸟哥的Linux私房菜基础篇> 基本上接触过计算机的人,都多少知道计算机的具体构成,但是真正能讲明白的却说了很多,本节将讲解一下计算机的基本硬件构成和 ...
随机推荐
- 关于OPEN_MAX宏undeclared的问题
最近在看unp时,I/O复用-poll一章的代码使用到了OPEN_MAX.据书中描述,这一宏定义在limits.h头文件中,指代一个进程在任意时刻能打开的最大描述符数目.但在代码编译时遇到了错误,提示 ...
- apache服务器伪静态配置说明
apache服务器伪静态配置说明: 第一种 .如果是多城市版分类并且使用了城市二级域名即(多城市+多域名),请修改apache的配置文件,把以下代码添加到配置文件的最后一行即可,注意把qibosoft ...
- centos搭建OPENldap
LDAP是轻量目录访问协议,英文全称是Lightweight Directory Access Protocol,一般都简称为LDAP.它是基于X.500标准的,但是简单多了并且可以根据需要定制.与X ...
- Jasper打印示例
import java.io.IOException;import java.util.ArrayList;import java.util.HashMap;import java.util.List ...
- oracle数据库导入导出问题
场景描述: 1.做一个从UAT到PRD的Schema迁移,UAT环境有sys用户,PRD环境没有sys用户,由于权限限制,没办法使用expdp/impdp,只好选择exp/imp命令: 2.UAT和P ...
- maven 打 fat包(jar包有了全部依赖)插件
<plugin> <artifactId> maven-assembly-plugin </artifactId> <configuration> &l ...
- [剑指Offer]45-把数组排成最小的数
题目链接 https://www.nowcoder.com/practice/8fecd3f8ba334add803bf2a06af1b993?tpId=13&tqId=11185&t ...
- XML 解析技术
xml 解析方式有两种: dom 解析和 sax 解析: 针对着两种解析方式,有三种解析器: sun公司的 jaxp dom4j 组织的 dom4j jdom 组织的 jdom dom 解析XML : ...
- android 下拉刷新框架PullToRefreshScrollView(com.handmark.pulltorefresh)
很简单,实现OnRefreshListener这个监听器. mPullRefreshScrollView .setOnRefreshListener(new OnRefreshListener< ...
- webpack浅析---入口篇
webpack有四个核心概念: 入口(entry) 输出(output) loader 插件(plugins) webpack-merge将环境.构建目标.运行时合并 入口: 入口起点是指webpac ...