基本信息
源码名称：计算机硬件信息采集(主板/处理器/内存/显卡/声卡/网卡等信息)
源码大小：0.01M
文件格式：.vbs
开发语言：ASP
更新时间：2018-07-17
友情提示：（无需注册或充值，赞助后即可获取资源下载链接）
嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300
本次赞助数额为： 2 元×
微信扫码支付：2 元
×
请留下您的邮箱，我们将在2小时内将文件发到您的邮箱
源码介绍
'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 构架: " & ObjCPU.Description & vbCrLf _
& "制造厂商: " & ObjCPU.Manufacturer & vbCrLf _
& "接口规格: " & ObjCPU.SocketDesignation & vbCrLf _
& "CPU 数量: " & ObjCPU.CpuStatus & vbCrLf _
& "核心数量: " & ObjCPU.NumberOfCores & vbCrLf _
& "线程数量: " & ObjCPU.NumberOfLogicalProcessors & vbCrLf _
& "地址位宽: " & ObjCPU.AddressWidth & " Bit" & vbCrLf _
& "数据位宽: " & ObjCPU.DataWidth & " Bit" & vbCrLf _
& "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
& "外部频率: " & ObjCPU.ExtClock & " MHz" & vbCrLf _
& "当前频率: " & 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数据＋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 = "————————————内存信息————————————" & 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" & " 数据带宽" & Mem.DataWidth _
& "Bit" & " 总带宽" & Mem.TotalWidth &"Bit" & vbCrLf
End Select
Next
Next
Memx = Memx _
& "内存安装: "& Round(Mems/1048576)&" MB " & vbCrLf _
& "内存总量: "& Round(ZL/1024)& " MB" & vbCrLf _
& "内存可用: "& Round(KY/1024)& " MB" & vbCrLf _
& "内存使用率: " &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 & "标称容量: " & Round(oIDE.Size/1000000000) &" GB" & vbCrLf _
& vbTab & "实际容量: " & Round(oIDE.Size/1073741824) &" GB" & vbCrLf _
& vbTab & "柱面数: " & oIDE.TotalCylinders & vbCrLf _
& vbTab & "磁头数: " & oIDE.TotalHeads & vbCrLf _
& vbTab & "每道扇区数: " & oIDE.SectorsPerTrack & vbCrLf _
& vbTab & "扇区大小: " & oIDE.BytesPerSector & vbCrLf _
& vbTab & "总扇区数: " & oIDE.TotalSectors & vbCrLf _
& vbTab & "分区状态: " & 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= "————————————网卡信息————————————" & 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 & "网卡名称: "& oNet.Name & vbCrLf
Else
Nx = Nx & "网卡名称: "& oNet.Name & vbCrLf
End If
Next
Else
For Each oNet In cNet
If oNet.NetEnabled = TRUE Then
Nx = Nx & "网卡名称: "& oNet.Name & vbTab & "活跃状态" & vbCrLf
Else
Nx = Nx & "网卡名称: "& oNet.Name & vbTab & "空闲状态" & 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基准测试———————————" & 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万次开方计算所需时间：" &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万次加法计算所需时间："&bRunTime&" 毫秒" & vbCrLf
JZCS = NumMsg
End Function
'cmd调用方法
'复制代码 代码如下:
'@echo off
'for /f "delims=*" %%a In (Cscript //Nologo "Hardware_Info.vbs"^|find ":") do echo %%a
':在第二个硬盘第一个分区新建Backup文件夹
'for /f "tokens=2,*" %%a In (Cscript //Nologo "Hardware_Info.vbs"^|findstr "分区状态") do (
' if %%a#==1# for /f "tokens=1" %%i In ("%%b") do MD "%%i\Backup")
'pause