Hardware_Info.vbs 獲取硬件信息的VBS代碼

當(dāng)前位置：首頁(yè) > 范文|應(yīng)用文 > IT技術(shù)專欄 > 腳本欄目

來(lái)源：易賢網(wǎng) 閱讀：1881 次日期：2016-06-30 11:18:12

溫馨提示：易賢網(wǎng)小編為您整理了“Hardware_Info.vbs 獲取硬件信息的VBS代碼”,方便廣大網(wǎng)友查閱！

代碼沒有技術(shù)水準(zhǔn)，網(wǎng)上搜索有一大堆類似代碼，關(guān)鍵是中文描述方式，支持多個(gè)硬盤、顯卡、內(nèi)存、聲卡、網(wǎng)卡，CPU超頻識(shí)別，支持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

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

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

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

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 & "一級(jí)緩存: " & objCache.MaxCacheSize & "KB (L1數(shù)據(jù)＋L1緩存)" & vbCrLf

case "L2-Cache"

CPUx = CPUx & "二級(jí)緩存: " & objCache.MaxCacheSize & " KB" & vbCrLf

case "L3-Cache"

CPUx = CPUx & "三級(jí)緩存: " & objCache.MaxCacheSize & " KB" & vbCrLf

End Select

End If

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

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

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

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

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

Dx = Dx & "硬盤" & i &"型號(hào):" & 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

End Select

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

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

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

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 & "———————————簡(jiǎn)易CPU基準(zhǔn)測(cè)試———————————" & vbCrLf

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

T1 = Timer()

For I = 1 To 2000000

Tempvalue= 2^0.5

T2 = Timer()

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

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

T1 = Timer()

For I = 1 To 6000000

Tempvalue= 1 + 1

T2 = Timer()

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

NumMsg = NumMsg & "CPU 600萬(wàn)次加法計(jì)算所需時(shí)間："&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

:在第二個(gè)硬盤第一個(gè)分區(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

更多信息請(qǐng)查看腳本欄目

上一篇：vbs向指定的文件添加內(nèi)容的函數(shù)

下一篇：vbsTree VBS腳本模擬tree命令

易賢網(wǎng)手機(jī)網(wǎng)站地址：Hardware_Info.vbs 獲取硬件信息的VBS代碼

由于各方面情況的不斷調(diào)整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考，敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)！

相關(guān)閱讀腳本欄目

Bottle框架中的裝飾器類和描述符應(yīng)用詳解10月30日

Python探索之SocketServer詳解10月30日

Python探索之實(shí)現(xiàn)一個(gè)簡(jiǎn)單的HTTP服務(wù)器10月30日

python探索之BaseHTTPServer-實(shí)現(xiàn)Web服務(wù)器介紹10月30日

13個(gè)最常用的Python深度學(xué)習(xí)庫(kù)介紹10月30日

深入理解Python中的*重復(fù)運(yùn)算符10月30日

python logging日志模塊詳解10月30日

System表空間不足的報(bào)警問題淺析10月22日

Android開發(fā)自定義TextView省略號(hào)樣式的方法10月22日

MySQL 清除表空間碎片的實(shí)例詳解10月22日

Ubuntu下MySQL安裝及配置遠(yuǎn)程登錄教程10月22日

Python 2.x如何設(shè)置命令執(zhí)行的超時(shí)時(shí)間實(shí)例10月22日

windows 64位下redis安裝教程10月22日

Android 自定義 HorizontalScrollView 打造多圖片OOM 的橫向滑動(dòng)效果10月22日

淺談Node Inspector 代理實(shí)現(xiàn)10月22日

java web開發(fā)之購(gòu)物車功能實(shí)現(xiàn)示例代碼10月22日

Android開發(fā)中GridView用法示例10月22日

Django ORM框架的定時(shí)任務(wù)如何使用詳解10月22日

SpringMail使用過程中的報(bào)錯(cuò)解決辦法10月22日

Android 使用自定義RecyclerView控件實(shí)現(xiàn)Gallery效果10月22日

易賢網(wǎng)移動(dòng)網(wǎng)站

2025國(guó)考·省考課程試聽報(bào)名

報(bào)班類型
姓名
手機(jī)號(hào)
驗(yàn)證碼

午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线