网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料：

　

标题 VBS脚本写的Windows硬件检测工具分享
内容
    这篇文章主要介绍了VBS脚本写的Windows硬件检测工具分享,本文直接给出脚本源码和运行效果图,需要的朋友可以参考下
    Const MyName = "Windows硬件检视工具(测试版) --by:Rex.Pack(雷克斯.派)"
    If Not LCase(Replace(WScript.FullName, WScript.Path & "\", "")) = "cscript.exe" Then
        Set WS = CreateObject("WScript.Shell")
        WS.Run "CMD /c mode con: cols=115 & Color 0A & Title " & MyName & " & CScript //nologo """ & WScript.ScriptFullName & """"
        WScript.Quit
    End If
    '----初始化
    Set SD = CreateObject("Scripting.Dictionary")
        SD.CompareMode = vbTextCompare
    Set S = New BaseStr
    Set PC = New BasePC
    Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    CmdArr = Split(" OS CPU Board Memory Video Disk USB CacheMemory NetWork BIOS Sound Battery PortableBattery" & " S1 S2 S3 S4")
    With SD
        .Add "?", "Call Menu"
        .Add "e", "WScript.Quit"
        For I = 1 To 17
            .Add CStr(I), CmdArr(I)
        Next
        .Add "a", "1-6"
        .Add "b", "7-9"
        .Add "c", "10-13"
        .Add "d", "14-17"
    End With
    Echo MyName
    Call Menu
    Call Main
    '----CO
    Sub Menu()
        Echo "[设备列表]"
        Echo " 常用组 A: 1.OS  2.CPU   3.主板    4.内存    5.显卡    6.硬盘"
        Echo " 次级组 B: 7.USB 8.缓存    9.网卡"
        Echo " 酱油组 C: 10.BIOS   11.声卡   电池(12.内部 13.便携)"
        Echo "[测试CPU]"
        Echo " 测试组 D: 14.变量幂次方运算    15.字符叠合 16.加法计算 17.叠加计算"
    End Sub
    Sub Main()
        Print ">": GetNum = Trim(InPut)
        With SD
            If .Exists(GetNum) Then
                If IsNumeric(GetNum) Then
                    Echo Eval("PC." & .Item(GetNum))
                Else
                    ArrLU = Split(.Item(GetNum), "-")
                    For L = ArrLU(0) To ArrLU(1)
                        Echo Eval("PC." & .Item(CStr(L)))
                    Next
                End If
            Else
                Echo "#不支持的命令"
            End If
        End With
        If Not Err.Number = 0 Then Echo ">X": Err.Clear
        Call Main
    End Sub
    'DDC
    Class BaseStr
        Private Strs
        Private Sub Class_Initialize()
            Strs = ""
        End Sub
        Private Sub Class_Terminate()
            Call Cls
        End Sub
        Public Sub Cls()
            Strs = Empty
        End Sub
        Public Property Let I(ByVal Str)
            If Left(Str, 1) = "☆" Then Str = Str & String(80, "=")
            Strs = Strs & vbCrLf & Str
        End Property
        Public Default Property Get I()
            I = Strs
            Cls
        End Property
    End Class
    Class BasePC
        Private DPS
        Private Sub Class_Initialize()
            DPS = 200
        End Sub
        Private Sub Class_Terminate()
            DPS = Empty
        End Sub
        Function S1()
            S1 = "变量幂次方运算 " & DPS & "万次用时:" & RT("TestVar = I ^ 2", DPS * 10000)
        End Function
        Function S2()
            S2 = "字符叠合 " & DPS & "000次用时:" & RT("TestVar = TestVar & vbTab", DPS * 1000)
        End Function
        Function S3()
            S3 = "加法计算 " & DPS & "万次用时:" & RT("TestVar = 86 + 32", DPS * 10000)
        End Function
        Function S4()
            S4 = "叠加计算 " & DPS & "万次用时:" & RT("TestVar = TestVar + I", DPS * 10000)
        End Function
        Private Function RT(ByVal MathExp, ByVal Num)
            Dim NowTimer, NewTimer, TestVar
            NowTimer = Timer
            For I = 1 To Num
                ExeCute MathExp
            Next
            NewTimer = FormatNumber((Timer - NowTimer) * 1000, 3, True, , False) & "ms"
            RT = NewTimer
            TestVar = Empty
        End Function
        Function BIOS()
            On Error Resume Next
            S.I = "☆[BIOS]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_BIOS")
                With TempObj
                    S.I = "┣厂商      :" & .Manufacturer
                    S.I = "┇日期      :" & .ReleaseDate
                    S.I = "┇OEM 版本  :" & .Version
                    S.I = "┇BIOS 版本 :" & .SMBIOSBIOSVersion
                    S.I = "┇Major版本 :" & .SMBIOSMajorVersion
                    S.I = "┇状态      :" & .Status
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            BIOS = S
        End Function
        Function OS()
            On Error Resume Next
            S.I = "☆[操作系统]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj in WMI.InstancesOf("Win32_OperatingSystem")
                With TempObj
                    S.I = "┣标签  :" & .Caption
                    S.I = "┇CSDV  :" & .CSDVersion
                    S.I = "┇版本  :" & .Version
                    S.I = "┇RAM识别:" & .TotalVisibleMemorySize / 1024 & "MB"
                    S.I = "┇RAM可用:" & .FreePhysicalMemory / 1024 & "MB"
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            OS = S
        End Function
        Function Board()
            On Error Resume Next
            S.I = "☆[主板]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_BaseBoard")
                With TempObj
                    S.I = "┣标签:" & .Caption
                    S.I = "┇编号:" & .Product
                    S.I = "┇序号:" & .SerialNumber 
                    S.I = "┇名称:" & .Name
                    S.I = "┇版本:" & .Version
                    S.I = "┇厂商:" & .Manufacturer
                    S.I = "┇状态:" & .Status
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            Board = S
        End Function
        Function CPU()
            On Error Resume Next
            S.I = "☆[CPU]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_Processor")
                With TempObj
                    MCS = .MaxClockSpeed
                    CCS = .CurrentClockSpeed
                    If MCS Mod 2 = 1 Then MCS = CCS + 1
                    If CCS Mod 2 = 1 Then CCS = CCS + 1
                    If CCS = MCS Then
                        Set SRP = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
                        SRP.GetDWORDValue &H80000002, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", OC
                        Set SRP = Nothing
                    Else
                        OC = CCS
                    End If
                    If OC Mod 2 = 1 Then OC = OC + 1
                    FC = OC - MCS
                    If FC > +10 Then OCLC = "超"
                    If FC < -10 Then OCLC = "降"
                    OCLC = OCLC & "频比率:" & FormatPercent(FC / MCS, True, True)
                     
                    S.I = "┣CPU 名称:" & Trim(.Name)
                    S.I = "┇CPU 架构:" & .Description
                    S.I = "┇制造厂商:" & .Manufacturer
                    S.I = "┇插口规格:" & .SocketDesignation
                    S.I = "┇CPU 数量:" & .CpuStatus & "   " & String(.CpuStatus, "※")
                    S.I = "┇核心数量:" & .NumberOfCores & " " & String(.NumberOfCores, "∷")
                    S.I = "┇线程数量:" & .NumberOfLogicalProcessors & " " & String(.NumberOfLogicalProcessors, "≈")
                    S.I = "┇地址位宽:" & .AddressWidth & " Bit"
                    S.I = "┇数据位宽:" & .DataWidth  & " Bit"
                    S.I = "┇CPU 电压:" & .CurrentVoltage / 10 & "V"
                    S.I = "┇外部频率:" & .ExtClock & " MHz"
                    S.I = "┇当前频率:" & OC        & " MHz, " & OCLC
                    S.I = "┇原始频率:" & MCS       & " MHz"
                    S.I = "┇CPU占用%:" & .LoadPercentage & "%"
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            CPU = S
        End Function
        Function CacheMemory()
            On Error Resume Next
            S.I = "☆[缓存内存]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_CacheMemory")
                With TempObj
                    If .MaxCacheSize > 0 Then
                        Select Case .Purpose
                            Case "L1 Cache" AddStr = "(+DataBit)"
                            Case Else
                        End Select
                        S.I = "┇作用位:" & .Purpose & " ID:" & .DeviceID & ":" & .MaxCacheSize & "KB" & AddStr
                        AddStr = ""
                    End If
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            CacheMemory = S
        End Function
        Function Memory()
            On Error Resume Next
            TempArr = Split("Unknown Other DRAM Synchronous-DRAM Cache-DRAM EDO EDRAM VRAM SRAM RAM ROM Flash EEPROM FEPROM EPROM CDRAM 3DRAM SDRAM SGRAM RDRAM DDR DDR-2")
            S.I = "☆[内存]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_PhysicalMemory")
                With TempObj
                    S.I = "┣名称/标签:" & .Name & "/" & .Caption
                    S.I = "┇BL    :" & .BankLabel
                    S.I = "┇槽    :" & .DeviceLocator
                    S.I = "┇容量   :" & .Capacity / 1048576 & "MB"
                    S.I = "┇类型   :" & TempArr(.MemoryType)
                    S.I = "┇速率   :" & .Speed & "MHz"
                    S.I = "┇制造商  :" & .Manufacturer
                    S.I = "┇热插拔  :" & IIf(.HotSwappable = True, True, False)
                    S.I = "┇总位宽  :" & .TotalWidth
                    S.I = "┇数据位宽 :" & .DataWidth
                    S.I = "┇部分序号 :" & .PartNumber
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            Memory = S
        End Function
        Function Video()
            On Error Resume Next
            TempArr1 = Split(" 其他 未知 CGA EGA VGA SVGA MDA HGC MCGA 8514A XGA Linear Frame Buffer" & Space(160 - 14) & "PC-98")
            TempArr2 = Split(" 其他 未知 隔行 逐行")
            S.I = "☆[显卡]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_VideoController")
                With TempObj
                    S.I = "┣接口   :" & TempArr1(.VideoArchitecture)
                    S.I = "┇名称   :" & .Name
                    S.I = "┇标签   :" & .Caption
                    S.I = "┇ID    :" & .DeviceID
                    S.I = "┇GPU   :" & .VideoProcessor
                    S.I = "┇制造商  :" & .AdapterCompatibility
                    S.I = "┇物理显存 :" & .AdapterRAM / 1048576 & "MB"
                    S.I = "┇扫描模式 :" & IIf(.CurrentScanMode = False, False, TempArr2(.CurrentScanMode))
                    S.I = "┇分辨率  :" & .CurrentHorizontalResolution & " x " & .CurrentVerticalResolution
                    S.I = "┇色位盘  :" & .CurrentBitsPerPixel & "Bit"
                    S.I = "┇刷新率  :" & .CurrentRefreshRate & "Hz" & "(" & .MinRefreshRate & "-" & .MaxRefreshRate& ")"
                    S.I = "┇驱动版本 :" & .DriverVersion
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            Video = S
        End Function
        Function Disk()
            On Error Resume Next
            S.I = "☆[硬盘]"
            For Each TempObj In WMI.InstancesOf("Win32_DiskDrive")
                With TempObj
                    S.I = "┏[磁盘:" & .Index & "]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
                    S.I = "┇名称  :" & .Name
                    S.I = "┇标签  :" & .Caption
                    S.I = "┇接口  :" & .InterfaceType
                    S.I = "┇制造商 :" & .Manufacturer
                    S.I = "┇序号  :" & .SerialNumber
                    S.I = "┇介质描述:" & .Description & "   " & "┇介质类型:" & .MediaType
                    S.I = "┇柱面数 :" & .TotalCylinders & "    " & "┇磁头数 :" & .TotalHeads
                    S.I = "┇标准容量:" & FormatNumber(.Size / 1000000000, 2, True) & "GB" & "   " & "┇实际容量:" & FormatNumber(.Size / 1073741824, 2, True) & "GB"
                    S.I = "┇分区数量:" & .Partitions
                    S.I = "┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
                    S.I = "┣[分区]┳━━━┳━━━━━━━┳━━━━━━━━━━━┳━━━━━┉"
                    S.I = "┇ 索引 ┇主分区┇容量(GB) ┇块(大小x数量)       ┇属性"
                    S.I = "┣━━━╋━━━╋━━━━━━━╋━━━━━━━━━━━╋━━━━━┉"
                    For Each TempObj0 In WMI.InstancesOf("Win32_DiskPartition")
                        If .Index = TempObj0.DiskIndex Then
                            S.I = "┇ " & TempObj0.Index & _
                            "   ┇" & TempObj0.PrimaryPartition & _
                            "   ┇" & FormatNumber(TempObj0.Size / 1073741824, 2, True) & "GB" & _
                            "   ┇" & TempObj0.BlockSize & "x" & TempObj0.NumberOfBlocks & _
                            "   ┇" & _
                            TIf(TempObj0.BootPartition, "引导,") & _
                            TIf(TempObj0.HiddenSectors, "隐藏,") & _
                            TIf(TempObj0.Bootable, "启动.")
                        End If
                    Next
                    S.I = "┣━━━┻━━━┻━━━━━━━┻━━━━━━━━━━━┻━━━━━┉"
                    S.I = "┣[扇区]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
                    S.I = "┇磁道扇区:" & .SectorsPerTrack
                    S.I = "┇扇区大小:" & .BytesPerSector
                    S.I = "┇总扇区数:" & .TotalSectors
                    S.I = "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
                End With
            Next
            TempArr = Split("未知 可移动磁盘 本地磁盘 网络驱动器 光盘 RAM磁盘   ")
            S.I = "┏[分区信息]━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
            For Each TempObj1 In CreateObject("Scripting.FileSystemObject").Drives
                With TempObj1
                    If .IsReady Then
                        PTS = Int(.FreeSpace / .TotalSize * 100)
                        S.I = "┇盘符:" & .DriveLetter & " 文件系统:" & .FileSystem & "    类型:" & TempArr(.DriveType) & "  卷标:" & .VolumeName
                        S.I = "┇" & "   空闲率:" & PTS & "%    " & String((100 - PTS) / 5, "■") & String(PTS / 5, "□")
                    Else
                        S.I = "┇盘符:" & .DriveLetter & " 磁盘未准备好!"
                        S.I = "┇" & "   空闲率:0%  " & "≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡"
                    End If
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉"
            Disk = S
        End Function
        Function Sound()
            On Error Resume Next
            S.I = "☆[声卡]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_SoundDevice")
                With TempObj
                    S.I = "┣名称/标签:" & .Name & "/" & .Caption
                    S.I = "┇ID    :" & .DeviceID
                    S.I = "┇制造商  :" & .Manufacturer
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            Sound = S
        End Function
        Function NetWork()
            On Error Resume Next
            S.I = "☆[网卡]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.ExecQuery("Select * from Win32_NetworkAdapter Where PhysicalAdapter = 'True'")
                With TempObj
                    S.I = "┣[网卡:" & Space(3 - Len(.Index)) & .Index & "]━━━━━━━━┉"
                    S.I = "┇标签 :" & .Caption
                    S.I = "┇PNPDID:" & .PNPDeviceID
                    S.I = "┇制造商:" & .Manufacturer
                    S.I = "┇速率 :" & IIf(TypeName(.Speed) = "Null", False, .Speed / 10000 & "bps")
                    S.I = "┇启用 :" & .NetEnabled
                    S.I = "┇服务名:" & .ServiceName
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            NetWork = S
        End Function
        Function Battery()
            On Error Resume Next
            TempArr1 = Split(" 放电 交流电 充满 低 临界 充电 充电>高 充电>低 充电>临界 未定义 部分充电")
            TempArr2 = Split(" 其他 未知 铅酸 镉镍 镍金属氢化物 锂离子 锌空气 锂聚合物")
            S.I = "☆[内部电池]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_Battery")
                With TempObj
                    S.I = "┣名称/标签:" & .Name & "/" & .Caption
                    S.I = "┇ID    :" & .DeviceID
                    S.I = "┇PNPDID  :" & .PNPDeviceID
                    S.I = "┇充电时间 :" & .BatteryRechargeTime
                    S.I = "┇状态   :" & TempArr1(.BatteryStatus)
                    S.I = "┇材料   :" & TempArr2(.Chemistry)
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            Battery = S
        End Function
        Function PortableBattery()
            On Error Resume Next
            TempArr1 = Split(" 其他 未知 充满 低 临界 充电 充电>高 充电>低 充电>临界 未定义 部分充电")
            TempArr2 = Split(" 其他 未知 铅酸 镉镍 镍金属氢化物 锂离子 锌空气 锂聚合物")
            S.I = "☆[便携电池]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_PortableBattery")
                With TempObj
                    S.I = "┣名称/标签:" & .Name & "/" & .Caption
                    S.I = "┇ID    :" & .DeviceID
                    S.I = "┇PNPDID  :" & .PNPDeviceID
                    S.I = "┇制造商  :" & .Manufacturer
                    S.I = "┇预计剩余 :" & .EstimatedChargeRemaining
                    S.I = "┇预计时间 :" & .EstimatedRunTime
                    S.I = "┇电源管理 :" & .PowerManagementSupported
                    S.I = "┇位置   :" & .Location
                    S.I = "┇智能电池 :" & .SmartBatteryVersion
                    S.I = "┇材料   :" & TempArr2(.Chemistry)
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            PortableBattery = S
        End Function
        Function USB()
            On Error Resume Next
            S.I = "☆[USB坞]"
            S.I = "┏━━━━━━━━━━━━━┉"
            For Each TempObj In WMI.InstancesOf("Win32_USBController")
                With TempObj
                    S.I = "┣标签 :" & .Caption
                    S.I = "┇ID  :" & .DeviceID
                    S.I = "┇PNPDID:" & .PNPDeviceID
                    S.I = "┇制造商:" & .Manufacturer
                End With
            Next
            S.I = "┗━━━━━━━━━━━━━┉"
            USB = S
        End Function
    End Class
    '----
        '输出
        Sub Print(ByVal Texts)
            WScript.StdOut.Write Texts
        End Sub
        Sub Echo(ByVal GEOM_TempData)
            WScript.Echo GEOM_TempData
        End Sub
        '输出:覆盖行,空白长度
        Sub PrintC(ByVal Texts, ByVal LenNum)
            WScript.StdOut.Write Chr(13) & Texts & String(LenNum, " ")
        End Sub
        '输出,+换行
        Sub PrintL(ByVal Texts)
            WScript.StdOut.WriteLine(Texts)
        End Sub
        '输入
        Function InPut()
            InPut = WScript.StdIn.ReadLine
        End Function
    Function IIf(ByVal GEOM_tf, ByVal GEOM_T, ByVal GEOM_F)
        If GEOM_tf = True Then IIF = GEOM_T Else IIF = GEOM_F
    End Function
    'iif真
    Function TIf(ByVal GEOM_tf, ByVal GEOM_T)
        If GEOM_tf = True Then TIF = GEOM_T
    End Function
    'iif假
    Function FIf(ByVal GEOM_tf, ByVal GEOM_F)
        If GEOM_tf = False Then FIF = GEOM_F
    End Function
随便看

　

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

　

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间：2025/5/20 4:44:44