代碼沒有技術(shù)水準(zhǔn)，網(wǎng)上搜索有一大堆類似代碼，關(guān)鍵是中文描述方式，支持多個硬盤、顯卡、內(nèi)存、聲卡、網(wǎng)卡，CPU超頻識別，支持cmd調(diào)用

代碼如下:

'Hardware_Info.vbs v1.1 BY: fastslz

On Error Resume Next

Dim WMI,WS,Fso

Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set cOSs = WMI.ExecQuery("Select * from Win32_OperatingSystem")

For Each oOS in cOSs

        OSx = oOS.Caption &" " & oOS.CSDVersion  & vbCrLf

Next

BBx= "————————————主板信息————————————"  & vbCrLf

Set Board = WMI.InstancesOf("Win32_BaseBoard")

Set Bios = WMI.InstancesOf("Win32_Bios")

For Each oBoard In Board

BBx = BBx _

    & "主板名稱: " & oBoard.Product &vbTab & oBoard.Version & vbCrLf _

    & "制造廠商: " & oBoard.Manufacturer                    & vbCrLf 

Next

For Each oBios In Bios

BBx = BBx _

    & "BIOS廠商: " & oBios.Manufacturer                     & vbCrLf _

    & "BIOS日期: " & FormatDateTime(wDate(Trim(oBios.ReleaseDate)),1)  & vbCrLf _

    & "BIOS版本: " & oBios.SMBIOSBIOSVersion & vbCrLf _

    & "OEM 版本: " & oBios.Version           & vbCrLf

Next

Set Bios = Nothing:Set Board  = Nothing

CPUx = "———————————處理器信息———————————"  & vbCrLf

Set CPUs = WMI.InstancesOf("Win32_Processor")

Set Caches = WMI.InstancesOf("Win32_CacheMemory")

For Each ObjCPU In CPUs

MCS = ObjCPU.MaxClockSpeed :CCS = ObjCPU.CurrentClockSpeed

If ObjCPU.MaxClockSpeed Mod 2 = 1 Then MCS = CCS + 1

If ObjCPU.CurrentClockSpeed Mod 2 = 1 Then CCS = CCS + 1

OC = QOC(CCS,MCS)

If (OC-MCS) >  10 and (OC-MCS) > 0 Then OCLC = "  超頻比率: " & FormatPercent((OC-MCS)/MCS)

If (OC-MCS) < -10 and (OC-MCS) < 0 Then OCLC = "  降頻比率: " & FormatPercent((OC-MCS)/MCS)

CPUx = CPUx _

     & "CPU 名稱: " & Trim(ObjCPU.Name)                & vbCrLf _

     & "CPU 構(gòu)架: " & ObjCPU.Description               & vbCrLf _

     & "制造廠商: " & ObjCPU.Manufacturer              & vbCrLf _

     & "接口規(guī)格: " & ObjCPU.SocketDesignation         & vbCrLf _

     & "CPU 數(shù)量: " & ObjCPU.CpuStatus                 & vbCrLf _

     & "核心數(shù)量: " & ObjCPU.NumberOfCores             & vbCrLf _

     & "線程數(shù)量: " & ObjCPU.NumberOfLogicalProcessors & vbCrLf _

     & "地址位寬: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _

     & "數(shù)據(jù)位寬: " & ObjCPU.DataWidth    & " Bit"     & vbCrLf _

     & "CPU 電壓: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _

     & "外部頻率: " & ObjCPU.ExtClock  & " MHz"        & vbCrLf _

     & "當(dāng)前頻率: " & OC               & " MHz" & OCLC & vbCrLf _

     & "原始頻率: " & MCS              & " MHz"        & vbCrLf _

     & "CPU 使用: " & ObjCPU.LoadPercentage  & "%"     & vbCrLf 

Next

Function QOC(CCS,MCS)

    If CCS = MCS Then

        Set wReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

        wReg.GetDWORDValue &H80000002,"HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz",strValue

        OC = strValue :Set wReg = Nothing

        Else

        OC = CCS

    End If

    QOC = OC :If QOC Mod 2 = 1 Then QOC = QOC + 1

End Function

For Each ObjCache In Caches

    If objCache.MaxCacheSize > 0  Then

        Select Case objCache.Purpose

        case "L1-Cache"

        CPUx = CPUx & "一級緩存: " & objCache.MaxCacheSize & "KB    (L1數(shù)據(jù)＋L1緩存)" & vbCrLf

        case "L2-Cache"

        CPUx = CPUx & "二級緩存: " & objCache.MaxCacheSize & " KB" & vbCrLf

        case "L3-Cache"

        CPUx = CPUx & "三級緩存: " & objCache.MaxCacheSize & " KB" & vbCrLf

        End Select

    End If

Next

Set Caches = Nothing:Set CPUs = Nothing

Memx = "————————————內(nèi)存信息————————————" & vbCrLf

Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")

Set MemKY = WMI.InstancesOf("Win32_OperatingSystem")

For Each aKY In MemKY

    ZL = aKY.TotalVisibleMemorySize

    KY = aKY.FreePhysicalMemory

Next

Mems = 0:Memc = 0

Types = Array("Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM", "RAM", _

               "ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR","DDR2")

For Each Mem In Memorys

    For i = 0 To UBound(Types)

        If Mem.MemoryType = i Then MemType = Types(i) :End If

    Next

    For j = 0 To 6

        Select Case Mem.Tag

            case "Physical Memory " & j

            Mems = Mems+(Mem.Capacity)

            Memx = Memx  &"插槽" & Mem.DeviceLocator & ": " & Round(Mem.Capacity/1048576) &" MB  " _

                         & MemType & "-" & Mem.Speed & "MHz" & " 數(shù)據(jù)帶寬" & Mem.DataWidth _

                         & "Bit" & " 總帶寬" & Mem.TotalWidth &"Bit" & vbCrLf

        End Select

    Next

Next

Memx = Memx _

     & "內(nèi)存安裝: "& Round(Mems/1048576)&" MB " & vbCrLf _

     & "內(nèi)存總量: "& Round(ZL/1024)& " MB" & vbCrLf _

     & "內(nèi)存可用: "& Round(KY/1024)& " MB" & vbCrLf _  

     & "內(nèi)存使用率: " &FormatPercent((ZL-KY)/ZL)& vbCrLf

Set Memorys = Nothing:Set MemKY = Nothing

Vx= "————————————顯卡信息————————————"  & vbCrLf

Set cVID = WMI.ExecQuery("SELECT DeviceID FROM Win32_VideoController")

For Each oVID In cVID

    Set Video = WMI.ExecQuery("SELECT * FROM Win32_VideoController WHERE DeviceID='"& oVID.DeviceID &"'")

    For Each oVideo In Video

        Vx = Vx _

        & "顯卡名稱: " & oVideo.Name                                    & vbCrLf _

        & "制造廠商: " & oVideo.AdapterCompatibility                    & vbCrLf _

        & "物理顯存: " & Round(oVideo.AdapterRAM/1048576)&" MB "        & vbCrLf _

        & "顯示模式: " & oVideo.CurrentHorizontalResolution &" X " _

                       & oVideo.CurrentVerticalResolution   &" "_

                       & oVideo.CurrentBitsPerPixel         &"Bit " _

                       & oVideo.CurrentRefreshRate          &"Hz"     & vbCrLf 

    Next

Next

Set Video = Nothing:Set cVID = Nothing

Dx= "————————————硬盤信息————————————"  & vbCrLf

Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")

Set cPPP = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk")

For Each oIDE In IDE

    For i = 0 To IDE.Count

        Select Case oIDE.Index

            Case i

               For Each oPPP In cPPP

                   If InStr(oPPP.Name, i) Then vName = oPPP.Name

               Next

               Dx = Dx & "硬盤" & i &"型號:" & oIDE.Caption                   & vbCrLf _

               & vbTab & "標(biāo)稱容量: "    & Round(oIDE.Size/1000000000) &" GB" & vbCrLf _

               & vbTab & "實(shí)際容量: "    & Round(oIDE.Size/1073741824) &" GB" & vbCrLf _

               & vbTab & "柱面數(shù): "      & oIDE.TotalCylinders                & vbCrLf _

               & vbTab & "磁頭數(shù): "      & oIDE.TotalHeads                    & vbCrLf _

               & vbTab & "每道扇區(qū)數(shù): "  & oIDE.SectorsPerTrack               & vbCrLf _

               & vbTab & "扇區(qū)大小: "    & oIDE.BytesPerSector                & vbCrLf _

               & vbTab & "總扇區(qū)數(shù): "    & oIDE.TotalSectors                  & vbCrLf _

               & vbTab & "分區(qū)狀態(tài): "    & vName  & vbCrLf

               DevID = Replace(oIDE.DeviceID, "\", "\\")

               Set cDP = WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID="""& DevID &"""}" _

               & "WHERE AssocClass = Win32_DiskDriveToDiskPartition")

               For Each oDP In cDP

                 Set cLD = WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID="""& oDP.DeviceID &"""}" _

                 & "WHERE AssocClass = Win32_LogicalDiskToPartition")

                   For Each oLD In cLD

                     Dx = Dx _

                        & vbTab & oLD.DeviceID &" " & Left(oLD.VolumeName&"         " ,11) & Left(oLD.FileSystem&"   " ,6) & "共:" _

                        & Right("    "&Round(oLD.Size/1073741824,1),6)                &" GB    可用:" _

                        & Right("    "&Round(oLD.FreeSpace/1073741824,1),6)           &" GB    已用:" _

                        & Right("    "&Round((oLD.Size-oLD.FreeSpace)/1073741824,1),6)&" GB" & vbCrLf

                   Next

              Next 

        End Select

    Next

Next

Set cLD = Nothing:Set cDP = Nothing:Set IDE = Nothing:Set cDP = Nothing:Set cPPP =  Nothing

Sx= "————————————聲卡信息————————————"  & vbCrLf

Set cSD = WMI.ExecQuery("SELECT * FROM Win32_SoundDevice")

For Each oSD In cSD

    Sx = Sx & "聲卡名稱: " & oSD.ProductName  & vbCrLf

Next

Set cSD = Nothing

Nx= "————————————網(wǎng)卡信息————————————"  & vbCrLf

Set cNet = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PhysicalAdapter ='TRUE'")

If CStr(cNet.Count) < 0 Then

    Set cNet = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PNPDeviceID Like 'PCI%%' or PNPDeviceID Like 'USB%%'")

    For Each oNet In cNet

        If oNet.NetConnectionStatus > 0 Then

           Nx = Nx & "網(wǎng)卡名稱: "& oNet.Name & vbCrLf

           Else

           Nx = Nx & "網(wǎng)卡名稱: "& oNet.Name & vbCrLf

        End If

    Next

    Else

    For Each oNet In cNet

        If oNet.NetEnabled = TRUE Then

           Nx = Nx & "網(wǎng)卡名稱: "& oNet.Name & vbTab & "活躍狀態(tài)" & vbCrLf

           Else

           Nx = Nx & "網(wǎng)卡名稱: "& oNet.Name & vbTab & "空閑狀態(tài)" & vbCrLf

        End If

    Next

End If

Set cNet = Nothing

If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

    MsgBox OSx & BBx & CPUx & Memx ,,"Hardware_Info.vbs v1.0 BY: fastslz"

    MsgBox Vx & Sx & Nx  ,,"Hardware_Info.vbs v1.0 BY: fastslz"

    MsgBox Dx ,, "Hardware_Info.vbs v1.0 BY: fastslz"

    MsgN = MsgBox ("是否保存到文件？" , 32+4 , "Hardware_Info.vbs v1.0 BY: fastslz")

    If MsgN = 6 Then JZCSx = JZCS :wInfo

    Else

    WScript.Echo OSx & BBx & CPUx & Memx & Vx & Sx & Nx & Dx

End If

Set WMI = Nothing

Sub wInfo()

    Set WS = CreateObject("WScript.Shell")

    Set Fso = CreateObject("Scripting.FileSystemObject")

    aFile = WS.CurrentDirectory &"\"& WS.ExpandEnvironmentStrings("%COMPUTERNAME%")&"_Hardware_Info.txt"

    Set HInfo = Fso.CreateTextFile(aFile , True)

    HInfo.WriteLine "Hardware_Info.vbs BY: fastslz"

    HInfo.WriteLine OSx & BBx & CPUx & Memx & Vx & Sx & Nx & Dx & JZCSx

    HInfo.Close

    WS.Run Chr(34) & aFile & Chr(34)

Set WS = Nothing:Set Fso = Nothing:Set HInfo = Nothing

End Sub

Function wDate(nD)

    If Not IsNull(nD) Then

    wDate = CDate(Mid(nD,5,2)&"/"&Mid(nD,7,2)&"/"&Left(nD,4)&" "&Mid(nD,9,2)&":"&Mid(nD,11,2)&":"&Mid(nD,13,2))

    End If

End Function

Function JZCS()

    NumMsg = vbCrLf & "———————————簡易CPU基準(zhǔn)測試———————————" & vbCrLf

    Dim I,T1,T2,Tempvalue,aRunTime,bRunTime

    T1 = Timer()

    For I = 1 To 2000000

        Tempvalue= 2^0.5

    Next

    T2 = Timer()

    aRunTime = FormatNumber((T2-T1)*1000,2)

    NumMsg =  NumMsg & "CPU 200萬次開方計(jì)算所需時間：" &aRunTime&" 毫秒" & vbCrLf

    T1 = Timer()

    For I = 1 To 6000000

        Tempvalue= 1 + 1

    Next

    T2 = Timer()

    bRunTime = FormatNumber((T2-T1)*1000,2)

    NumMsg =  NumMsg & "CPU 600萬次加法計(jì)算所需時間："&bRunTime&" 毫秒" & vbCrLf

    JZCS = NumMsg

End Function

cmd調(diào)用方法

代碼如下:

@echo off

for /f "delims=*" %%a In ('Cscript //Nologo "Hardware_Info.vbs"^|find ":"') do echo %%a

:在第二個硬盤第一個分區(qū)新建Backup文件夾

for /f "tokens=2,*" %%a In ('Cscript //Nologo "Hardware_Info.vbs"^|findstr  "分區(qū)狀態(tài)"') do (

    if %%a#==1# for /f "tokens=1" %%i In ("%%b") do MD "%%i\Backup")

pause